#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.SecurityManager
(
SecurityManager(..) ,
IsSecurityManager ,
toSecurityManager ,
noSecurityManager ,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo,
#endif
securityManagerRegisterUriSchemeAsCorsEnabled,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo,
#endif
securityManagerRegisterUriSchemeAsDisplayIsolated,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo,
#endif
securityManagerRegisterUriSchemeAsEmptyDocument,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsLocalMethodInfo,
#endif
securityManagerRegisterUriSchemeAsLocal ,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo,
#endif
securityManagerRegisterUriSchemeAsNoAccess,
#if ENABLE_OVERLOADING
SecurityManagerRegisterUriSchemeAsSecureMethodInfo,
#endif
securityManagerRegisterUriSchemeAsSecure,
#if ENABLE_OVERLOADING
SecurityManagerUriSchemeIsCorsEnabledMethodInfo,
#endif
securityManagerUriSchemeIsCorsEnabled ,
#if ENABLE_OVERLOADING
SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo,
#endif
securityManagerUriSchemeIsDisplayIsolated,
#if ENABLE_OVERLOADING
SecurityManagerUriSchemeIsEmptyDocumentMethodInfo,
#endif
securityManagerUriSchemeIsEmptyDocument ,
#if ENABLE_OVERLOADING
SecurityManagerUriSchemeIsLocalMethodInfo,
#endif
securityManagerUriSchemeIsLocal ,
#if ENABLE_OVERLOADING
SecurityManagerUriSchemeIsNoAccessMethodInfo,
#endif
securityManagerUriSchemeIsNoAccess ,
#if 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.ManagedPtr as B.ManagedPtr
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.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 GI.GObject.Objects.Object as GObject.Object
newtype SecurityManager = SecurityManager (ManagedPtr SecurityManager)
foreign import ccall "webkit_security_manager_get_type"
c_webkit_security_manager_get_type :: IO GType
instance GObject SecurityManager where
gobjectType = c_webkit_security_manager_get_type
class (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o
instance (GObject o, O.IsDescendantOf SecurityManager o) => IsSecurityManager o
instance O.HasParentTypes SecurityManager
type instance O.ParentTypes SecurityManager = '[GObject.Object.Object]
toSecurityManager :: (MonadIO m, IsSecurityManager o) => o -> m SecurityManager
toSecurityManager = liftIO . unsafeCastTo SecurityManager
noSecurityManager :: Maybe SecurityManager
noSecurityManager = Nothing
#if 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 "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSecurityManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSecurityManagerMethod t SecurityManager, O.MethodInfo info SecurityManager p) => OL.IsLabel t (SecurityManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList SecurityManager
type instance O.AttributeList SecurityManager = SecurityManagerAttributeList
type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_cors_enabled securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_display_isolated securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_empty_document securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_local securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsLocalMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_no_access securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
webkit_security_manager_register_uri_scheme_as_secure securityManager' scheme'
touchManagedPtr securityManager
freeMem scheme'
return ()
#if ENABLE_OVERLOADING
data SecurityManagerRegisterUriSchemeAsSecureMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_cors_enabled securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsCorsEnabledMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_display_isolated securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_empty_document securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_local securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsLocalMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_no_access securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsNoAccessMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where
overloadedMethod _ = 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 securityManager scheme = liftIO $ do
securityManager' <- unsafeManagedPtrCastPtr securityManager
scheme' <- textToCString scheme
result <- webkit_security_manager_uri_scheme_is_secure securityManager' scheme'
let result' = (/= 0) result
touchManagedPtr securityManager
freeMem scheme'
return result'
#if ENABLE_OVERLOADING
data SecurityManagerUriSchemeIsSecureMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSecurityManager a) => O.MethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a signature where
overloadedMethod _ = securityManagerUriSchemeIsSecure
#endif