{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Objects.AuthDomain
(
AuthDomain(..) ,
IsAuthDomain ,
toAuthDomain ,
noAuthDomain ,
#if defined(ENABLE_OVERLOADING)
ResolveAuthDomainMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AuthDomainAcceptsMethodInfo ,
#endif
authDomainAccepts ,
#if defined(ENABLE_OVERLOADING)
AuthDomainAddPathMethodInfo ,
#endif
authDomainAddPath ,
#if defined(ENABLE_OVERLOADING)
AuthDomainChallengeMethodInfo ,
#endif
authDomainChallenge ,
#if defined(ENABLE_OVERLOADING)
AuthDomainCheckPasswordMethodInfo ,
#endif
authDomainCheckPassword ,
#if defined(ENABLE_OVERLOADING)
AuthDomainCoversMethodInfo ,
#endif
authDomainCovers ,
#if defined(ENABLE_OVERLOADING)
AuthDomainGetRealmMethodInfo ,
#endif
authDomainGetRealm ,
#if defined(ENABLE_OVERLOADING)
AuthDomainRemovePathMethodInfo ,
#endif
authDomainRemovePath ,
#if defined(ENABLE_OVERLOADING)
AuthDomainSetFilterMethodInfo ,
#endif
authDomainSetFilter ,
#if defined(ENABLE_OVERLOADING)
AuthDomainSetGenericAuthCallbackMethodInfo,
#endif
authDomainSetGenericAuthCallback ,
#if defined(ENABLE_OVERLOADING)
AuthDomainTryGenericAuthCallbackMethodInfo,
#endif
authDomainTryGenericAuthCallback ,
#if defined(ENABLE_OVERLOADING)
AuthDomainAddPathPropertyInfo ,
#endif
clearAuthDomainAddPath ,
constructAuthDomainAddPath ,
setAuthDomainAddPath ,
#if defined(ENABLE_OVERLOADING)
AuthDomainFilterPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainFilter ,
#endif
clearAuthDomainFilter ,
constructAuthDomainFilter ,
getAuthDomainFilter ,
setAuthDomainFilter ,
#if defined(ENABLE_OVERLOADING)
AuthDomainFilterDataPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainFilterData ,
#endif
constructAuthDomainFilterData ,
getAuthDomainFilterData ,
setAuthDomainFilterData ,
#if defined(ENABLE_OVERLOADING)
AuthDomainGenericAuthCallbackPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainGenericAuthCallback ,
#endif
clearAuthDomainGenericAuthCallback ,
constructAuthDomainGenericAuthCallback ,
getAuthDomainGenericAuthCallback ,
setAuthDomainGenericAuthCallback ,
#if defined(ENABLE_OVERLOADING)
AuthDomainGenericAuthDataPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainGenericAuthData ,
#endif
constructAuthDomainGenericAuthData ,
getAuthDomainGenericAuthData ,
setAuthDomainGenericAuthData ,
#if defined(ENABLE_OVERLOADING)
AuthDomainProxyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainProxy ,
#endif
constructAuthDomainProxy ,
getAuthDomainProxy ,
#if defined(ENABLE_OVERLOADING)
AuthDomainRealmPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
authDomainRealm ,
#endif
constructAuthDomainRealm ,
getAuthDomainRealm ,
#if defined(ENABLE_OVERLOADING)
AuthDomainRemovePathPropertyInfo ,
#endif
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.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 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.Message as Soup.Message
newtype AuthDomain = AuthDomain (ManagedPtr AuthDomain)
deriving (AuthDomain -> AuthDomain -> Bool
(AuthDomain -> AuthDomain -> Bool)
-> (AuthDomain -> AuthDomain -> Bool) -> Eq AuthDomain
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthDomain -> AuthDomain -> Bool
$c/= :: AuthDomain -> AuthDomain -> Bool
== :: AuthDomain -> AuthDomain -> Bool
$c== :: AuthDomain -> AuthDomain -> Bool
Eq)
foreign import ccall "soup_auth_domain_get_type"
c_soup_auth_domain_get_type :: IO GType
instance GObject AuthDomain where
gobjectType :: IO GType
gobjectType = IO GType
c_soup_auth_domain_get_type
instance B.GValue.IsGValue AuthDomain where
toGValue :: AuthDomain -> IO GValue
toGValue o :: AuthDomain
o = do
GType
gtype <- IO GType
c_soup_auth_domain_get_type
AuthDomain -> (Ptr AuthDomain -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AuthDomain
o (GType
-> (GValue -> Ptr AuthDomain -> IO ())
-> Ptr AuthDomain
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AuthDomain -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO AuthDomain
fromGValue gv :: GValue
gv = do
Ptr AuthDomain
ptr <- GValue -> IO (Ptr AuthDomain)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr AuthDomain)
(ManagedPtr AuthDomain -> AuthDomain)
-> Ptr AuthDomain -> IO AuthDomain
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AuthDomain -> AuthDomain
AuthDomain Ptr AuthDomain
ptr
class (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o
instance (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o
instance O.HasParentTypes AuthDomain
type instance O.ParentTypes AuthDomain = '[GObject.Object.Object]
toAuthDomain :: (MonadIO m, IsAuthDomain o) => o -> m AuthDomain
toAuthDomain :: o -> m AuthDomain
toAuthDomain = IO AuthDomain -> m AuthDomain
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AuthDomain -> m AuthDomain)
-> (o -> IO AuthDomain) -> o -> m AuthDomain
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AuthDomain -> AuthDomain) -> o -> IO AuthDomain
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr AuthDomain -> AuthDomain
AuthDomain
noAuthDomain :: Maybe AuthDomain
noAuthDomain :: Maybe AuthDomain
noAuthDomain = Maybe AuthDomain
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAuthDomainMethod (t :: Symbol) (o :: *) :: * where
ResolveAuthDomainMethod "accepts" o = AuthDomainAcceptsMethodInfo
ResolveAuthDomainMethod "addPath" o = AuthDomainAddPathMethodInfo
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 "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAuthDomainMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAuthDomainMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
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 "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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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) => OL.IsLabel t (AuthDomain -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
setAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()
setAuthDomainAddPath :: o -> Text -> m ()
setAuthDomainAddPath obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "add-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAuthDomainAddPath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainAddPath :: Text -> IO (GValueConstruct o)
constructAuthDomainAddPath val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "add-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainAddPath :: o -> m ()
clearAuthDomainAddPath obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "add-path" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data AuthDomainAddPathPropertyInfo
instance AttrInfo AuthDomainAddPathPropertyInfo where
type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text
type AttrTransferType AuthDomainAddPathPropertyInfo = T.Text
type AttrGetType AuthDomainAddPathPropertyInfo = ()
type AttrLabel AuthDomainAddPathPropertyInfo = "add-path"
type AttrOrigin AuthDomainAddPathPropertyInfo = AuthDomain
attrGet = undefined
attrSet = setAuthDomainAddPath
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainAddPath
attrClear = clearAuthDomainAddPath
#endif
getAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> m (Maybe Soup.Callbacks.AuthDomainFilter_WithClosures)
getAuthDomainFilter :: o -> m (Maybe AuthDomainFilter_WithClosures)
getAuthDomainFilter obj :: o
obj = IO (Maybe AuthDomainFilter_WithClosures)
-> m (Maybe AuthDomainFilter_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe AuthDomainFilter_WithClosures)
-> m (Maybe AuthDomainFilter_WithClosures))
-> IO (Maybe AuthDomainFilter_WithClosures)
-> m (Maybe AuthDomainFilter_WithClosures)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (FunPtr C_AuthDomainFilter -> AuthDomainFilter_WithClosures)
-> IO (Maybe AuthDomainFilter_WithClosures)
forall a b c.
GObject a =>
a -> String -> (FunPtr b -> c) -> IO (Maybe c)
B.Properties.getObjectPropertyCallback o
obj "filter" FunPtr C_AuthDomainFilter -> AuthDomainFilter_WithClosures
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAuthDomain a, IsMessage b) =>
FunPtr C_AuthDomainFilter -> a -> b -> Ptr () -> m Bool
Soup.Callbacks.dynamic_AuthDomainFilter
setAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> FunPtr Soup.Callbacks.C_AuthDomainFilter -> m ()
setAuthDomainFilter :: o -> FunPtr C_AuthDomainFilter -> m ()
setAuthDomainFilter obj :: o
obj val :: FunPtr C_AuthDomainFilter
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> FunPtr C_AuthDomainFilter -> IO ()
forall a b. GObject a => a -> String -> FunPtr b -> IO ()
B.Properties.setObjectPropertyCallback o
obj "filter" FunPtr C_AuthDomainFilter
val
constructAuthDomainFilter :: (IsAuthDomain o) => FunPtr Soup.Callbacks.C_AuthDomainFilter -> IO (GValueConstruct o)
constructAuthDomainFilter :: FunPtr C_AuthDomainFilter -> IO (GValueConstruct o)
constructAuthDomainFilter val :: FunPtr C_AuthDomainFilter
val = String -> FunPtr C_AuthDomainFilter -> IO (GValueConstruct o)
forall b o. String -> FunPtr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyCallback "filter" FunPtr C_AuthDomainFilter
val
clearAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainFilter :: o -> m ()
clearAuthDomainFilter obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> FunPtr Any -> IO ()
forall a b. GObject a => a -> String -> FunPtr b -> IO ()
B.Properties.setObjectPropertyCallback o
obj "filter" FunPtr Any
forall a. FunPtr a
FP.nullFunPtr
#if defined(ENABLE_OVERLOADING)
data AuthDomainFilterPropertyInfo
instance AttrInfo AuthDomainFilterPropertyInfo where
type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainFilter)
type AttrTransferTypeConstraint AuthDomainFilterPropertyInfo = (~) Soup.Callbacks.AuthDomainFilter_WithClosures
type AttrTransferType AuthDomainFilterPropertyInfo = FunPtr Soup.Callbacks.C_AuthDomainFilter
type AttrGetType AuthDomainFilterPropertyInfo = (Maybe Soup.Callbacks.AuthDomainFilter_WithClosures)
type AttrLabel AuthDomainFilterPropertyInfo = "filter"
type AttrOrigin AuthDomainFilterPropertyInfo = AuthDomain
attrGet = getAuthDomainFilter
attrSet = setAuthDomainFilter
attrTransfer _ v = do
Soup.Callbacks.mk_AuthDomainFilter (Soup.Callbacks.wrap_AuthDomainFilter Nothing v)
attrConstruct = constructAuthDomainFilter
attrClear = clearAuthDomainFilter
#endif
getAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainFilterData :: o -> m (Ptr ())
getAuthDomainFilterData obj :: o
obj = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj "filter-data"
setAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainFilterData :: o -> Ptr () -> m ()
setAuthDomainFilterData obj :: o
obj val :: Ptr ()
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Ptr () -> IO ()
forall a b. GObject a => a -> String -> Ptr b -> IO ()
B.Properties.setObjectPropertyPtr o
obj "filter-data" Ptr ()
val
constructAuthDomainFilterData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainFilterData :: Ptr () -> IO (GValueConstruct o)
constructAuthDomainFilterData val :: Ptr ()
val = String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr "filter-data" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data AuthDomainFilterDataPropertyInfo
instance AttrInfo AuthDomainFilterDataPropertyInfo where
type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())
type AttrTransferType AuthDomainFilterDataPropertyInfo = Ptr ()
type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())
type AttrLabel AuthDomainFilterDataPropertyInfo = "filter-data"
type AttrOrigin AuthDomainFilterDataPropertyInfo = AuthDomain
attrGet = getAuthDomainFilterData
attrSet = setAuthDomainFilterData
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainFilterData
attrClear = undefined
#endif
getAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> m (Maybe Soup.Callbacks.AuthDomainGenericAuthCallback_WithClosures)
getAuthDomainGenericAuthCallback :: o -> m (Maybe AuthDomainGenericAuthCallback_WithClosures)
getAuthDomainGenericAuthCallback obj :: o
obj = IO (Maybe AuthDomainGenericAuthCallback_WithClosures)
-> m (Maybe AuthDomainGenericAuthCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe AuthDomainGenericAuthCallback_WithClosures)
-> m (Maybe AuthDomainGenericAuthCallback_WithClosures))
-> IO (Maybe AuthDomainGenericAuthCallback_WithClosures)
-> m (Maybe AuthDomainGenericAuthCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (FunPtr C_AuthDomainGenericAuthCallback
-> AuthDomainGenericAuthCallback_WithClosures)
-> IO (Maybe AuthDomainGenericAuthCallback_WithClosures)
forall a b c.
GObject a =>
a -> String -> (FunPtr b -> c) -> IO (Maybe c)
B.Properties.getObjectPropertyCallback o
obj "generic-auth-callback" FunPtr C_AuthDomainGenericAuthCallback
-> AuthDomainGenericAuthCallback_WithClosures
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAuthDomain a, IsMessage b) =>
FunPtr C_AuthDomainGenericAuthCallback
-> a -> b -> Text -> Ptr () -> m Bool
Soup.Callbacks.dynamic_AuthDomainGenericAuthCallback
setAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback -> m ()
setAuthDomainGenericAuthCallback :: o -> FunPtr C_AuthDomainGenericAuthCallback -> m ()
setAuthDomainGenericAuthCallback obj :: o
obj val :: FunPtr C_AuthDomainGenericAuthCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> FunPtr C_AuthDomainGenericAuthCallback -> IO ()
forall a b. GObject a => a -> String -> FunPtr b -> IO ()
B.Properties.setObjectPropertyCallback o
obj "generic-auth-callback" FunPtr C_AuthDomainGenericAuthCallback
val
constructAuthDomainGenericAuthCallback :: (IsAuthDomain o) => FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback -> IO (GValueConstruct o)
constructAuthDomainGenericAuthCallback :: FunPtr C_AuthDomainGenericAuthCallback -> IO (GValueConstruct o)
constructAuthDomainGenericAuthCallback val :: FunPtr C_AuthDomainGenericAuthCallback
val = String
-> FunPtr C_AuthDomainGenericAuthCallback -> IO (GValueConstruct o)
forall b o. String -> FunPtr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyCallback "generic-auth-callback" FunPtr C_AuthDomainGenericAuthCallback
val
clearAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainGenericAuthCallback :: o -> m ()
clearAuthDomainGenericAuthCallback obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> FunPtr Any -> IO ()
forall a b. GObject a => a -> String -> FunPtr b -> IO ()
B.Properties.setObjectPropertyCallback o
obj "generic-auth-callback" FunPtr Any
forall a. FunPtr a
FP.nullFunPtr
#if defined(ENABLE_OVERLOADING)
data AuthDomainGenericAuthCallbackPropertyInfo
instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where
type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback)
type AttrTransferTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) Soup.Callbacks.AuthDomainGenericAuthCallback_WithClosures
type AttrTransferType AuthDomainGenericAuthCallbackPropertyInfo = FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback
type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Maybe Soup.Callbacks.AuthDomainGenericAuthCallback_WithClosures)
type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "generic-auth-callback"
type AttrOrigin AuthDomainGenericAuthCallbackPropertyInfo = AuthDomain
attrGet = getAuthDomainGenericAuthCallback
attrSet = setAuthDomainGenericAuthCallback
attrTransfer _ v = do
Soup.Callbacks.mk_AuthDomainGenericAuthCallback (Soup.Callbacks.wrap_AuthDomainGenericAuthCallback Nothing v)
attrConstruct = constructAuthDomainGenericAuthCallback
attrClear = clearAuthDomainGenericAuthCallback
#endif
getAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())
getAuthDomainGenericAuthData :: o -> m (Ptr ())
getAuthDomainGenericAuthData obj :: o
obj = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj "generic-auth-data"
setAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()
setAuthDomainGenericAuthData :: o -> Ptr () -> m ()
setAuthDomainGenericAuthData obj :: o
obj val :: Ptr ()
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Ptr () -> IO ()
forall a b. GObject a => a -> String -> Ptr b -> IO ()
B.Properties.setObjectPropertyPtr o
obj "generic-auth-data" Ptr ()
val
constructAuthDomainGenericAuthData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)
constructAuthDomainGenericAuthData :: Ptr () -> IO (GValueConstruct o)
constructAuthDomainGenericAuthData val :: Ptr ()
val = String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr "generic-auth-data" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data AuthDomainGenericAuthDataPropertyInfo
instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where
type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())
type AttrTransferType AuthDomainGenericAuthDataPropertyInfo = Ptr ()
type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())
type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "generic-auth-data"
type AttrOrigin AuthDomainGenericAuthDataPropertyInfo = AuthDomain
attrGet = getAuthDomainGenericAuthData
attrSet = setAuthDomainGenericAuthData
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainGenericAuthData
attrClear = undefined
#endif
getAuthDomainProxy :: (MonadIO m, IsAuthDomain o) => o -> m Bool
getAuthDomainProxy :: o -> m Bool
getAuthDomainProxy obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "proxy"
constructAuthDomainProxy :: (IsAuthDomain o) => Bool -> IO (GValueConstruct o)
constructAuthDomainProxy :: Bool -> IO (GValueConstruct o)
constructAuthDomainProxy val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "proxy" Bool
val
#if defined(ENABLE_OVERLOADING)
data AuthDomainProxyPropertyInfo
instance AttrInfo AuthDomainProxyPropertyInfo where
type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool
type AttrTransferType AuthDomainProxyPropertyInfo = Bool
type AttrGetType AuthDomainProxyPropertyInfo = Bool
type AttrLabel AuthDomainProxyPropertyInfo = "proxy"
type AttrOrigin AuthDomainProxyPropertyInfo = AuthDomain
attrGet = getAuthDomainProxy
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainProxy
attrClear = undefined
#endif
getAuthDomainRealm :: (MonadIO m, IsAuthDomain o) => o -> m T.Text
getAuthDomainRealm :: o -> m Text
getAuthDomainRealm obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getAuthDomainRealm" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "realm"
constructAuthDomainRealm :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainRealm :: Text -> IO (GValueConstruct o)
constructAuthDomainRealm val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "realm" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data AuthDomainRealmPropertyInfo
instance AttrInfo AuthDomainRealmPropertyInfo where
type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text
type AttrTransferType AuthDomainRealmPropertyInfo = T.Text
type AttrGetType AuthDomainRealmPropertyInfo = T.Text
type AttrLabel AuthDomainRealmPropertyInfo = "realm"
type AttrOrigin AuthDomainRealmPropertyInfo = AuthDomain
attrGet = getAuthDomainRealm
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainRealm
attrClear = undefined
#endif
setAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()
setAuthDomainRemovePath :: o -> Text -> m ()
setAuthDomainRemovePath obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "remove-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructAuthDomainRemovePath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)
constructAuthDomainRemovePath :: Text -> IO (GValueConstruct o)
constructAuthDomainRemovePath val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "remove-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> m ()
clearAuthDomainRemovePath :: o -> m ()
clearAuthDomainRemovePath obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "remove-path" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data AuthDomainRemovePathPropertyInfo
instance AttrInfo AuthDomainRemovePathPropertyInfo where
type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = IsAuthDomain
type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text
type AttrTransferType AuthDomainRemovePathPropertyInfo = T.Text
type AttrGetType AuthDomainRemovePathPropertyInfo = ()
type AttrLabel AuthDomainRemovePathPropertyInfo = "remove-path"
type AttrOrigin AuthDomainRemovePathPropertyInfo = AuthDomain
attrGet = undefined
attrSet = setAuthDomainRemovePath
attrTransfer _ v = do
return v
attrConstruct = constructAuthDomainRemovePath
attrClear = clearAuthDomainRemovePath
#endif
#if defined(ENABLE_OVERLOADING)
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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
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
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AuthDomain = AuthDomainSignalList
type AuthDomainSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
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 :: a -> b -> m (Maybe Text)
authDomainAccepts domain :: a
domain msg :: b
msg = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
Ptr Message
msg' <- b -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
CString
result <- Ptr AuthDomain -> Ptr Message -> IO CString
soup_auth_domain_accepts Ptr AuthDomain
domain' Ptr Message
msg'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
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
#endif
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 :: a -> Text -> m ()
authDomainAddPath domain :: a
domain path :: Text
path = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
CString
path' <- Text -> IO CString
textToCString Text
path
Ptr AuthDomain -> CString -> IO ()
soup_auth_domain_add_path Ptr AuthDomain
domain' CString
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthDomainAddPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainAddPathMethodInfo a signature where
overloadedMethod = authDomainAddPath
#endif
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 :: a -> b -> m ()
authDomainChallenge domain :: a
domain msg :: b
msg = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
Ptr Message
msg' <- b -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
Ptr AuthDomain -> Ptr Message -> IO ()
soup_auth_domain_challenge Ptr AuthDomain
domain' Ptr Message
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthDomainChallengeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainChallengeMethodInfo a signature where
overloadedMethod = authDomainChallenge
#endif
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 :: a -> b -> Text -> Text -> m Bool
authDomainCheckPassword domain :: a
domain msg :: b
msg username :: Text
username password :: Text
password = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
Ptr Message
msg' <- b -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
CString
username' <- Text -> IO CString
textToCString Text
username
CString
password' <- Text -> IO CString
textToCString Text
password
CInt
result <- Ptr AuthDomain -> Ptr Message -> CString -> CString -> IO CInt
soup_auth_domain_check_password Ptr AuthDomain
domain' Ptr Message
msg' CString
username' CString
password'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
username'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
password'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
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
#endif
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 :: a -> b -> m Bool
authDomainCovers domain :: a
domain msg :: b
msg = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
Ptr Message
msg' <- b -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
CInt
result <- Ptr AuthDomain -> Ptr Message -> IO CInt
soup_auth_domain_covers Ptr AuthDomain
domain' Ptr Message
msg'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AuthDomainCoversMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainCoversMethodInfo a signature where
overloadedMethod = authDomainCovers
#endif
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 :: a -> m Text
authDomainGetRealm domain :: a
domain = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
CString
result <- Ptr AuthDomain -> IO CString
soup_auth_domain_get_realm Ptr AuthDomain
domain'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "authDomainGetRealm" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AuthDomainGetRealmMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainGetRealmMethodInfo a signature where
overloadedMethod = authDomainGetRealm
#endif
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 :: a -> Text -> m ()
authDomainRemovePath domain :: a
domain path :: Text
path = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
CString
path' <- Text -> IO CString
textToCString Text
path
Ptr AuthDomain -> CString -> IO ()
soup_auth_domain_remove_path Ptr AuthDomain
domain' CString
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthDomainRemovePathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainRemovePathMethodInfo a signature where
overloadedMethod = authDomainRemovePath
#endif
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 :: a -> AuthDomainFilter -> m ()
authDomainSetFilter domain :: a
domain filter :: AuthDomainFilter
filter = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
FunPtr C_AuthDomainFilter
filter' <- C_AuthDomainFilter -> IO (FunPtr C_AuthDomainFilter)
Soup.Callbacks.mk_AuthDomainFilter (Maybe (Ptr (FunPtr C_AuthDomainFilter))
-> AuthDomainFilter_WithClosures -> C_AuthDomainFilter
Soup.Callbacks.wrap_AuthDomainFilter Maybe (Ptr (FunPtr C_AuthDomainFilter))
forall a. Maybe a
Nothing (AuthDomainFilter -> AuthDomainFilter_WithClosures
Soup.Callbacks.drop_closures_AuthDomainFilter AuthDomainFilter
filter))
let filterData :: Ptr ()
filterData = FunPtr C_AuthDomainFilter -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_AuthDomainFilter
filter'
let dnotify :: FunPtr (Ptr a -> IO ())
dnotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr AuthDomain
-> FunPtr C_AuthDomainFilter
-> Ptr ()
-> FunPtr (Ptr () -> IO ())
-> IO ()
soup_auth_domain_set_filter Ptr AuthDomain
domain' FunPtr C_AuthDomainFilter
filter' Ptr ()
filterData FunPtr (Ptr () -> IO ())
forall a. FunPtr (Ptr a -> IO ())
dnotify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthDomainSetFilterMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainFilter -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetFilterMethodInfo a signature where
overloadedMethod = authDomainSetFilter
#endif
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 :: a -> AuthDomainGenericAuthCallback -> m ()
authDomainSetGenericAuthCallback domain :: a
domain authCallback :: AuthDomainGenericAuthCallback
authCallback = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
FunPtr C_AuthDomainGenericAuthCallback
authCallback' <- C_AuthDomainGenericAuthCallback
-> IO (FunPtr C_AuthDomainGenericAuthCallback)
Soup.Callbacks.mk_AuthDomainGenericAuthCallback (Maybe (Ptr (FunPtr C_AuthDomainGenericAuthCallback))
-> AuthDomainGenericAuthCallback_WithClosures
-> C_AuthDomainGenericAuthCallback
Soup.Callbacks.wrap_AuthDomainGenericAuthCallback Maybe (Ptr (FunPtr C_AuthDomainGenericAuthCallback))
forall a. Maybe a
Nothing (AuthDomainGenericAuthCallback
-> AuthDomainGenericAuthCallback_WithClosures
Soup.Callbacks.drop_closures_AuthDomainGenericAuthCallback AuthDomainGenericAuthCallback
authCallback))
let authData :: Ptr ()
authData = FunPtr C_AuthDomainGenericAuthCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_AuthDomainGenericAuthCallback
authCallback'
let dnotify :: FunPtr (Ptr a -> IO ())
dnotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr AuthDomain
-> FunPtr C_AuthDomainGenericAuthCallback
-> Ptr ()
-> FunPtr (Ptr () -> IO ())
-> IO ()
soup_auth_domain_set_generic_auth_callback Ptr AuthDomain
domain' FunPtr C_AuthDomainGenericAuthCallback
authCallback' Ptr ()
authData FunPtr (Ptr () -> IO ())
forall a. FunPtr (Ptr a -> IO ())
dnotify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthDomainSetGenericAuthCallbackMethodInfo
instance (signature ~ (Soup.Callbacks.AuthDomainGenericAuthCallback -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetGenericAuthCallbackMethodInfo a signature where
overloadedMethod = authDomainSetGenericAuthCallback
#endif
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 :: a -> b -> Text -> m Bool
authDomainTryGenericAuthCallback domain :: a
domain msg :: b
msg username :: Text
username = 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 AuthDomain
domain' <- a -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
domain
Ptr Message
msg' <- b -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
CString
username' <- Text -> IO CString
textToCString Text
username
CInt
result <- Ptr AuthDomain -> Ptr Message -> CString -> IO CInt
soup_auth_domain_try_generic_auth_callback Ptr AuthDomain
domain' Ptr Message
msg' CString
username'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
domain
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
username'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
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
#endif