#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Soup.Objects.AuthDomainDigest
(
AuthDomainDigest(..) ,
IsAuthDomainDigest ,
toAuthDomainDigest ,
noAuthDomainDigest ,
authDomainDigestEncodePassword ,
#if ENABLE_OVERLOADING
AuthDomainDigestSetAuthCallbackMethodInfo,
#endif
authDomainDigestSetAuthCallback ,
#if ENABLE_OVERLOADING
AuthDomainDigestAuthCallbackPropertyInfo,
#endif
#if ENABLE_OVERLOADING
authDomainDigestAuthCallback ,
#endif
clearAuthDomainDigestAuthCallback ,
constructAuthDomainDigestAuthCallback ,
getAuthDomainDigestAuthCallback ,
setAuthDomainDigestAuthCallback ,
#if ENABLE_OVERLOADING
AuthDomainDigestAuthDataPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
authDomainDigestAuthData ,
#endif
constructAuthDomainDigestAuthData ,
getAuthDomainDigestAuthData ,
setAuthDomainDigestAuthData ,
) 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.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Soup.Callbacks as Soup.Callbacks
import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain
newtype AuthDomainDigest = AuthDomainDigest (ManagedPtr AuthDomainDigest)
foreign import ccall "soup_auth_domain_digest_get_type"
c_soup_auth_domain_digest_get_type :: IO GType
instance GObject AuthDomainDigest where
gobjectType = c_soup_auth_domain_digest_get_type
class (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o
instance (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o
instance O.HasParentTypes AuthDomainDigest
type instance O.ParentTypes AuthDomainDigest = '[Soup.AuthDomain.AuthDomain, GObject.Object.Object]
toAuthDomainDigest :: (MonadIO m, IsAuthDomainDigest o) => o -> m AuthDomainDigest
toAuthDomainDigest = liftIO . unsafeCastTo AuthDomainDigest
noAuthDomainDigest :: Maybe AuthDomainDigest
noAuthDomainDigest = Nothing
#if ENABLE_OVERLOADING
type family ResolveAuthDomainDigestMethod (t :: Symbol) (o :: *) :: * where
ResolveAuthDomainDigestMethod "accepts" o = Soup.AuthDomain.AuthDomainAcceptsMethodInfo
ResolveAuthDomainDigestMethod "addPath" o = Soup.AuthDomain.AuthDomainAddPathMethodInfo
ResolveAuthDomainDigestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAuthDomainDigestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAuthDomainDigestMethod "challenge" o = Soup.AuthDomain.AuthDomainChallengeMethodInfo
ResolveAuthDomainDigestMethod "checkPassword" o = Soup.AuthDomain.AuthDomainCheckPasswordMethodInfo
ResolveAuthDomainDigestMethod "covers" o = Soup.AuthDomain.AuthDomainCoversMethodInfo
ResolveAuthDomainDigestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAuthDomainDigestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAuthDomainDigestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAuthDomainDigestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAuthDomainDigestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAuthDomainDigestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAuthDomainDigestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAuthDomainDigestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAuthDomainDigestMethod "removePath" o = Soup.AuthDomain.AuthDomainRemovePathMethodInfo
ResolveAuthDomainDigestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAuthDomainDigestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAuthDomainDigestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAuthDomainDigestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAuthDomainDigestMethod "tryGenericAuthCallback" o = Soup.AuthDomain.AuthDomainTryGenericAuthCallbackMethodInfo
ResolveAuthDomainDigestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAuthDomainDigestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAuthDomainDigestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAuthDomainDigestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAuthDomainDigestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAuthDomainDigestMethod "getRealm" o = Soup.AuthDomain.AuthDomainGetRealmMethodInfo
ResolveAuthDomainDigestMethod "setAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo
ResolveAuthDomainDigestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAuthDomainDigestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAuthDomainDigestMethod "setFilter" o = Soup.AuthDomain.AuthDomainSetFilterMethodInfo
ResolveAuthDomainDigestMethod "setGenericAuthCallback" o = Soup.AuthDomain.AuthDomainSetGenericAuthCallbackMethodInfo
ResolveAuthDomainDigestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAuthDomainDigestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, O.MethodInfo info AuthDomainDigest p) => OL.IsLabel t (AuthDomainDigest -> 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
getAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> m (Maybe Soup.Callbacks.AuthDomainDigestAuthCallback_WithClosures)
getAuthDomainDigestAuthCallback obj = liftIO $ B.Properties.getObjectPropertyCallback obj "auth-callback" Soup.Callbacks.dynamic_AuthDomainDigestAuthCallback
setAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback -> m ()
setAuthDomainDigestAuthCallback obj val = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" val
constructAuthDomainDigestAuthCallback :: (IsAuthDomainDigest o) => FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback -> IO (GValueConstruct o)
constructAuthDomainDigestAuthCallback val = B.Properties.constructObjectPropertyCallback "auth-callback" val
clearAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> m ()
clearAuthDomainDigestAuthCallback obj = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" FP.nullFunPtr
#if ENABLE_OVERLOADING
data AuthDomainDigestAuthCallbackPropertyInfo
instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where
type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback)
type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = IsAuthDomainDigest
type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Maybe Soup.Callbacks.AuthDomainDigestAuthCallback_WithClosures)
type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "auth-callback"
type AttrOrigin AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigest
attrGet _ = getAuthDomainDigestAuthCallback
attrSet _ = setAuthDomainDigestAuthCallback
attrConstruct _ = constructAuthDomainDigestAuthCallback
attrClear _ = clearAuthDomainDigestAuthCallback
#endif
getAuthDomainDigestAuthData :: (MonadIO m, IsAuthDomainDigest o) => o -> m (Ptr ())
getAuthDomainDigestAuthData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "auth-data"
setAuthDomainDigestAuthData :: (MonadIO m, IsAuthDomainDigest o) => o -> Ptr () -> m ()
setAuthDomainDigestAuthData obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "auth-data" val
constructAuthDomainDigestAuthData :: (IsAuthDomainDigest o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainDigestAuthData val = B.Properties.constructObjectPropertyPtr "auth-data" val
#if ENABLE_OVERLOADING
data AuthDomainDigestAuthDataPropertyInfo
instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where
type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = IsAuthDomainDigest
type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ())
type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "auth-data"
type AttrOrigin AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigest
attrGet _ = getAuthDomainDigestAuthData
attrSet _ = setAuthDomainDigestAuthData
attrConstruct _ = constructAuthDomainDigestAuthData
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList AuthDomainDigest
type instance O.AttributeList AuthDomainDigest = AuthDomainDigestAttributeList
type AuthDomainDigestAttributeList = ('[ '("addPath", Soup.AuthDomain.AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainDigestAuthCallbackPropertyInfo), '("authData", AuthDomainDigestAuthDataPropertyInfo), '("filter", Soup.AuthDomain.AuthDomainFilterPropertyInfo), '("filterData", Soup.AuthDomain.AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", Soup.AuthDomain.AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", Soup.AuthDomain.AuthDomainGenericAuthDataPropertyInfo), '("proxy", Soup.AuthDomain.AuthDomainProxyPropertyInfo), '("realm", Soup.AuthDomain.AuthDomainRealmPropertyInfo), '("removePath", Soup.AuthDomain.AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
authDomainDigestAuthCallback :: AttrLabelProxy "authCallback"
authDomainDigestAuthCallback = AttrLabelProxy
authDomainDigestAuthData :: AttrLabelProxy "authData"
authDomainDigestAuthData = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList AuthDomainDigest = AuthDomainDigestSignalList
type AuthDomainDigestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback ::
Ptr AuthDomainDigest ->
FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
authDomainDigestSetAuthCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthDomainDigest 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 ()
#if ENABLE_OVERLOADING
data AuthDomainDigestSetAuthCallbackMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainDigestAuthCallback -> m ()), MonadIO m, IsAuthDomainDigest a) => O.MethodInfo AuthDomainDigestSetAuthCallbackMethodInfo a signature where
overloadedMethod _ = authDomainDigestSetAuthCallback
#endif
foreign import ccall "soup_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password ::
CString ->
CString ->
CString ->
IO CString
authDomainDigestEncodePassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> T.Text
-> m T.Text
authDomainDigestEncodePassword username realm password = liftIO $ do
username' <- textToCString username
realm' <- textToCString realm
password' <- textToCString password
result <- soup_auth_domain_digest_encode_password username' realm' password'
checkUnexpectedReturnNULL "authDomainDigestEncodePassword" result
result' <- cstringToText result
freeMem result
freeMem username'
freeMem realm'
freeMem password'
return result'
#if ENABLE_OVERLOADING
#endif