{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.SecurityManager
(
SecurityManager(..) ,
IsSecurityManager ,
toSecurityManager ,
#if defined(ENABLE_OVERLOADING)
ResolveSecurityManagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo,
#endif
securityManagerRegisterUriSchemeAsCorsEnabled,
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo,
#endif
securityManagerRegisterUriSchemeAsDisplayIsolated,
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo,
#endif
securityManagerRegisterUriSchemeAsEmptyDocument,
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsLocalMethodInfo,
#endif
securityManagerRegisterUriSchemeAsLocal ,
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo,
#endif
securityManagerRegisterUriSchemeAsNoAccess,
#if defined(ENABLE_OVERLOADING)
SecurityManagerRegisterUriSchemeAsSecureMethodInfo,
#endif
securityManagerRegisterUriSchemeAsSecure,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsCorsEnabledMethodInfo,
#endif
securityManagerUriSchemeIsCorsEnabled ,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo,
#endif
securityManagerUriSchemeIsDisplayIsolated,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsEmptyDocumentMethodInfo,
#endif
securityManagerUriSchemeIsEmptyDocument ,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsLocalMethodInfo,
#endif
securityManagerUriSchemeIsLocal ,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsNoAccessMethodInfo,
#endif
securityManagerUriSchemeIsNoAccess ,
#if defined(ENABLE_OVERLOADING)
SecurityManagerUriSchemeIsSecureMethodInfo,
#endif
securityManagerUriSchemeIsSecure ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
newtype SecurityManager = SecurityManager (SP.ManagedPtr SecurityManager)
deriving (SecurityManager -> SecurityManager -> Bool
(SecurityManager -> SecurityManager -> Bool)
-> (SecurityManager -> SecurityManager -> Bool)
-> Eq SecurityManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SecurityManager -> SecurityManager -> Bool
$c/= :: SecurityManager -> SecurityManager -> Bool
== :: SecurityManager -> SecurityManager -> Bool
$c== :: SecurityManager -> SecurityManager -> Bool
Eq)
instance SP.ManagedPtrNewtype SecurityManager where
toManagedPtr :: SecurityManager -> ManagedPtr SecurityManager
toManagedPtr (SecurityManager ManagedPtr SecurityManager
p) = ManagedPtr SecurityManager
p
foreign import ccall "webkit_security_manager_get_type"
c_webkit_security_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject SecurityManager where
glibType :: IO GType
glibType = IO GType
c_webkit_security_manager_get_type
instance B.Types.GObject SecurityManager
class (SP.GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o
instance (SP.GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o
instance O.HasParentTypes SecurityManager
type instance O.ParentTypes SecurityManager = '[GObject.Object.Object]
toSecurityManager :: (MIO.MonadIO m, IsSecurityManager o) => o -> m SecurityManager
toSecurityManager :: forall (m :: * -> *) o.
(MonadIO m, IsSecurityManager o) =>
o -> m SecurityManager
toSecurityManager = IO SecurityManager -> m SecurityManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SecurityManager -> m SecurityManager)
-> (o -> IO SecurityManager) -> o -> m SecurityManager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SecurityManager -> SecurityManager)
-> o -> IO SecurityManager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SecurityManager -> SecurityManager
SecurityManager
instance B.GValue.IsGValue (Maybe SecurityManager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_security_manager_get_type
gvalueSet_ :: Ptr GValue -> Maybe SecurityManager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SecurityManager
P.Nothing = Ptr GValue -> Ptr SecurityManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SecurityManager
forall a. Ptr a
FP.nullPtr :: FP.Ptr SecurityManager)
gvalueSet_ Ptr GValue
gv (P.Just SecurityManager
obj) = SecurityManager -> (Ptr SecurityManager -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SecurityManager
obj (Ptr GValue -> Ptr SecurityManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SecurityManager)
gvalueGet_ Ptr GValue
gv = do
Ptr SecurityManager
ptr <- Ptr GValue -> IO (Ptr SecurityManager)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SecurityManager)
if Ptr SecurityManager
ptr Ptr SecurityManager -> Ptr SecurityManager -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SecurityManager
forall a. Ptr a
FP.nullPtr
then SecurityManager -> Maybe SecurityManager
forall a. a -> Maybe a
P.Just (SecurityManager -> Maybe SecurityManager)
-> IO SecurityManager -> IO (Maybe SecurityManager)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SecurityManager -> SecurityManager)
-> Ptr SecurityManager -> IO SecurityManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SecurityManager -> SecurityManager
SecurityManager Ptr SecurityManager
ptr
else Maybe SecurityManager -> IO (Maybe SecurityManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SecurityManager
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSecurityManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveSecurityManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSecurityManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSecurityManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSecurityManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSecurityManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSecurityManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSecurityManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSecurityManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSecurityManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSecurityManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsCorsEnabled" o = SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsDisplayIsolated" o = SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsEmptyDocument" o = SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsLocal" o = SecurityManagerRegisterUriSchemeAsLocalMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsNoAccess" o = SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo
ResolveSecurityManagerMethod "registerUriSchemeAsSecure" o = SecurityManagerRegisterUriSchemeAsSecureMethodInfo
ResolveSecurityManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSecurityManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSecurityManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSecurityManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSecurityManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsCorsEnabled" o = SecurityManagerUriSchemeIsCorsEnabledMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsDisplayIsolated" o = SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsEmptyDocument" o = SecurityManagerUriSchemeIsEmptyDocumentMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsLocal" o = SecurityManagerUriSchemeIsLocalMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsNoAccess" o = SecurityManagerUriSchemeIsNoAccessMethodInfo
ResolveSecurityManagerMethod "uriSchemeIsSecure" o = SecurityManagerUriSchemeIsSecureMethodInfo
ResolveSecurityManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSecurityManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSecurityManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSecurityManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSecurityManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSecurityManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSecurityManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSecurityManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSecurityManagerMethod t SecurityManager, O.OverloadedMethod info SecurityManager p) => OL.IsLabel t (SecurityManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSecurityManagerMethod t SecurityManager, O.OverloadedMethod info SecurityManager p, R.HasField t SecurityManager p) => R.HasField t SecurityManager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSecurityManagerMethod t SecurityManager, O.OverloadedMethodInfo info SecurityManager) => OL.IsLabel t (O.MethodProxy info SecurityManager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SecurityManager
type instance O.AttributeList SecurityManager = SecurityManagerAttributeList
type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SecurityManager = SecurityManagerSignalList
type SecurityManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsCorsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsCorsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsCorsEnabled a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_cors_enabled Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsCorsEnabled
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsCorsEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsCorsEnabled"
}
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsDisplayIsolated ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsDisplayIsolated :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsDisplayIsolated a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_display_isolated Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsDisplayIsolated
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsDisplayIsolated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsDisplayIsolated"
}
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsEmptyDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsEmptyDocument :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsEmptyDocument a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_empty_document Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsEmptyDocument
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsEmptyDocument",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsEmptyDocument"
}
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsLocal ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsLocal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsLocal a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_local Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsLocalMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsLocal
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsLocal",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsLocal"
}
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsNoAccess ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsNoAccess :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsNoAccess a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_no_access Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsNoAccess
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsNoAccess",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsNoAccess"
}
#endif
foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure ::
Ptr SecurityManager ->
CString ->
IO ()
securityManagerRegisterUriSchemeAsSecure ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m ()
securityManagerRegisterUriSchemeAsSecure :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m ()
securityManagerRegisterUriSchemeAsSecure a
securityManager Text
scheme = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
Ptr SecurityManager -> CString -> IO ()
webkit_security_manager_register_uri_scheme_as_secure Ptr SecurityManager
securityManager' CString
scheme'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityManagerRegisterUriSchemeAsSecureMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where
overloadedMethod = securityManagerRegisterUriSchemeAsSecure
instance O.OverloadedMethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerRegisterUriSchemeAsSecure",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerRegisterUriSchemeAsSecure"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsCorsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsCorsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsCorsEnabled a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_cors_enabled Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsCorsEnabledMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsCorsEnabled
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsCorsEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsCorsEnabled"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsDisplayIsolated ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsDisplayIsolated :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsDisplayIsolated a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_display_isolated Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsDisplayIsolated
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsDisplayIsolated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsDisplayIsolated"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsEmptyDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsEmptyDocument :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsEmptyDocument a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_empty_document Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsEmptyDocument
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsEmptyDocument",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsEmptyDocument"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsLocal ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsLocal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsLocal a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_local Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsLocalMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsLocalMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsLocal
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsLocal",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsLocal"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsNoAccess ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsNoAccess :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsNoAccess a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_no_access Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsNoAccessMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsNoAccess
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsNoAccess",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsNoAccess"
}
#endif
foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure ::
Ptr SecurityManager ->
CString ->
IO CInt
securityManagerUriSchemeIsSecure ::
(B.CallStack.HasCallStack, MonadIO m, IsSecurityManager a) =>
a
-> T.Text
-> m Bool
securityManagerUriSchemeIsSecure :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSecurityManager a) =>
a -> Text -> m Bool
securityManagerUriSchemeIsSecure a
securityManager Text
scheme = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityManager
securityManager' <- a -> IO (Ptr SecurityManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
securityManager
CString
scheme' <- Text -> IO CString
textToCString Text
scheme
CInt
result <- Ptr SecurityManager -> CString -> IO CInt
webkit_security_manager_uri_scheme_is_secure Ptr SecurityManager
securityManager' CString
scheme'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
securityManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
scheme'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SecurityManagerUriSchemeIsSecureMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.OverloadedMethod SecurityManagerUriSchemeIsSecureMethodInfo a signature where
overloadedMethod = securityManagerUriSchemeIsSecure
instance O.OverloadedMethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.SecurityManager.securityManagerUriSchemeIsSecure",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-SecurityManager.html#v:securityManagerUriSchemeIsSecure"
}
#endif