{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Objects.CookieJar
(
CookieJar(..) ,
IsCookieJar ,
toCookieJar ,
#if defined(ENABLE_OVERLOADING)
ResolveCookieJarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CookieJarAddCookieMethodInfo ,
#endif
cookieJarAddCookie ,
#if defined(ENABLE_OVERLOADING)
CookieJarAddCookieFullMethodInfo ,
#endif
cookieJarAddCookieFull ,
#if defined(ENABLE_OVERLOADING)
CookieJarAddCookieWithFirstPartyMethodInfo,
#endif
cookieJarAddCookieWithFirstParty ,
#if defined(ENABLE_OVERLOADING)
CookieJarAllCookiesMethodInfo ,
#endif
cookieJarAllCookies ,
#if defined(ENABLE_OVERLOADING)
CookieJarDeleteCookieMethodInfo ,
#endif
cookieJarDeleteCookie ,
#if defined(ENABLE_OVERLOADING)
CookieJarGetAcceptPolicyMethodInfo ,
#endif
cookieJarGetAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
CookieJarGetCookieListMethodInfo ,
#endif
cookieJarGetCookieList ,
#if defined(ENABLE_OVERLOADING)
CookieJarGetCookieListWithSameSiteInfoMethodInfo,
#endif
cookieJarGetCookieListWithSameSiteInfo ,
#if defined(ENABLE_OVERLOADING)
CookieJarGetCookiesMethodInfo ,
#endif
cookieJarGetCookies ,
#if defined(ENABLE_OVERLOADING)
CookieJarIsPersistentMethodInfo ,
#endif
cookieJarIsPersistent ,
cookieJarNew ,
#if defined(ENABLE_OVERLOADING)
CookieJarSaveMethodInfo ,
#endif
cookieJarSave ,
#if defined(ENABLE_OVERLOADING)
CookieJarSetAcceptPolicyMethodInfo ,
#endif
cookieJarSetAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
CookieJarSetCookieMethodInfo ,
#endif
cookieJarSetCookie ,
#if defined(ENABLE_OVERLOADING)
CookieJarSetCookieWithFirstPartyMethodInfo,
#endif
cookieJarSetCookieWithFirstParty ,
#if defined(ENABLE_OVERLOADING)
CookieJarAcceptPolicyPropertyInfo ,
#endif
constructCookieJarAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
cookieJarAcceptPolicy ,
#endif
getCookieJarAcceptPolicy ,
setCookieJarAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
CookieJarReadOnlyPropertyInfo ,
#endif
constructCookieJarReadOnly ,
#if defined(ENABLE_OVERLOADING)
cookieJarReadOnly ,
#endif
getCookieJarReadOnly ,
C_CookieJarChangedCallback ,
CookieJarChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CookieJarChangedSignalInfo ,
#endif
afterCookieJarChanged ,
genClosure_CookieJarChanged ,
mk_CookieJarChangedCallback ,
noCookieJarChangedCallback ,
onCookieJarChanged ,
wrap_CookieJarChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums
import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature
import {-# SOURCE #-} qualified GI.Soup.Structs.Cookie as Soup.Cookie
import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI
newtype CookieJar = CookieJar (SP.ManagedPtr CookieJar)
deriving (CookieJar -> CookieJar -> Bool
(CookieJar -> CookieJar -> Bool)
-> (CookieJar -> CookieJar -> Bool) -> Eq CookieJar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CookieJar -> CookieJar -> Bool
$c/= :: CookieJar -> CookieJar -> Bool
== :: CookieJar -> CookieJar -> Bool
$c== :: CookieJar -> CookieJar -> Bool
Eq)
instance SP.ManagedPtrNewtype CookieJar where
toManagedPtr :: CookieJar -> ManagedPtr CookieJar
toManagedPtr (CookieJar ManagedPtr CookieJar
p) = ManagedPtr CookieJar
p
foreign import ccall "soup_cookie_jar_get_type"
c_soup_cookie_jar_get_type :: IO B.Types.GType
instance B.Types.TypedObject CookieJar where
glibType :: IO GType
glibType = IO GType
c_soup_cookie_jar_get_type
instance B.Types.GObject CookieJar
instance B.GValue.IsGValue CookieJar where
toGValue :: CookieJar -> IO GValue
toGValue CookieJar
o = do
GType
gtype <- IO GType
c_soup_cookie_jar_get_type
CookieJar -> (Ptr CookieJar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CookieJar
o (GType
-> (GValue -> Ptr CookieJar -> IO ()) -> Ptr CookieJar -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr CookieJar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO CookieJar
fromGValue GValue
gv = do
Ptr CookieJar
ptr <- GValue -> IO (Ptr CookieJar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr CookieJar)
(ManagedPtr CookieJar -> CookieJar)
-> Ptr CookieJar -> IO CookieJar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CookieJar -> CookieJar
CookieJar Ptr CookieJar
ptr
class (SP.GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o
instance (SP.GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o
instance O.HasParentTypes CookieJar
type instance O.ParentTypes CookieJar = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]
toCookieJar :: (MonadIO m, IsCookieJar o) => o -> m CookieJar
toCookieJar :: o -> m CookieJar
toCookieJar = IO CookieJar -> m CookieJar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieJar -> m CookieJar)
-> (o -> IO CookieJar) -> o -> m CookieJar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CookieJar -> CookieJar) -> o -> IO CookieJar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr CookieJar -> CookieJar
CookieJar
#if defined(ENABLE_OVERLOADING)
type family ResolveCookieJarMethod (t :: Symbol) (o :: *) :: * where
ResolveCookieJarMethod "addCookie" o = CookieJarAddCookieMethodInfo
ResolveCookieJarMethod "addCookieFull" o = CookieJarAddCookieFullMethodInfo
ResolveCookieJarMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo
ResolveCookieJarMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo
ResolveCookieJarMethod "allCookies" o = CookieJarAllCookiesMethodInfo
ResolveCookieJarMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo
ResolveCookieJarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCookieJarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCookieJarMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo
ResolveCookieJarMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo
ResolveCookieJarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCookieJarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCookieJarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCookieJarMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo
ResolveCookieJarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCookieJarMethod "isPersistent" o = CookieJarIsPersistentMethodInfo
ResolveCookieJarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCookieJarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCookieJarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCookieJarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCookieJarMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo
ResolveCookieJarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCookieJarMethod "save" o = CookieJarSaveMethodInfo
ResolveCookieJarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCookieJarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCookieJarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCookieJarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCookieJarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCookieJarMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo
ResolveCookieJarMethod "getCookieList" o = CookieJarGetCookieListMethodInfo
ResolveCookieJarMethod "getCookieListWithSameSiteInfo" o = CookieJarGetCookieListWithSameSiteInfoMethodInfo
ResolveCookieJarMethod "getCookies" o = CookieJarGetCookiesMethodInfo
ResolveCookieJarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCookieJarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCookieJarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCookieJarMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo
ResolveCookieJarMethod "setCookie" o = CookieJarSetCookieMethodInfo
ResolveCookieJarMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo
ResolveCookieJarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCookieJarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCookieJarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCookieJarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCookieJarMethod t CookieJar, O.MethodInfo info CookieJar p) => OL.IsLabel t (CookieJar -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type CookieJarChangedCallback =
Soup.Cookie.Cookie
-> Soup.Cookie.Cookie
-> IO ()
noCookieJarChangedCallback :: Maybe CookieJarChangedCallback
noCookieJarChangedCallback :: Maybe CookieJarChangedCallback
noCookieJarChangedCallback = Maybe CookieJarChangedCallback
forall a. Maybe a
Nothing
type C_CookieJarChangedCallback =
Ptr () ->
Ptr Soup.Cookie.Cookie ->
Ptr Soup.Cookie.Cookie ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CookieJarChangedCallback :: C_CookieJarChangedCallback -> IO (FunPtr C_CookieJarChangedCallback)
genClosure_CookieJarChanged :: MonadIO m => CookieJarChangedCallback -> m (GClosure C_CookieJarChangedCallback)
genClosure_CookieJarChanged :: CookieJarChangedCallback -> m (GClosure C_CookieJarChangedCallback)
genClosure_CookieJarChanged CookieJarChangedCallback
cb = IO (GClosure C_CookieJarChangedCallback)
-> m (GClosure C_CookieJarChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CookieJarChangedCallback)
-> m (GClosure C_CookieJarChangedCallback))
-> IO (GClosure C_CookieJarChangedCallback)
-> m (GClosure C_CookieJarChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CookieJarChangedCallback
cb' = CookieJarChangedCallback -> C_CookieJarChangedCallback
wrap_CookieJarChangedCallback CookieJarChangedCallback
cb
C_CookieJarChangedCallback
-> IO (FunPtr C_CookieJarChangedCallback)
mk_CookieJarChangedCallback C_CookieJarChangedCallback
cb' IO (FunPtr C_CookieJarChangedCallback)
-> (FunPtr C_CookieJarChangedCallback
-> IO (GClosure C_CookieJarChangedCallback))
-> IO (GClosure C_CookieJarChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CookieJarChangedCallback
-> IO (GClosure C_CookieJarChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CookieJarChangedCallback ::
CookieJarChangedCallback ->
C_CookieJarChangedCallback
wrap_CookieJarChangedCallback :: CookieJarChangedCallback -> C_CookieJarChangedCallback
wrap_CookieJarChangedCallback CookieJarChangedCallback
_cb Ptr ()
_ Ptr Cookie
oldCookie Ptr Cookie
newCookie Ptr ()
_ = do
(ManagedPtr Cookie -> Cookie)
-> Ptr Cookie -> (Cookie -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Cookie -> Cookie
Soup.Cookie.Cookie Ptr Cookie
oldCookie ((Cookie -> IO ()) -> IO ()) -> (Cookie -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Cookie
oldCookie' -> do
(ManagedPtr Cookie -> Cookie)
-> Ptr Cookie -> (Cookie -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Cookie -> Cookie
Soup.Cookie.Cookie Ptr Cookie
newCookie ((Cookie -> IO ()) -> IO ()) -> (Cookie -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Cookie
newCookie' -> do
CookieJarChangedCallback
_cb Cookie
oldCookie' Cookie
newCookie'
onCookieJarChanged :: (IsCookieJar a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId
onCookieJarChanged :: a -> CookieJarChangedCallback -> m SignalHandlerId
onCookieJarChanged a
obj CookieJarChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CookieJarChangedCallback
cb' = CookieJarChangedCallback -> C_CookieJarChangedCallback
wrap_CookieJarChangedCallback CookieJarChangedCallback
cb
FunPtr C_CookieJarChangedCallback
cb'' <- C_CookieJarChangedCallback
-> IO (FunPtr C_CookieJarChangedCallback)
mk_CookieJarChangedCallback C_CookieJarChangedCallback
cb'
a
-> Text
-> FunPtr C_CookieJarChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_CookieJarChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCookieJarChanged :: (IsCookieJar a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId
afterCookieJarChanged :: a -> CookieJarChangedCallback -> m SignalHandlerId
afterCookieJarChanged a
obj CookieJarChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CookieJarChangedCallback
cb' = CookieJarChangedCallback -> C_CookieJarChangedCallback
wrap_CookieJarChangedCallback CookieJarChangedCallback
cb
FunPtr C_CookieJarChangedCallback
cb'' <- C_CookieJarChangedCallback
-> IO (FunPtr C_CookieJarChangedCallback)
mk_CookieJarChangedCallback C_CookieJarChangedCallback
cb'
a
-> Text
-> FunPtr C_CookieJarChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_CookieJarChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CookieJarChangedSignalInfo
instance SignalInfo CookieJarChangedSignalInfo where
type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CookieJarChangedCallback cb
cb'' <- mk_CookieJarChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
#endif
getCookieJarAcceptPolicy :: (MonadIO m, IsCookieJar o) => o -> m Soup.Enums.CookieJarAcceptPolicy
getCookieJarAcceptPolicy :: o -> m CookieJarAcceptPolicy
getCookieJarAcceptPolicy o
obj = IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy)
-> IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CookieJarAcceptPolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"accept-policy"
setCookieJarAcceptPolicy :: (MonadIO m, IsCookieJar o) => o -> Soup.Enums.CookieJarAcceptPolicy -> m ()
setCookieJarAcceptPolicy :: o -> CookieJarAcceptPolicy -> m ()
setCookieJarAcceptPolicy o
obj CookieJarAcceptPolicy
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 -> CookieJarAcceptPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"accept-policy" CookieJarAcceptPolicy
val
constructCookieJarAcceptPolicy :: (IsCookieJar o, MIO.MonadIO m) => Soup.Enums.CookieJarAcceptPolicy -> m (GValueConstruct o)
constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> m (GValueConstruct o)
constructCookieJarAcceptPolicy CookieJarAcceptPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> CookieJarAcceptPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"accept-policy" CookieJarAcceptPolicy
val
#if defined(ENABLE_OVERLOADING)
data CookieJarAcceptPolicyPropertyInfo
instance AttrInfo CookieJarAcceptPolicyPropertyInfo where
type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = IsCookieJar
type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) Soup.Enums.CookieJarAcceptPolicy
type AttrTransferTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) Soup.Enums.CookieJarAcceptPolicy
type AttrTransferType CookieJarAcceptPolicyPropertyInfo = Soup.Enums.CookieJarAcceptPolicy
type AttrGetType CookieJarAcceptPolicyPropertyInfo = Soup.Enums.CookieJarAcceptPolicy
type AttrLabel CookieJarAcceptPolicyPropertyInfo = "accept-policy"
type AttrOrigin CookieJarAcceptPolicyPropertyInfo = CookieJar
attrGet = getCookieJarAcceptPolicy
attrSet = setCookieJarAcceptPolicy
attrTransfer _ v = do
return v
attrConstruct = constructCookieJarAcceptPolicy
attrClear = undefined
#endif
getCookieJarReadOnly :: (MonadIO m, IsCookieJar o) => o -> m Bool
getCookieJarReadOnly :: o -> m Bool
getCookieJarReadOnly 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 String
"read-only"
constructCookieJarReadOnly :: (IsCookieJar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCookieJarReadOnly :: Bool -> m (GValueConstruct o)
constructCookieJarReadOnly Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"read-only" Bool
val
#if defined(ENABLE_OVERLOADING)
data CookieJarReadOnlyPropertyInfo
instance AttrInfo CookieJarReadOnlyPropertyInfo where
type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = IsCookieJar
type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool
type AttrTransferType CookieJarReadOnlyPropertyInfo = Bool
type AttrGetType CookieJarReadOnlyPropertyInfo = Bool
type AttrLabel CookieJarReadOnlyPropertyInfo = "read-only"
type AttrOrigin CookieJarReadOnlyPropertyInfo = CookieJar
attrGet = getCookieJarReadOnly
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructCookieJarReadOnly
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CookieJar
type instance O.AttributeList CookieJar = CookieJarAttributeList
type CookieJarAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
cookieJarAcceptPolicy :: AttrLabelProxy "acceptPolicy"
cookieJarAcceptPolicy = AttrLabelProxy
cookieJarReadOnly :: AttrLabelProxy "readOnly"
cookieJarReadOnly = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CookieJar = CookieJarSignalList
type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new ::
IO (Ptr CookieJar)
cookieJarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CookieJar
cookieJarNew :: m CookieJar
cookieJarNew = IO CookieJar -> m CookieJar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieJar -> m CookieJar) -> IO CookieJar -> m CookieJar
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieJar
result <- IO (Ptr CookieJar)
soup_cookie_jar_new
Text -> Ptr CookieJar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cookieJarNew" Ptr CookieJar
result
CookieJar
result' <- ((ManagedPtr CookieJar -> CookieJar)
-> Ptr CookieJar -> IO CookieJar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CookieJar -> CookieJar
CookieJar) Ptr CookieJar
result
CookieJar -> IO CookieJar
forall (m :: * -> *) a. Monad m => a -> m a
return CookieJar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie ::
Ptr CookieJar ->
Ptr Soup.Cookie.Cookie ->
IO ()
cookieJarAddCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.Cookie.Cookie
-> m ()
cookieJarAddCookie :: a -> Cookie -> m ()
cookieJarAddCookie a
jar Cookie
cookie = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Cookie
cookie
Ptr CookieJar -> Ptr Cookie -> IO ()
soup_cookie_jar_add_cookie Ptr CookieJar
jar' Ptr Cookie
cookie'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarAddCookieMethodInfo
instance (signature ~ (Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAddCookieMethodInfo a signature where
overloadedMethod = cookieJarAddCookie
#endif
foreign import ccall "soup_cookie_jar_add_cookie_full" soup_cookie_jar_add_cookie_full ::
Ptr CookieJar ->
Ptr Soup.Cookie.Cookie ->
Ptr Soup.URI.URI ->
Ptr Soup.URI.URI ->
IO ()
cookieJarAddCookieFull ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.Cookie.Cookie
-> Maybe (Soup.URI.URI)
-> Maybe (Soup.URI.URI)
-> m ()
cookieJarAddCookieFull :: a -> Cookie -> Maybe URI -> Maybe URI -> m ()
cookieJarAddCookieFull a
jar Cookie
cookie Maybe URI
uri Maybe URI
firstParty = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Cookie
cookie
Ptr URI
maybeUri <- case Maybe URI
uri of
Maybe URI
Nothing -> Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
forall a. Ptr a
nullPtr
Just URI
jUri -> do
Ptr URI
jUri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
jUri
Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
jUri'
Ptr URI
maybeFirstParty <- case Maybe URI
firstParty of
Maybe URI
Nothing -> Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
forall a. Ptr a
nullPtr
Just URI
jFirstParty -> do
Ptr URI
jFirstParty' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
jFirstParty
Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
jFirstParty'
Ptr CookieJar -> Ptr Cookie -> Ptr URI -> Ptr URI -> IO ()
soup_cookie_jar_add_cookie_full Ptr CookieJar
jar' Ptr Cookie
cookie' Ptr URI
maybeUri Ptr URI
maybeFirstParty
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
Maybe URI -> (URI -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe URI
uri URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe URI -> (URI -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe URI
firstParty URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarAddCookieFullMethodInfo
instance (signature ~ (Soup.Cookie.Cookie -> Maybe (Soup.URI.URI) -> Maybe (Soup.URI.URI) -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAddCookieFullMethodInfo a signature where
overloadedMethod = cookieJarAddCookieFull
#endif
foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
Ptr Soup.Cookie.Cookie ->
IO ()
cookieJarAddCookieWithFirstParty ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> Soup.Cookie.Cookie
-> m ()
cookieJarAddCookieWithFirstParty :: a -> URI -> Cookie -> m ()
cookieJarAddCookieWithFirstParty a
jar URI
firstParty Cookie
cookie = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
firstParty' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
firstParty
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Cookie
cookie
Ptr CookieJar -> Ptr URI -> Ptr Cookie -> IO ()
soup_cookie_jar_add_cookie_with_first_party Ptr CookieJar
jar' Ptr URI
firstParty' Ptr Cookie
cookie'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
firstParty
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarAddCookieWithFirstPartyMethodInfo
instance (signature ~ (Soup.URI.URI -> Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAddCookieWithFirstPartyMethodInfo a signature where
overloadedMethod = cookieJarAddCookieWithFirstParty
#endif
foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies ::
Ptr CookieJar ->
IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))
cookieJarAllCookies ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> m [Soup.Cookie.Cookie]
cookieJarAllCookies :: a -> m [Cookie]
cookieJarAllCookies a
jar = IO [Cookie] -> m [Cookie]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Cookie] -> m [Cookie]) -> IO [Cookie] -> m [Cookie]
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr (GSList (Ptr Cookie))
result <- Ptr CookieJar -> IO (Ptr (GSList (Ptr Cookie)))
soup_cookie_jar_all_cookies Ptr CookieJar
jar'
[Ptr Cookie]
result' <- Ptr (GSList (Ptr Cookie)) -> IO [Ptr Cookie]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Cookie))
result
[Cookie]
result'' <- (Ptr Cookie -> IO Cookie) -> [Ptr Cookie] -> IO [Cookie]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Cookie -> Cookie) -> Ptr Cookie -> IO Cookie
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Cookie -> Cookie
Soup.Cookie.Cookie) [Ptr Cookie]
result'
Ptr (GSList (Ptr Cookie)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Cookie))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
[Cookie] -> IO [Cookie]
forall (m :: * -> *) a. Monad m => a -> m a
return [Cookie]
result''
#if defined(ENABLE_OVERLOADING)
data CookieJarAllCookiesMethodInfo
instance (signature ~ (m [Soup.Cookie.Cookie]), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAllCookiesMethodInfo a signature where
overloadedMethod = cookieJarAllCookies
#endif
foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie ::
Ptr CookieJar ->
Ptr Soup.Cookie.Cookie ->
IO ()
cookieJarDeleteCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.Cookie.Cookie
-> m ()
cookieJarDeleteCookie :: a -> Cookie -> m ()
cookieJarDeleteCookie a
jar Cookie
cookie = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Cookie
cookie
Ptr CookieJar -> Ptr Cookie -> IO ()
soup_cookie_jar_delete_cookie Ptr CookieJar
jar' Ptr Cookie
cookie'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarDeleteCookieMethodInfo
instance (signature ~ (Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarDeleteCookieMethodInfo a signature where
overloadedMethod = cookieJarDeleteCookie
#endif
foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy ::
Ptr CookieJar ->
IO CUInt
cookieJarGetAcceptPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> m Soup.Enums.CookieJarAcceptPolicy
cookieJarGetAcceptPolicy :: a -> m CookieJarAcceptPolicy
cookieJarGetAcceptPolicy a
jar = IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy)
-> IO CookieJarAcceptPolicy -> m CookieJarAcceptPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
CUInt
result <- Ptr CookieJar -> IO CUInt
soup_cookie_jar_get_accept_policy Ptr CookieJar
jar'
let result' :: CookieJarAcceptPolicy
result' = (Int -> CookieJarAcceptPolicy
forall a. Enum a => Int -> a
toEnum (Int -> CookieJarAcceptPolicy)
-> (CUInt -> Int) -> CUInt -> CookieJarAcceptPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
CookieJarAcceptPolicy -> IO CookieJarAcceptPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return CookieJarAcceptPolicy
result'
#if defined(ENABLE_OVERLOADING)
data CookieJarGetAcceptPolicyMethodInfo
instance (signature ~ (m Soup.Enums.CookieJarAcceptPolicy), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetAcceptPolicyMethodInfo a signature where
overloadedMethod = cookieJarGetAcceptPolicy
#endif
foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
CInt ->
IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))
cookieJarGetCookieList ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> Bool
-> m [Soup.Cookie.Cookie]
cookieJarGetCookieList :: a -> URI -> Bool -> m [Cookie]
cookieJarGetCookieList a
jar URI
uri Bool
forHttp = IO [Cookie] -> m [Cookie]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Cookie] -> m [Cookie]) -> IO [Cookie] -> m [Cookie]
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
uri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
uri
let forHttp' :: CInt
forHttp' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
forHttp
Ptr (GSList (Ptr Cookie))
result <- Ptr CookieJar -> Ptr URI -> CInt -> IO (Ptr (GSList (Ptr Cookie)))
soup_cookie_jar_get_cookie_list Ptr CookieJar
jar' Ptr URI
uri' CInt
forHttp'
[Ptr Cookie]
result' <- Ptr (GSList (Ptr Cookie)) -> IO [Ptr Cookie]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Cookie))
result
[Cookie]
result'' <- (Ptr Cookie -> IO Cookie) -> [Ptr Cookie] -> IO [Cookie]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Cookie -> Cookie) -> Ptr Cookie -> IO Cookie
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Cookie -> Cookie
Soup.Cookie.Cookie) [Ptr Cookie]
result'
Ptr (GSList (Ptr Cookie)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Cookie))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
uri
[Cookie] -> IO [Cookie]
forall (m :: * -> *) a. Monad m => a -> m a
return [Cookie]
result''
#if defined(ENABLE_OVERLOADING)
data CookieJarGetCookieListMethodInfo
instance (signature ~ (Soup.URI.URI -> Bool -> m [Soup.Cookie.Cookie]), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetCookieListMethodInfo a signature where
overloadedMethod = cookieJarGetCookieList
#endif
foreign import ccall "soup_cookie_jar_get_cookie_list_with_same_site_info" soup_cookie_jar_get_cookie_list_with_same_site_info ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
Ptr Soup.URI.URI ->
Ptr Soup.URI.URI ->
CInt ->
CInt ->
CInt ->
IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))
cookieJarGetCookieListWithSameSiteInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> Maybe (Soup.URI.URI)
-> Maybe (Soup.URI.URI)
-> Bool
-> Bool
-> Bool
-> m [Soup.Cookie.Cookie]
cookieJarGetCookieListWithSameSiteInfo :: a
-> URI
-> Maybe URI
-> Maybe URI
-> Bool
-> Bool
-> Bool
-> m [Cookie]
cookieJarGetCookieListWithSameSiteInfo a
jar URI
uri Maybe URI
topLevel Maybe URI
siteForCookies Bool
forHttp Bool
isSafeMethod Bool
isTopLevelNavigation = IO [Cookie] -> m [Cookie]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Cookie] -> m [Cookie]) -> IO [Cookie] -> m [Cookie]
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
uri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
uri
Ptr URI
maybeTopLevel <- case Maybe URI
topLevel of
Maybe URI
Nothing -> Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
forall a. Ptr a
nullPtr
Just URI
jTopLevel -> do
Ptr URI
jTopLevel' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
jTopLevel
Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
jTopLevel'
Ptr URI
maybeSiteForCookies <- case Maybe URI
siteForCookies of
Maybe URI
Nothing -> Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
forall a. Ptr a
nullPtr
Just URI
jSiteForCookies -> do
Ptr URI
jSiteForCookies' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
jSiteForCookies
Ptr URI -> IO (Ptr URI)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr URI
jSiteForCookies'
let forHttp' :: CInt
forHttp' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
forHttp
let isSafeMethod' :: CInt
isSafeMethod' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isSafeMethod
let isTopLevelNavigation' :: CInt
isTopLevelNavigation' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isTopLevelNavigation
Ptr (GSList (Ptr Cookie))
result <- Ptr CookieJar
-> Ptr URI
-> Ptr URI
-> Ptr URI
-> CInt
-> CInt
-> CInt
-> IO (Ptr (GSList (Ptr Cookie)))
soup_cookie_jar_get_cookie_list_with_same_site_info Ptr CookieJar
jar' Ptr URI
uri' Ptr URI
maybeTopLevel Ptr URI
maybeSiteForCookies CInt
forHttp' CInt
isSafeMethod' CInt
isTopLevelNavigation'
[Ptr Cookie]
result' <- Ptr (GSList (Ptr Cookie)) -> IO [Ptr Cookie]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Cookie))
result
[Cookie]
result'' <- (Ptr Cookie -> IO Cookie) -> [Ptr Cookie] -> IO [Cookie]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Cookie -> Cookie) -> Ptr Cookie -> IO Cookie
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Cookie -> Cookie
Soup.Cookie.Cookie) [Ptr Cookie]
result'
Ptr (GSList (Ptr Cookie)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Cookie))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
uri
Maybe URI -> (URI -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe URI
topLevel URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe URI -> (URI -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe URI
siteForCookies URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
[Cookie] -> IO [Cookie]
forall (m :: * -> *) a. Monad m => a -> m a
return [Cookie]
result''
#if defined(ENABLE_OVERLOADING)
data CookieJarGetCookieListWithSameSiteInfoMethodInfo
instance (signature ~ (Soup.URI.URI -> Maybe (Soup.URI.URI) -> Maybe (Soup.URI.URI) -> Bool -> Bool -> Bool -> m [Soup.Cookie.Cookie]), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetCookieListWithSameSiteInfoMethodInfo a signature where
overloadedMethod = cookieJarGetCookieListWithSameSiteInfo
#endif
foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
CInt ->
IO CString
cookieJarGetCookies ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> Bool
-> m (Maybe T.Text)
cookieJarGetCookies :: a -> URI -> Bool -> m (Maybe Text)
cookieJarGetCookies a
jar URI
uri Bool
forHttp = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
uri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
uri
let forHttp' :: CInt
forHttp' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
forHttp
CString
result <- Ptr CookieJar -> Ptr URI -> CInt -> IO CString
soup_cookie_jar_get_cookies Ptr CookieJar
jar' Ptr URI
uri' CInt
forHttp'
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
$ \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
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
uri
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data CookieJarGetCookiesMethodInfo
instance (signature ~ (Soup.URI.URI -> Bool -> m (Maybe T.Text)), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetCookiesMethodInfo a signature where
overloadedMethod = cookieJarGetCookies
#endif
foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent ::
Ptr CookieJar ->
IO CInt
cookieJarIsPersistent ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> m Bool
cookieJarIsPersistent :: a -> m Bool
cookieJarIsPersistent a
jar = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
CInt
result <- Ptr CookieJar -> IO CInt
soup_cookie_jar_is_persistent Ptr CookieJar
jar'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CookieJarIsPersistentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarIsPersistentMethodInfo a signature where
overloadedMethod = cookieJarIsPersistent
#endif
foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save ::
Ptr CookieJar ->
IO ()
{-# DEPRECATED cookieJarSave ["This is a no-op."] #-}
cookieJarSave ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> m ()
cookieJarSave :: a -> m ()
cookieJarSave a
jar = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr CookieJar -> IO ()
soup_cookie_jar_save Ptr CookieJar
jar'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarSaveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSaveMethodInfo a signature where
overloadedMethod = cookieJarSave
#endif
foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy ::
Ptr CookieJar ->
CUInt ->
IO ()
cookieJarSetAcceptPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.Enums.CookieJarAcceptPolicy
-> m ()
cookieJarSetAcceptPolicy :: a -> CookieJarAcceptPolicy -> m ()
cookieJarSetAcceptPolicy a
jar CookieJarAcceptPolicy
policy = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (CookieJarAcceptPolicy -> Int) -> CookieJarAcceptPolicy -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CookieJarAcceptPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) CookieJarAcceptPolicy
policy
Ptr CookieJar -> CUInt -> IO ()
soup_cookie_jar_set_accept_policy Ptr CookieJar
jar' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarSetAcceptPolicyMethodInfo
instance (signature ~ (Soup.Enums.CookieJarAcceptPolicy -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetAcceptPolicyMethodInfo a signature where
overloadedMethod = cookieJarSetAcceptPolicy
#endif
foreign import ccall "soup_cookie_jar_set_cookie" soup_cookie_jar_set_cookie ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
CString ->
IO ()
cookieJarSetCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> T.Text
-> m ()
cookieJarSetCookie :: a -> URI -> Text -> m ()
cookieJarSetCookie a
jar URI
uri Text
cookie = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
uri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
uri
CString
cookie' <- Text -> IO CString
textToCString Text
cookie
Ptr CookieJar -> Ptr URI -> CString -> IO ()
soup_cookie_jar_set_cookie Ptr CookieJar
jar' Ptr URI
uri' CString
cookie'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
uri
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cookie'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarSetCookieMethodInfo
instance (signature ~ (Soup.URI.URI -> T.Text -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetCookieMethodInfo a signature where
overloadedMethod = cookieJarSetCookie
#endif
foreign import ccall "soup_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party ::
Ptr CookieJar ->
Ptr Soup.URI.URI ->
Ptr Soup.URI.URI ->
CString ->
IO ()
cookieJarSetCookieWithFirstParty ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>
a
-> Soup.URI.URI
-> Soup.URI.URI
-> T.Text
-> m ()
cookieJarSetCookieWithFirstParty :: a -> URI -> URI -> Text -> m ()
cookieJarSetCookieWithFirstParty a
jar URI
uri URI
firstParty Text
cookie = 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 CookieJar
jar' <- a -> IO (Ptr CookieJar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jar
Ptr URI
uri' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
uri
Ptr URI
firstParty' <- URI -> IO (Ptr URI)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr URI
firstParty
CString
cookie' <- Text -> IO CString
textToCString Text
cookie
Ptr CookieJar -> Ptr URI -> Ptr URI -> CString -> IO ()
soup_cookie_jar_set_cookie_with_first_party Ptr CookieJar
jar' Ptr URI
uri' Ptr URI
firstParty' CString
cookie'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
jar
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
uri
URI -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr URI
firstParty
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cookie'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieJarSetCookieWithFirstPartyMethodInfo
instance (signature ~ (Soup.URI.URI -> Soup.URI.URI -> T.Text -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetCookieWithFirstPartyMethodInfo a signature where
overloadedMethod = cookieJarSetCookieWithFirstParty
#endif