{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.CookieManager
(
CookieManager(..) ,
IsCookieManager ,
toCookieManager ,
#if defined(ENABLE_OVERLOADING)
ResolveCookieManagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CookieManagerAddCookieMethodInfo ,
#endif
cookieManagerAddCookie ,
#if defined(ENABLE_OVERLOADING)
CookieManagerAddCookieFinishMethodInfo ,
#endif
cookieManagerAddCookieFinish ,
#if defined(ENABLE_OVERLOADING)
CookieManagerDeleteAllCookiesMethodInfo ,
#endif
cookieManagerDeleteAllCookies ,
#if defined(ENABLE_OVERLOADING)
CookieManagerDeleteCookieMethodInfo ,
#endif
cookieManagerDeleteCookie ,
#if defined(ENABLE_OVERLOADING)
CookieManagerDeleteCookieFinishMethodInfo,
#endif
cookieManagerDeleteCookieFinish ,
#if defined(ENABLE_OVERLOADING)
CookieManagerDeleteCookiesForDomainMethodInfo,
#endif
cookieManagerDeleteCookiesForDomain ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetAcceptPolicyMethodInfo ,
#endif
cookieManagerGetAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetAcceptPolicyFinishMethodInfo,
#endif
cookieManagerGetAcceptPolicyFinish ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetCookiesMethodInfo ,
#endif
cookieManagerGetCookies ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetCookiesFinishMethodInfo ,
#endif
cookieManagerGetCookiesFinish ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetDomainsWithCookiesMethodInfo,
#endif
cookieManagerGetDomainsWithCookies ,
#if defined(ENABLE_OVERLOADING)
CookieManagerGetDomainsWithCookiesFinishMethodInfo,
#endif
cookieManagerGetDomainsWithCookiesFinish,
#if defined(ENABLE_OVERLOADING)
CookieManagerSetAcceptPolicyMethodInfo ,
#endif
cookieManagerSetAcceptPolicy ,
#if defined(ENABLE_OVERLOADING)
CookieManagerSetPersistentStorageMethodInfo,
#endif
cookieManagerSetPersistentStorage ,
CookieManagerChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CookieManagerChangedSignalInfo ,
#endif
afterCookieManagerChanged ,
onCookieManagerChanged ,
) 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Soup.Structs.Cookie as Soup.Cookie
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
newtype CookieManager = CookieManager (SP.ManagedPtr CookieManager)
deriving (CookieManager -> CookieManager -> Bool
(CookieManager -> CookieManager -> Bool)
-> (CookieManager -> CookieManager -> Bool) -> Eq CookieManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CookieManager -> CookieManager -> Bool
== :: CookieManager -> CookieManager -> Bool
$c/= :: CookieManager -> CookieManager -> Bool
/= :: CookieManager -> CookieManager -> Bool
Eq)
instance SP.ManagedPtrNewtype CookieManager where
toManagedPtr :: CookieManager -> ManagedPtr CookieManager
toManagedPtr (CookieManager ManagedPtr CookieManager
p) = ManagedPtr CookieManager
p
foreign import ccall "webkit_cookie_manager_get_type"
c_webkit_cookie_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject CookieManager where
glibType :: IO GType
glibType = IO GType
c_webkit_cookie_manager_get_type
instance B.Types.GObject CookieManager
class (SP.GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o
instance (SP.GObject o, O.IsDescendantOf CookieManager o) => IsCookieManager o
instance O.HasParentTypes CookieManager
type instance O.ParentTypes CookieManager = '[GObject.Object.Object]
toCookieManager :: (MIO.MonadIO m, IsCookieManager o) => o -> m CookieManager
toCookieManager :: forall (m :: * -> *) o.
(MonadIO m, IsCookieManager o) =>
o -> m CookieManager
toCookieManager = IO CookieManager -> m CookieManager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CookieManager -> m CookieManager)
-> (o -> IO CookieManager) -> o -> m CookieManager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CookieManager -> CookieManager)
-> o -> IO CookieManager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CookieManager -> CookieManager
CookieManager
instance B.GValue.IsGValue (Maybe CookieManager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_cookie_manager_get_type
gvalueSet_ :: Ptr GValue -> Maybe CookieManager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CookieManager
P.Nothing = Ptr GValue -> Ptr CookieManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CookieManager
forall a. Ptr a
FP.nullPtr :: FP.Ptr CookieManager)
gvalueSet_ Ptr GValue
gv (P.Just CookieManager
obj) = CookieManager -> (Ptr CookieManager -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CookieManager
obj (Ptr GValue -> Ptr CookieManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CookieManager)
gvalueGet_ Ptr GValue
gv = do
Ptr CookieManager
ptr <- Ptr GValue -> IO (Ptr CookieManager)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CookieManager)
if Ptr CookieManager
ptr Ptr CookieManager -> Ptr CookieManager -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CookieManager
forall a. Ptr a
FP.nullPtr
then CookieManager -> Maybe CookieManager
forall a. a -> Maybe a
P.Just (CookieManager -> Maybe CookieManager)
-> IO CookieManager -> IO (Maybe CookieManager)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CookieManager -> CookieManager)
-> Ptr CookieManager -> IO CookieManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CookieManager -> CookieManager
CookieManager Ptr CookieManager
ptr
else Maybe CookieManager -> IO (Maybe CookieManager)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CookieManager
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCookieManagerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCookieManagerMethod "addCookie" o = CookieManagerAddCookieMethodInfo
ResolveCookieManagerMethod "addCookieFinish" o = CookieManagerAddCookieFinishMethodInfo
ResolveCookieManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCookieManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCookieManagerMethod "deleteAllCookies" o = CookieManagerDeleteAllCookiesMethodInfo
ResolveCookieManagerMethod "deleteCookie" o = CookieManagerDeleteCookieMethodInfo
ResolveCookieManagerMethod "deleteCookieFinish" o = CookieManagerDeleteCookieFinishMethodInfo
ResolveCookieManagerMethod "deleteCookiesForDomain" o = CookieManagerDeleteCookiesForDomainMethodInfo
ResolveCookieManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCookieManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCookieManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCookieManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCookieManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCookieManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCookieManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCookieManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCookieManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCookieManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCookieManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCookieManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCookieManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCookieManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCookieManagerMethod "getAcceptPolicy" o = CookieManagerGetAcceptPolicyMethodInfo
ResolveCookieManagerMethod "getAcceptPolicyFinish" o = CookieManagerGetAcceptPolicyFinishMethodInfo
ResolveCookieManagerMethod "getCookies" o = CookieManagerGetCookiesMethodInfo
ResolveCookieManagerMethod "getCookiesFinish" o = CookieManagerGetCookiesFinishMethodInfo
ResolveCookieManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCookieManagerMethod "getDomainsWithCookies" o = CookieManagerGetDomainsWithCookiesMethodInfo
ResolveCookieManagerMethod "getDomainsWithCookiesFinish" o = CookieManagerGetDomainsWithCookiesFinishMethodInfo
ResolveCookieManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCookieManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCookieManagerMethod "setAcceptPolicy" o = CookieManagerSetAcceptPolicyMethodInfo
ResolveCookieManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCookieManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCookieManagerMethod "setPersistentStorage" o = CookieManagerSetPersistentStorageMethodInfo
ResolveCookieManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCookieManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCookieManagerMethod t CookieManager, O.OverloadedMethod info CookieManager p) => OL.IsLabel t (CookieManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveCookieManagerMethod t CookieManager, O.OverloadedMethod info CookieManager p, R.HasField t CookieManager p) => R.HasField t CookieManager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCookieManagerMethod t CookieManager, O.OverloadedMethodInfo info CookieManager) => OL.IsLabel t (O.MethodProxy info CookieManager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CookieManagerChangedCallback =
IO ()
type C_CookieManagerChangedCallback =
Ptr CookieManager ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CookieManagerChangedCallback :: C_CookieManagerChangedCallback -> IO (FunPtr C_CookieManagerChangedCallback)
wrap_CookieManagerChangedCallback ::
GObject a => (a -> CookieManagerChangedCallback) ->
C_CookieManagerChangedCallback
wrap_CookieManagerChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CookieManagerChangedCallback
wrap_CookieManagerChangedCallback a -> IO ()
gi'cb Ptr CookieManager
gi'selfPtr Ptr ()
_ = do
Ptr CookieManager -> (CookieManager -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CookieManager
gi'selfPtr ((CookieManager -> IO ()) -> IO ())
-> (CookieManager -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CookieManager
gi'self -> a -> IO ()
gi'cb (CookieManager -> a
forall a b. Coercible a b => a -> b
Coerce.coerce CookieManager
gi'self)
onCookieManagerChanged :: (IsCookieManager a, MonadIO m) => a -> ((?self :: a) => CookieManagerChangedCallback) -> m SignalHandlerId
onCookieManagerChanged :: forall a (m :: * -> *).
(IsCookieManager a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCookieManagerChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_CookieManagerChangedCallback
wrapped' = (a -> IO ()) -> C_CookieManagerChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CookieManagerChangedCallback
wrap_CookieManagerChangedCallback a -> IO ()
wrapped
FunPtr C_CookieManagerChangedCallback
wrapped'' <- C_CookieManagerChangedCallback
-> IO (FunPtr C_CookieManagerChangedCallback)
mk_CookieManagerChangedCallback C_CookieManagerChangedCallback
wrapped'
a
-> Text
-> FunPtr C_CookieManagerChangedCallback
-> 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_CookieManagerChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCookieManagerChanged :: (IsCookieManager a, MonadIO m) => a -> ((?self :: a) => CookieManagerChangedCallback) -> m SignalHandlerId
afterCookieManagerChanged :: forall a (m :: * -> *).
(IsCookieManager a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCookieManagerChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_CookieManagerChangedCallback
wrapped' = (a -> IO ()) -> C_CookieManagerChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CookieManagerChangedCallback
wrap_CookieManagerChangedCallback a -> IO ()
wrapped
FunPtr C_CookieManagerChangedCallback
wrapped'' <- C_CookieManagerChangedCallback
-> IO (FunPtr C_CookieManagerChangedCallback)
mk_CookieManagerChangedCallback C_CookieManagerChangedCallback
wrapped'
a
-> Text
-> FunPtr C_CookieManagerChangedCallback
-> 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_CookieManagerChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CookieManagerChangedSignalInfo
instance SignalInfo CookieManagerChangedSignalInfo where
type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CookieManagerChangedCallback cb
cb'' <- mk_CookieManagerChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#g:signal:changed"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CookieManager
type instance O.AttributeList CookieManager = CookieManagerAttributeList
type CookieManagerAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CookieManager = CookieManagerSignalList
type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_cookie_manager_add_cookie" webkit_cookie_manager_add_cookie ::
Ptr CookieManager ->
Ptr Soup.Cookie.Cookie ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
cookieManagerAddCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>
a
-> Soup.Cookie.Cookie
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
cookieManagerAddCookie :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) =>
a -> Cookie -> Maybe b -> Maybe AsyncReadyCallback -> m ()
cookieManagerAddCookie a
cookieManager Cookie
cookie Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Cookie
cookie
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr CookieManager
-> Ptr Cookie
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_cookie_manager_add_cookie Ptr CookieManager
cookieManager' Ptr Cookie
cookie' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerAddCookieMethodInfo
instance (signature ~ (Soup.Cookie.Cookie -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod CookieManagerAddCookieMethodInfo a signature where
overloadedMethod = cookieManagerAddCookie
instance O.OverloadedMethodInfo CookieManagerAddCookieMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerAddCookie",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerAddCookie"
})
#endif
foreign import ccall "webkit_cookie_manager_add_cookie_finish" webkit_cookie_manager_add_cookie_finish ::
Ptr CookieManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
cookieManagerAddCookieFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
cookieManagerAddCookieFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsAsyncResult b) =>
a -> b -> m ()
cookieManagerAddCookieFinish a
cookieManager b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr CookieManager -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_cookie_manager_add_cookie_finish Ptr CookieManager
cookieManager' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CookieManagerAddCookieFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod CookieManagerAddCookieFinishMethodInfo a signature where
overloadedMethod = cookieManagerAddCookieFinish
instance O.OverloadedMethodInfo CookieManagerAddCookieFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerAddCookieFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerAddCookieFinish"
})
#endif
foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies ::
Ptr CookieManager ->
IO ()
{-# DEPRECATED cookieManagerDeleteAllCookies ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClear' instead."] #-}
cookieManagerDeleteAllCookies ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>
a
-> m ()
cookieManagerDeleteAllCookies :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCookieManager a) =>
a -> m ()
cookieManagerDeleteAllCookies a
cookieManager = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr CookieManager -> IO ()
webkit_cookie_manager_delete_all_cookies Ptr CookieManager
cookieManager'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerDeleteAllCookiesMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCookieManager a) => O.OverloadedMethod CookieManagerDeleteAllCookiesMethodInfo a signature where
overloadedMethod = cookieManagerDeleteAllCookies
instance O.OverloadedMethodInfo CookieManagerDeleteAllCookiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerDeleteAllCookies",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerDeleteAllCookies"
})
#endif
foreign import ccall "webkit_cookie_manager_delete_cookie" webkit_cookie_manager_delete_cookie ::
Ptr CookieManager ->
Ptr Soup.Cookie.Cookie ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
cookieManagerDeleteCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>
a
-> Soup.Cookie.Cookie
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
cookieManagerDeleteCookie :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) =>
a -> Cookie -> Maybe b -> Maybe AsyncReadyCallback -> m ()
cookieManagerDeleteCookie a
cookieManager Cookie
cookie Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr Cookie
cookie' <- Cookie -> IO (Ptr Cookie)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Cookie
cookie
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr CookieManager
-> Ptr Cookie
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_cookie_manager_delete_cookie Ptr CookieManager
cookieManager' Ptr Cookie
cookie' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
Cookie -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Cookie
cookie
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerDeleteCookieMethodInfo
instance (signature ~ (Soup.Cookie.Cookie -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod CookieManagerDeleteCookieMethodInfo a signature where
overloadedMethod = cookieManagerDeleteCookie
instance O.OverloadedMethodInfo CookieManagerDeleteCookieMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerDeleteCookie",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerDeleteCookie"
})
#endif
foreign import ccall "webkit_cookie_manager_delete_cookie_finish" webkit_cookie_manager_delete_cookie_finish ::
Ptr CookieManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
cookieManagerDeleteCookieFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
cookieManagerDeleteCookieFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsAsyncResult b) =>
a -> b -> m ()
cookieManagerDeleteCookieFinish a
cookieManager b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr CookieManager -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_cookie_manager_delete_cookie_finish Ptr CookieManager
cookieManager' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CookieManagerDeleteCookieFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod CookieManagerDeleteCookieFinishMethodInfo a signature where
overloadedMethod = cookieManagerDeleteCookieFinish
instance O.OverloadedMethodInfo CookieManagerDeleteCookieFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerDeleteCookieFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerDeleteCookieFinish"
})
#endif
foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain ::
Ptr CookieManager ->
CString ->
IO ()
{-# DEPRECATED cookieManagerDeleteCookiesForDomain ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemove' instead."] #-}
cookieManagerDeleteCookiesForDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>
a
-> T.Text
-> m ()
cookieManagerDeleteCookiesForDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCookieManager a) =>
a -> Text -> m ()
cookieManagerDeleteCookiesForDomain a
cookieManager Text
domain = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
CString
domain' <- Text -> IO CString
textToCString Text
domain
Ptr CookieManager -> CString -> IO ()
webkit_cookie_manager_delete_cookies_for_domain Ptr CookieManager
cookieManager' CString
domain'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
domain'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerDeleteCookiesForDomainMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsCookieManager a) => O.OverloadedMethod CookieManagerDeleteCookiesForDomainMethodInfo a signature where
overloadedMethod = cookieManagerDeleteCookiesForDomain
instance O.OverloadedMethodInfo CookieManagerDeleteCookiesForDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerDeleteCookiesForDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerDeleteCookiesForDomain"
})
#endif
foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy ::
Ptr CookieManager ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
cookieManagerGetAcceptPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
cookieManagerGetAcceptPolicy :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) =>
a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
cookieManagerGetAcceptPolicy a
cookieManager Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr CookieManager
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_cookie_manager_get_accept_policy Ptr CookieManager
cookieManager' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetAcceptPolicyMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod CookieManagerGetAcceptPolicyMethodInfo a signature where
overloadedMethod = cookieManagerGetAcceptPolicy
instance O.OverloadedMethodInfo CookieManagerGetAcceptPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetAcceptPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetAcceptPolicy"
})
#endif
foreign import ccall "webkit_cookie_manager_get_accept_policy_finish" webkit_cookie_manager_get_accept_policy_finish ::
Ptr CookieManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CUInt
cookieManagerGetAcceptPolicyFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m WebKit2.Enums.CookieAcceptPolicy
cookieManagerGetAcceptPolicyFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsAsyncResult b) =>
a -> b -> m CookieAcceptPolicy
cookieManagerGetAcceptPolicyFinish a
cookieManager b
result_ = IO CookieAcceptPolicy -> m CookieAcceptPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieAcceptPolicy -> m CookieAcceptPolicy)
-> IO CookieAcceptPolicy -> m CookieAcceptPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO CookieAcceptPolicy -> IO () -> IO CookieAcceptPolicy
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr CookieManager
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CUInt
webkit_cookie_manager_get_accept_policy_finish Ptr CookieManager
cookieManager' Ptr AsyncResult
result_'
let result' :: CookieAcceptPolicy
result' = (Int -> CookieAcceptPolicy
forall a. Enum a => Int -> a
toEnum (Int -> CookieAcceptPolicy)
-> (CUInt -> Int) -> CUInt -> CookieAcceptPolicy
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
cookieManager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
CookieAcceptPolicy -> IO CookieAcceptPolicy
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CookieAcceptPolicy
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetAcceptPolicyFinishMethodInfo
instance (signature ~ (b -> m WebKit2.Enums.CookieAcceptPolicy), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod CookieManagerGetAcceptPolicyFinishMethodInfo a signature where
overloadedMethod = cookieManagerGetAcceptPolicyFinish
instance O.OverloadedMethodInfo CookieManagerGetAcceptPolicyFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetAcceptPolicyFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetAcceptPolicyFinish"
})
#endif
foreign import ccall "webkit_cookie_manager_get_cookies" webkit_cookie_manager_get_cookies ::
Ptr CookieManager ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
cookieManagerGetCookies ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
cookieManagerGetCookies :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
cookieManagerGetCookies a
cookieManager Text
uri Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr CookieManager
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_cookie_manager_get_cookies Ptr CookieManager
cookieManager' CString
uri' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetCookiesMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod CookieManagerGetCookiesMethodInfo a signature where
overloadedMethod = cookieManagerGetCookies
instance O.OverloadedMethodInfo CookieManagerGetCookiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetCookies",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetCookies"
})
#endif
foreign import ccall "webkit_cookie_manager_get_cookies_finish" webkit_cookie_manager_get_cookies_finish ::
Ptr CookieManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr (GList (Ptr Soup.Cookie.Cookie)))
cookieManagerGetCookiesFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m [Soup.Cookie.Cookie]
cookieManagerGetCookiesFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsAsyncResult b) =>
a -> b -> m [Cookie]
cookieManagerGetCookiesFinish a
cookieManager b
result_ = IO [Cookie] -> m [Cookie]
forall a. IO a -> m a
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 CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO [Cookie] -> IO () -> IO [Cookie]
forall a b. IO a -> IO b -> IO a
onException (do
Ptr (GList (Ptr Cookie))
result <- (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr Cookie))))
-> IO (Ptr (GList (Ptr Cookie)))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GList (Ptr Cookie))))
-> IO (Ptr (GList (Ptr Cookie))))
-> (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr Cookie))))
-> IO (Ptr (GList (Ptr Cookie)))
forall a b. (a -> b) -> a -> b
$ Ptr CookieManager
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr (GList (Ptr Cookie)))
webkit_cookie_manager_get_cookies_finish Ptr CookieManager
cookieManager' Ptr AsyncResult
result_'
[Ptr Cookie]
result' <- Ptr (GList (Ptr Cookie)) -> IO [Ptr Cookie]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [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 (GList (Ptr Cookie)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Cookie))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
[Cookie] -> IO [Cookie]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Cookie]
result''
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetCookiesFinishMethodInfo
instance (signature ~ (b -> m [Soup.Cookie.Cookie]), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod CookieManagerGetCookiesFinishMethodInfo a signature where
overloadedMethod = cookieManagerGetCookiesFinish
instance O.OverloadedMethodInfo CookieManagerGetCookiesFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetCookiesFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetCookiesFinish"
})
#endif
foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies ::
Ptr CookieManager ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
{-# DEPRECATED cookieManagerGetDomainsWithCookies ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetch' instead."] #-}
cookieManagerGetDomainsWithCookies ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
cookieManagerGetDomainsWithCookies :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsCancellable b) =>
a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
cookieManagerGetDomainsWithCookies a
cookieManager Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr CookieManager
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_cookie_manager_get_domains_with_cookies Ptr CookieManager
cookieManager' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetDomainsWithCookiesMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsCookieManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod CookieManagerGetDomainsWithCookiesMethodInfo a signature where
overloadedMethod = cookieManagerGetDomainsWithCookies
instance O.OverloadedMethodInfo CookieManagerGetDomainsWithCookiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetDomainsWithCookies",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetDomainsWithCookies"
})
#endif
foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish ::
Ptr CookieManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr CString)
{-# DEPRECATED cookieManagerGetDomainsWithCookiesFinish ["(Since version 2.16)","Use 'GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetchFinish' instead."] #-}
cookieManagerGetDomainsWithCookiesFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m [T.Text]
cookieManagerGetDomainsWithCookiesFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCookieManager a, IsAsyncResult b) =>
a -> b -> m [Text]
cookieManagerGetDomainsWithCookiesFinish a
cookieManager b
result_ = IO [Text] -> m [Text]
forall a. IO a -> m a
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 CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO [Text] -> IO () -> IO [Text]
forall a b. IO a -> IO b -> IO a
onException (do
Ptr CString
result <- (Ptr (Ptr GError) -> IO (Ptr CString)) -> IO (Ptr CString)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr CString)) -> IO (Ptr CString))
-> (Ptr (Ptr GError) -> IO (Ptr CString)) -> IO (Ptr CString)
forall a b. (a -> b) -> a -> b
$ Ptr CookieManager
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr CString)
webkit_cookie_manager_get_domains_with_cookies_finish Ptr CookieManager
cookieManager' Ptr AsyncResult
result_'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cookieManagerGetDomainsWithCookiesFinish" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CookieManagerGetDomainsWithCookiesFinishMethodInfo
instance (signature ~ (b -> m [T.Text]), MonadIO m, IsCookieManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod CookieManagerGetDomainsWithCookiesFinishMethodInfo a signature where
overloadedMethod = cookieManagerGetDomainsWithCookiesFinish
instance O.OverloadedMethodInfo CookieManagerGetDomainsWithCookiesFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerGetDomainsWithCookiesFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerGetDomainsWithCookiesFinish"
})
#endif
foreign import ccall "webkit_cookie_manager_set_accept_policy" webkit_cookie_manager_set_accept_policy ::
Ptr CookieManager ->
CUInt ->
IO ()
cookieManagerSetAcceptPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>
a
-> WebKit2.Enums.CookieAcceptPolicy
-> m ()
cookieManagerSetAcceptPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCookieManager a) =>
a -> CookieAcceptPolicy -> m ()
cookieManagerSetAcceptPolicy a
cookieManager CookieAcceptPolicy
policy = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (CookieAcceptPolicy -> Int) -> CookieAcceptPolicy -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CookieAcceptPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) CookieAcceptPolicy
policy
Ptr CookieManager -> CUInt -> IO ()
webkit_cookie_manager_set_accept_policy Ptr CookieManager
cookieManager' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerSetAcceptPolicyMethodInfo
instance (signature ~ (WebKit2.Enums.CookieAcceptPolicy -> m ()), MonadIO m, IsCookieManager a) => O.OverloadedMethod CookieManagerSetAcceptPolicyMethodInfo a signature where
overloadedMethod = cookieManagerSetAcceptPolicy
instance O.OverloadedMethodInfo CookieManagerSetAcceptPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerSetAcceptPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerSetAcceptPolicy"
})
#endif
foreign import ccall "webkit_cookie_manager_set_persistent_storage" webkit_cookie_manager_set_persistent_storage ::
Ptr CookieManager ->
CString ->
CUInt ->
IO ()
cookieManagerSetPersistentStorage ::
(B.CallStack.HasCallStack, MonadIO m, IsCookieManager a) =>
a
-> T.Text
-> WebKit2.Enums.CookiePersistentStorage
-> m ()
cookieManagerSetPersistentStorage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCookieManager a) =>
a -> Text -> CookiePersistentStorage -> m ()
cookieManagerSetPersistentStorage a
cookieManager Text
filename CookiePersistentStorage
storage = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CookieManager
cookieManager' <- a -> IO (Ptr CookieManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cookieManager
CString
filename' <- Text -> IO CString
textToCString Text
filename
let storage' :: CUInt
storage' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (CookiePersistentStorage -> Int)
-> CookiePersistentStorage
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CookiePersistentStorage -> Int
forall a. Enum a => a -> Int
fromEnum) CookiePersistentStorage
storage
Ptr CookieManager -> CString -> CUInt -> IO ()
webkit_cookie_manager_set_persistent_storage Ptr CookieManager
cookieManager' CString
filename' CUInt
storage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cookieManager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CookieManagerSetPersistentStorageMethodInfo
instance (signature ~ (T.Text -> WebKit2.Enums.CookiePersistentStorage -> m ()), MonadIO m, IsCookieManager a) => O.OverloadedMethod CookieManagerSetPersistentStorageMethodInfo a signature where
overloadedMethod = cookieManagerSetPersistentStorage
instance O.OverloadedMethodInfo CookieManagerSetPersistentStorageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.CookieManager.cookieManagerSetPersistentStorage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-CookieManager.html#v:cookieManagerSetPersistentStorage"
})
#endif