module GI.Soup.Objects.AuthDomain
(
AuthDomain(..) ,
IsAuthDomain ,
toAuthDomain ,
noAuthDomain ,
AuthDomainAcceptsMethodInfo ,
authDomainAccepts ,
AuthDomainAddPathMethodInfo ,
authDomainAddPath ,
AuthDomainBasicSetAuthCallbackMethodInfo,
authDomainBasicSetAuthCallback ,
AuthDomainChallengeMethodInfo ,
authDomainChallenge ,
AuthDomainCheckPasswordMethodInfo ,
authDomainCheckPassword ,
AuthDomainCoversMethodInfo ,
authDomainCovers ,
AuthDomainDigestSetAuthCallbackMethodInfo,
authDomainDigestSetAuthCallback ,
AuthDomainGetRealmMethodInfo ,
authDomainGetRealm ,
AuthDomainRemovePathMethodInfo ,
authDomainRemovePath ,
AuthDomainSetFilterMethodInfo ,
authDomainSetFilter ,
AuthDomainSetGenericAuthCallbackMethodInfo,
authDomainSetGenericAuthCallback ,
AuthDomainTryGenericAuthCallbackMethodInfo,
authDomainTryGenericAuthCallback ,
AuthDomainAddPathPropertyInfo ,
clearAuthDomainAddPath ,
constructAuthDomainAddPath ,
setAuthDomainAddPath ,
AuthDomainFilterPropertyInfo ,
authDomainFilter ,
constructAuthDomainFilter ,
getAuthDomainFilter ,
setAuthDomainFilter ,
AuthDomainFilterDataPropertyInfo ,
authDomainFilterData ,
constructAuthDomainFilterData ,
getAuthDomainFilterData ,
setAuthDomainFilterData ,
AuthDomainGenericAuthCallbackPropertyInfo,
authDomainGenericAuthCallback ,
constructAuthDomainGenericAuthCallback ,
getAuthDomainGenericAuthCallback ,
setAuthDomainGenericAuthCallback ,
AuthDomainGenericAuthDataPropertyInfo ,
authDomainGenericAuthData ,
constructAuthDomainGenericAuthData ,
getAuthDomainGenericAuthData ,
setAuthDomainGenericAuthData ,
AuthDomainProxyPropertyInfo ,
authDomainProxy ,
constructAuthDomainProxy ,
getAuthDomainProxy ,
AuthDomainRealmPropertyInfo ,
authDomainRealm ,
constructAuthDomainRealm ,
getAuthDomainRealm ,
AuthDomainRemovePathPropertyInfo ,
clearAuthDomainRemovePath ,
constructAuthDomainRemovePath ,
setAuthDomainRemovePath ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Soup.Callbacks as Soup.Callbacks
import qualified GI.Soup.Objects.Message as Soup.Message
newtype AuthDomain = AuthDomain (ManagedPtr AuthDomain)
foreign import ccall "soup_auth_domain_get_type"
c_soup_auth_domain_get_type :: IO GType
instance GObject AuthDomain where
gobjectType _ = c_soup_auth_domain_get_type
class GObject o => IsAuthDomain o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError AuthDomain a) =>
IsAuthDomain a
#endif
instance IsAuthDomain AuthDomain
instance GObject.Object.IsObject AuthDomain
toAuthDomain :: IsAuthDomain o => o -> IO AuthDomain
toAuthDomain = unsafeCastTo AuthDomain
noAuthDomain :: Maybe AuthDomain
noAuthDomain = Nothing
type family ResolveAuthDomainMethod (t :: Symbol) (o :: *) :: * where
ResolveAuthDomainMethod "accepts" o = AuthDomainAcceptsMethodInfo
ResolveAuthDomainMethod "addPath" o = AuthDomainAddPathMethodInfo
ResolveAuthDomainMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo
ResolveAuthDomainMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAuthDomainMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAuthDomainMethod "challenge" o = AuthDomainChallengeMethodInfo
ResolveAuthDomainMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo
ResolveAuthDomainMethod "covers" o = AuthDomainCoversMethodInfo
ResolveAuthDomainMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo
ResolveAuthDomainMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAuthDomainMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAuthDomainMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAuthDomainMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAuthDomainMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAuthDomainMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAuthDomainMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAuthDomainMethod "removePath" o = AuthDomainRemovePathMethodInfo
ResolveAuthDomainMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveAuthDomainMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveAuthDomainMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAuthDomainMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAuthDomainMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAuthDomainMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAuthDomainMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo
ResolveAuthDomainMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAuthDomainMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAuthDomainMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAuthDomainMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAuthDomainMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAuthDomainMethod "getRealm" o = AuthDomainGetRealmMethodInfo
ResolveAuthDomainMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAuthDomainMethod "setFilter" o = AuthDomainSetFilterMethodInfo
ResolveAuthDomainMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo
ResolveAuthDomainMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAuthDomainMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAuthDomainMethod t AuthDomain, O.MethodInfo info AuthDomain p) => O.IsLabelProxy t (AuthDomain -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAuthDomainMethod t AuthDomain, O.MethodInfo info AuthDomain p) => O.IsLabel t (AuthDomain -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
setAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()
setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" (Just val)
constructAuthDomainAddPath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainAddPath val = constructObjectPropertyString "add-path" (Just val)
clearAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainAddPath obj = liftIO $ setObjectPropertyString obj "add-path" (Nothing :: Maybe T.Text)
data AuthDomainAddPathPropertyInfo
instance AttrInfo AuthDomainAddPathPropertyInfo where
type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainAddPathPropertyInfo = ()
type AttrLabel AuthDomainAddPathPropertyInfo = "add-path"
type AttrOrigin AuthDomainAddPathPropertyInfo = AuthDomain
attrGet _ = undefined
attrSet _ = setAuthDomainAddPath
attrConstruct _ = constructAuthDomainAddPath
attrClear _ = clearAuthDomainAddPath
getAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter"
setAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val
constructAuthDomainFilter :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val
data AuthDomainFilterPropertyInfo
instance AttrInfo AuthDomainFilterPropertyInfo where
type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ())
type AttrLabel AuthDomainFilterPropertyInfo = "filter"
type AttrOrigin AuthDomainFilterPropertyInfo = AuthDomain
attrGet _ = getAuthDomainFilter
attrSet _ = setAuthDomainFilter
attrConstruct _ = constructAuthDomainFilter
attrClear _ = undefined
getAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data"
setAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val
constructAuthDomainFilterData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val
data AuthDomainFilterDataPropertyInfo
instance AttrInfo AuthDomainFilterDataPropertyInfo where
type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())
type AttrLabel AuthDomainFilterDataPropertyInfo = "filter-data"
type AttrOrigin AuthDomainFilterDataPropertyInfo = AuthDomain
attrGet _ = getAuthDomainFilterData
attrSet _ = setAuthDomainFilterData
attrConstruct _ = constructAuthDomainFilterData
attrClear _ = undefined
getAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback"
setAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val
constructAuthDomainGenericAuthCallback :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val
data AuthDomainGenericAuthCallbackPropertyInfo
instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where
type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ())
type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "generic-auth-callback"
type AttrOrigin AuthDomainGenericAuthCallbackPropertyInfo = AuthDomain
attrGet _ = getAuthDomainGenericAuthCallback
attrSet _ = setAuthDomainGenericAuthCallback
attrConstruct _ = constructAuthDomainGenericAuthCallback
attrClear _ = undefined
getAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data"
setAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val
constructAuthDomainGenericAuthData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val
data AuthDomainGenericAuthDataPropertyInfo
instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where
type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())
type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "generic-auth-data"
type AttrOrigin AuthDomainGenericAuthDataPropertyInfo = AuthDomain
attrGet _ = getAuthDomainGenericAuthData
attrSet _ = setAuthDomainGenericAuthData
attrConstruct _ = constructAuthDomainGenericAuthData
attrClear _ = undefined
getAuthDomainProxy :: (MonadIO m, IsAuthDomain o) => o -> m Bool
getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy"
constructAuthDomainProxy :: (IsAuthDomain o) => Bool -> IO (GValueConstruct o)
constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val
data AuthDomainProxyPropertyInfo
instance AttrInfo AuthDomainProxyPropertyInfo where
type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainProxyPropertyInfo = Bool
type AttrLabel AuthDomainProxyPropertyInfo = "proxy"
type AttrOrigin AuthDomainProxyPropertyInfo = AuthDomain
attrGet _ = getAuthDomainProxy
attrSet _ = undefined
attrConstruct _ = constructAuthDomainProxy
attrClear _ = undefined
getAuthDomainRealm :: (MonadIO m, IsAuthDomain o) => o -> m T.Text
getAuthDomainRealm obj = liftIO $ checkUnexpectedNothing "getAuthDomainRealm" $ getObjectPropertyString obj "realm"
constructAuthDomainRealm :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainRealm val = constructObjectPropertyString "realm" (Just val)
data AuthDomainRealmPropertyInfo
instance AttrInfo AuthDomainRealmPropertyInfo where
type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainRealmPropertyInfo = T.Text
type AttrLabel AuthDomainRealmPropertyInfo = "realm"
type AttrOrigin AuthDomainRealmPropertyInfo = AuthDomain
attrGet _ = getAuthDomainRealm
attrSet _ = undefined
attrConstruct _ = constructAuthDomainRealm
attrClear _ = undefined
setAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()
setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" (Just val)
constructAuthDomainRemovePath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" (Just val)
clearAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainRemovePath obj = liftIO $ setObjectPropertyString obj "remove-path" (Nothing :: Maybe T.Text)
data AuthDomainRemovePathPropertyInfo
instance AttrInfo AuthDomainRemovePathPropertyInfo where
type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = IsAuthDomain
type AttrGetType AuthDomainRemovePathPropertyInfo = ()
type AttrLabel AuthDomainRemovePathPropertyInfo = "remove-path"
type AttrOrigin AuthDomainRemovePathPropertyInfo = AuthDomain
attrGet _ = undefined
attrSet _ = setAuthDomainRemovePath
attrConstruct _ = constructAuthDomainRemovePath
attrClear _ = clearAuthDomainRemovePath
instance O.HasAttributeList AuthDomain
type instance O.AttributeList AuthDomain = AuthDomainAttributeList
type AuthDomainAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])
authDomainFilter :: AttrLabelProxy "filter"
authDomainFilter = AttrLabelProxy
authDomainFilterData :: AttrLabelProxy "filterData"
authDomainFilterData = AttrLabelProxy
authDomainGenericAuthCallback :: AttrLabelProxy "genericAuthCallback"
authDomainGenericAuthCallback = AttrLabelProxy
authDomainGenericAuthData :: AttrLabelProxy "genericAuthData"
authDomainGenericAuthData = AttrLabelProxy
authDomainProxy :: AttrLabelProxy "proxy"
authDomainProxy = AttrLabelProxy
authDomainRealm :: AttrLabelProxy "realm"
authDomainRealm = AttrLabelProxy
type instance O.SignalList AuthDomain = AuthDomainSignalList
type AuthDomainSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts ::
Ptr AuthDomain ->
Ptr Soup.Message.Message ->
IO CString
authDomainAccepts ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>
a
-> b
-> m (Maybe T.Text)
authDomainAccepts domain msg = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_auth_domain_accepts domain' msg'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr domain
touchManagedPtr msg
return maybeResult
data AuthDomainAcceptsMethodInfo
instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainAcceptsMethodInfo a signature where
overloadedMethod _ = authDomainAccepts
foreign import ccall "soup_auth_domain_add_path" soup_auth_domain_add_path ::
Ptr AuthDomain ->
CString ->
IO ()
authDomainAddPath ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> T.Text
-> m ()
authDomainAddPath domain path = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
path' <- textToCString path
soup_auth_domain_add_path domain' path'
touchManagedPtr domain
freeMem path'
return ()
data AuthDomainAddPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainAddPathMethodInfo a signature where
overloadedMethod _ = authDomainAddPath
foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback ::
Ptr AuthDomain ->
FunPtr Soup.Callbacks.C_AuthDomainBasicAuthCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
authDomainBasicSetAuthCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> Soup.Callbacks.AuthDomainBasicAuthCallback
-> m ()
authDomainBasicSetAuthCallback domain callback = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
callback' <- Soup.Callbacks.mk_AuthDomainBasicAuthCallback (Soup.Callbacks.wrap_AuthDomainBasicAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainBasicAuthCallback callback))
let userData = castFunPtrToPtr callback'
let dnotify = safeFreeFunPtrPtr
soup_auth_domain_basic_set_auth_callback domain' callback' userData dnotify
touchManagedPtr domain
return ()
data AuthDomainBasicSetAuthCallbackMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainBasicAuthCallback -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainBasicSetAuthCallbackMethodInfo a signature where
overloadedMethod _ = authDomainBasicSetAuthCallback
foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge ::
Ptr AuthDomain ->
Ptr Soup.Message.Message ->
IO ()
authDomainChallenge ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>
a
-> b
-> m ()
authDomainChallenge domain msg = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
msg' <- unsafeManagedPtrCastPtr msg
soup_auth_domain_challenge domain' msg'
touchManagedPtr domain
touchManagedPtr msg
return ()
data AuthDomainChallengeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainChallengeMethodInfo a signature where
overloadedMethod _ = authDomainChallenge
foreign import ccall "soup_auth_domain_check_password" soup_auth_domain_check_password ::
Ptr AuthDomain ->
Ptr Soup.Message.Message ->
CString ->
CString ->
IO CInt
authDomainCheckPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>
a
-> b
-> T.Text
-> T.Text
-> m Bool
authDomainCheckPassword domain msg username password = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
msg' <- unsafeManagedPtrCastPtr msg
username' <- textToCString username
password' <- textToCString password
result <- soup_auth_domain_check_password domain' msg' username' password'
let result' = (/= 0) result
touchManagedPtr domain
touchManagedPtr msg
freeMem username'
freeMem password'
return result'
data AuthDomainCheckPasswordMethodInfo
instance (signature ~ (b -> T.Text -> T.Text -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainCheckPasswordMethodInfo a signature where
overloadedMethod _ = authDomainCheckPassword
foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers ::
Ptr AuthDomain ->
Ptr Soup.Message.Message ->
IO CInt
authDomainCovers ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>
a
-> b
-> m Bool
authDomainCovers domain msg = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_auth_domain_covers domain' msg'
let result' = (/= 0) result
touchManagedPtr domain
touchManagedPtr msg
return result'
data AuthDomainCoversMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainCoversMethodInfo a signature where
overloadedMethod _ = authDomainCovers
foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback ::
Ptr AuthDomain ->
FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
authDomainDigestSetAuthCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> Soup.Callbacks.AuthDomainDigestAuthCallback
-> m ()
authDomainDigestSetAuthCallback domain callback = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
callback' <- Soup.Callbacks.mk_AuthDomainDigestAuthCallback (Soup.Callbacks.wrap_AuthDomainDigestAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainDigestAuthCallback callback))
let userData = castFunPtrToPtr callback'
let dnotify = safeFreeFunPtrPtr
soup_auth_domain_digest_set_auth_callback domain' callback' userData dnotify
touchManagedPtr domain
return ()
data AuthDomainDigestSetAuthCallbackMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainDigestAuthCallback -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainDigestSetAuthCallbackMethodInfo a signature where
overloadedMethod _ = authDomainDigestSetAuthCallback
foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm ::
Ptr AuthDomain ->
IO CString
authDomainGetRealm ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> m T.Text
authDomainGetRealm domain = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
result <- soup_auth_domain_get_realm domain'
checkUnexpectedReturnNULL "authDomainGetRealm" result
result' <- cstringToText result
touchManagedPtr domain
return result'
data AuthDomainGetRealmMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainGetRealmMethodInfo a signature where
overloadedMethod _ = authDomainGetRealm
foreign import ccall "soup_auth_domain_remove_path" soup_auth_domain_remove_path ::
Ptr AuthDomain ->
CString ->
IO ()
authDomainRemovePath ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> T.Text
-> m ()
authDomainRemovePath domain path = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
path' <- textToCString path
soup_auth_domain_remove_path domain' path'
touchManagedPtr domain
freeMem path'
return ()
data AuthDomainRemovePathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainRemovePathMethodInfo a signature where
overloadedMethod _ = authDomainRemovePath
foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter ::
Ptr AuthDomain ->
FunPtr Soup.Callbacks.C_AuthDomainFilter ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
authDomainSetFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> Soup.Callbacks.AuthDomainFilter
-> m ()
authDomainSetFilter domain filter = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
filter' <- Soup.Callbacks.mk_AuthDomainFilter (Soup.Callbacks.wrap_AuthDomainFilter Nothing (Soup.Callbacks.drop_closures_AuthDomainFilter filter))
let filterData = castFunPtrToPtr filter'
let dnotify = safeFreeFunPtrPtr
soup_auth_domain_set_filter domain' filter' filterData dnotify
touchManagedPtr domain
return ()
data AuthDomainSetFilterMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainFilter -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetFilterMethodInfo a signature where
overloadedMethod _ = authDomainSetFilter
foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback ::
Ptr AuthDomain ->
FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
authDomainSetGenericAuthCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>
a
-> Soup.Callbacks.AuthDomainGenericAuthCallback
-> m ()
authDomainSetGenericAuthCallback domain authCallback = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
authCallback' <- Soup.Callbacks.mk_AuthDomainGenericAuthCallback (Soup.Callbacks.wrap_AuthDomainGenericAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainGenericAuthCallback authCallback))
let authData = castFunPtrToPtr authCallback'
let dnotify = safeFreeFunPtrPtr
soup_auth_domain_set_generic_auth_callback domain' authCallback' authData dnotify
touchManagedPtr domain
return ()
data AuthDomainSetGenericAuthCallbackMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainGenericAuthCallback -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetGenericAuthCallbackMethodInfo a signature where
overloadedMethod _ = authDomainSetGenericAuthCallback
foreign import ccall "soup_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback ::
Ptr AuthDomain ->
Ptr Soup.Message.Message ->
CString ->
IO CInt
authDomainTryGenericAuthCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>
a
-> b
-> T.Text
-> m Bool
authDomainTryGenericAuthCallback domain msg username = liftIO $ do
domain' <- unsafeManagedPtrCastPtr domain
msg' <- unsafeManagedPtrCastPtr msg
username' <- textToCString username
result <- soup_auth_domain_try_generic_auth_callback domain' msg' username'
let result' = (/= 0) result
touchManagedPtr domain
touchManagedPtr msg
freeMem username'
return result'
data AuthDomainTryGenericAuthCallbackMethodInfo
instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainTryGenericAuthCallbackMethodInfo a signature where
overloadedMethod _ = authDomainTryGenericAuthCallback