{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.WebsiteDataManager
(
WebsiteDataManager(..) ,
IsWebsiteDataManager ,
toWebsiteDataManager ,
#if defined(ENABLE_OVERLOADING)
ResolveWebsiteDataManagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerClearMethodInfo ,
#endif
websiteDataManagerClear ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerClearFinishMethodInfo ,
#endif
websiteDataManagerClearFinish ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerFetchMethodInfo ,
#endif
websiteDataManagerFetch ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerFetchFinishMethodInfo ,
#endif
websiteDataManagerFetchFinish ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetBaseCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetBaseCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetBaseDataDirectoryMethodInfo,
#endif
websiteDataManagerGetBaseDataDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetCookieManagerMethodInfo,
#endif
websiteDataManagerGetCookieManager ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetDiskCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetDiskCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetDomCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetDomCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetHstsCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetHstsCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetIndexeddbDirectoryMethodInfo,
#endif
websiteDataManagerGetIndexeddbDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetItpDirectoryMethodInfo,
#endif
websiteDataManagerGetItpDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetItpEnabledMethodInfo,
#endif
websiteDataManagerGetItpEnabled ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetItpSummaryMethodInfo,
#endif
websiteDataManagerGetItpSummary ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetItpSummaryFinishMethodInfo,
#endif
websiteDataManagerGetItpSummaryFinish ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetLocalStorageDirectoryMethodInfo,
#endif
websiteDataManagerGetLocalStorageDirectory,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetOfflineApplicationCacheDirectory,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetPersistentCredentialStorageEnabledMethodInfo,
#endif
websiteDataManagerGetPersistentCredentialStorageEnabled,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetServiceWorkerRegistrationsDirectoryMethodInfo,
#endif
websiteDataManagerGetServiceWorkerRegistrationsDirectory,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerGetWebsqlDirectoryMethodInfo,
#endif
websiteDataManagerGetWebsqlDirectory ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerIsEphemeralMethodInfo ,
#endif
websiteDataManagerIsEphemeral ,
websiteDataManagerNewEphemeral ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerRemoveMethodInfo ,
#endif
websiteDataManagerRemove ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerRemoveFinishMethodInfo,
#endif
websiteDataManagerRemoveFinish ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerSetItpEnabledMethodInfo,
#endif
websiteDataManagerSetItpEnabled ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerSetPersistentCredentialStorageEnabledMethodInfo,
#endif
websiteDataManagerSetPersistentCredentialStorageEnabled,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerBaseCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerBaseCacheDirectory,
getWebsiteDataManagerBaseCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerBaseCacheDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerBaseDataDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerBaseDataDirectory,
getWebsiteDataManagerBaseDataDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerBaseDataDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerDiskCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerDiskCacheDirectory,
getWebsiteDataManagerDiskCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerDiskCacheDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerDomCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerDomCacheDirectory,
getWebsiteDataManagerDomCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerDomCacheDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerHstsCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerHstsCacheDirectory,
getWebsiteDataManagerHstsCacheDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerHstsCacheDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerIndexeddbDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerIndexeddbDirectory,
getWebsiteDataManagerIndexeddbDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerIndexeddbDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerIsEphemeralPropertyInfo,
#endif
constructWebsiteDataManagerIsEphemeral ,
getWebsiteDataManagerIsEphemeral ,
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerItpDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerItpDirectory ,
getWebsiteDataManagerItpDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerItpDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerLocalStorageDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerLocalStorageDirectory,
getWebsiteDataManagerLocalStorageDirectory,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerLocalStorageDirectory ,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerOfflineApplicationCacheDirectory,
getWebsiteDataManagerOfflineApplicationCacheDirectory,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerOfflineApplicationCacheDirectory,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerServiceWorkerRegistrationsDirectory,
getWebsiteDataManagerServiceWorkerRegistrationsDirectory,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerServiceWorkerRegistrationsDirectory,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataManagerWebsqlDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerWebsqlDirectory,
getWebsiteDataManagerWebsqlDirectory ,
#if defined(ENABLE_OVERLOADING)
websiteDataManagerWebsqlDirectory ,
#endif
) 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.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 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 {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags
import {-# SOURCE #-} qualified GI.WebKit2.Objects.CookieManager as WebKit2.CookieManager
import {-# SOURCE #-} qualified GI.WebKit2.Structs.ITPThirdParty as WebKit2.ITPThirdParty
import {-# SOURCE #-} qualified GI.WebKit2.Structs.WebsiteData as WebKit2.WebsiteData
newtype WebsiteDataManager = WebsiteDataManager (SP.ManagedPtr WebsiteDataManager)
deriving (WebsiteDataManager -> WebsiteDataManager -> Bool
(WebsiteDataManager -> WebsiteDataManager -> Bool)
-> (WebsiteDataManager -> WebsiteDataManager -> Bool)
-> Eq WebsiteDataManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebsiteDataManager -> WebsiteDataManager -> Bool
$c/= :: WebsiteDataManager -> WebsiteDataManager -> Bool
== :: WebsiteDataManager -> WebsiteDataManager -> Bool
$c== :: WebsiteDataManager -> WebsiteDataManager -> Bool
Eq)
instance SP.ManagedPtrNewtype WebsiteDataManager where
toManagedPtr :: WebsiteDataManager -> ManagedPtr WebsiteDataManager
toManagedPtr (WebsiteDataManager ManagedPtr WebsiteDataManager
p) = ManagedPtr WebsiteDataManager
p
foreign import ccall "webkit_website_data_manager_get_type"
c_webkit_website_data_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebsiteDataManager where
glibType :: IO GType
glibType = IO GType
c_webkit_website_data_manager_get_type
instance B.Types.GObject WebsiteDataManager
class (SP.GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o
instance (SP.GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o
instance O.HasParentTypes WebsiteDataManager
type instance O.ParentTypes WebsiteDataManager = '[GObject.Object.Object]
toWebsiteDataManager :: (MIO.MonadIO m, IsWebsiteDataManager o) => o -> m WebsiteDataManager
toWebsiteDataManager :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m WebsiteDataManager
toWebsiteDataManager = IO WebsiteDataManager -> m WebsiteDataManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WebsiteDataManager -> m WebsiteDataManager)
-> (o -> IO WebsiteDataManager) -> o -> m WebsiteDataManager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebsiteDataManager -> WebsiteDataManager)
-> o -> IO WebsiteDataManager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebsiteDataManager -> WebsiteDataManager
WebsiteDataManager
instance B.GValue.IsGValue (Maybe WebsiteDataManager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_website_data_manager_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebsiteDataManager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebsiteDataManager
P.Nothing = Ptr GValue -> Ptr WebsiteDataManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebsiteDataManager
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebsiteDataManager)
gvalueSet_ Ptr GValue
gv (P.Just WebsiteDataManager
obj) = WebsiteDataManager -> (Ptr WebsiteDataManager -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebsiteDataManager
obj (Ptr GValue -> Ptr WebsiteDataManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebsiteDataManager)
gvalueGet_ Ptr GValue
gv = do
Ptr WebsiteDataManager
ptr <- Ptr GValue -> IO (Ptr WebsiteDataManager)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebsiteDataManager)
if Ptr WebsiteDataManager
ptr Ptr WebsiteDataManager -> Ptr WebsiteDataManager -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebsiteDataManager
forall a. Ptr a
FP.nullPtr
then WebsiteDataManager -> Maybe WebsiteDataManager
forall a. a -> Maybe a
P.Just (WebsiteDataManager -> Maybe WebsiteDataManager)
-> IO WebsiteDataManager -> IO (Maybe WebsiteDataManager)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr WebsiteDataManager -> WebsiteDataManager)
-> Ptr WebsiteDataManager -> IO WebsiteDataManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebsiteDataManager -> WebsiteDataManager
WebsiteDataManager Ptr WebsiteDataManager
ptr
else Maybe WebsiteDataManager -> IO (Maybe WebsiteDataManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebsiteDataManager
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebsiteDataManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveWebsiteDataManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebsiteDataManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebsiteDataManagerMethod "clear" o = WebsiteDataManagerClearMethodInfo
ResolveWebsiteDataManagerMethod "clearFinish" o = WebsiteDataManagerClearFinishMethodInfo
ResolveWebsiteDataManagerMethod "fetch" o = WebsiteDataManagerFetchMethodInfo
ResolveWebsiteDataManagerMethod "fetchFinish" o = WebsiteDataManagerFetchFinishMethodInfo
ResolveWebsiteDataManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebsiteDataManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebsiteDataManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebsiteDataManagerMethod "isEphemeral" o = WebsiteDataManagerIsEphemeralMethodInfo
ResolveWebsiteDataManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebsiteDataManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebsiteDataManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebsiteDataManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebsiteDataManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebsiteDataManagerMethod "remove" o = WebsiteDataManagerRemoveMethodInfo
ResolveWebsiteDataManagerMethod "removeFinish" o = WebsiteDataManagerRemoveFinishMethodInfo
ResolveWebsiteDataManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebsiteDataManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebsiteDataManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebsiteDataManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebsiteDataManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebsiteDataManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebsiteDataManagerMethod "getBaseCacheDirectory" o = WebsiteDataManagerGetBaseCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getBaseDataDirectory" o = WebsiteDataManagerGetBaseDataDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getCookieManager" o = WebsiteDataManagerGetCookieManagerMethodInfo
ResolveWebsiteDataManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebsiteDataManagerMethod "getDiskCacheDirectory" o = WebsiteDataManagerGetDiskCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getDomCacheDirectory" o = WebsiteDataManagerGetDomCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getHstsCacheDirectory" o = WebsiteDataManagerGetHstsCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getItpDirectory" o = WebsiteDataManagerGetItpDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getItpEnabled" o = WebsiteDataManagerGetItpEnabledMethodInfo
ResolveWebsiteDataManagerMethod "getItpSummary" o = WebsiteDataManagerGetItpSummaryMethodInfo
ResolveWebsiteDataManagerMethod "getItpSummaryFinish" o = WebsiteDataManagerGetItpSummaryFinishMethodInfo
ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getPersistentCredentialStorageEnabled" o = WebsiteDataManagerGetPersistentCredentialStorageEnabledMethodInfo
ResolveWebsiteDataManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebsiteDataManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebsiteDataManagerMethod "getServiceWorkerRegistrationsDirectory" o = WebsiteDataManagerGetServiceWorkerRegistrationsDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebsiteDataManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebsiteDataManagerMethod "setItpEnabled" o = WebsiteDataManagerSetItpEnabledMethodInfo
ResolveWebsiteDataManagerMethod "setPersistentCredentialStorageEnabled" o = WebsiteDataManagerSetPersistentCredentialStorageEnabledMethodInfo
ResolveWebsiteDataManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebsiteDataManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, O.OverloadedMethod info WebsiteDataManager p) => OL.IsLabel t (WebsiteDataManager -> 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 ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, O.OverloadedMethod info WebsiteDataManager p, R.HasField t WebsiteDataManager p) => R.HasField t WebsiteDataManager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, O.OverloadedMethodInfo info WebsiteDataManager) => OL.IsLabel t (O.MethodProxy info WebsiteDataManager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getWebsiteDataManagerBaseCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerBaseCacheDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerBaseCacheDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"base-cache-directory"
constructWebsiteDataManagerBaseCacheDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerBaseCacheDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerBaseCacheDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"base-cache-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerBaseCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerBaseCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerBaseCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory"
type AttrOrigin WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerBaseCacheDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerBaseCacheDirectory
attrClear = undefined
#endif
getWebsiteDataManagerBaseDataDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerBaseDataDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerBaseDataDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"base-data-directory"
constructWebsiteDataManagerBaseDataDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerBaseDataDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerBaseDataDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"base-data-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerBaseDataDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerBaseDataDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerBaseDataDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerBaseDataDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory"
type AttrOrigin WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerBaseDataDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerBaseDataDirectory
attrClear = undefined
#endif
getWebsiteDataManagerDiskCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerDiskCacheDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerDiskCacheDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"disk-cache-directory"
constructWebsiteDataManagerDiskCacheDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerDiskCacheDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerDiskCacheDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"disk-cache-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerDiskCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerDiskCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerDiskCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory"
type AttrOrigin WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerDiskCacheDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerDiskCacheDirectory
attrClear = undefined
#endif
getWebsiteDataManagerDomCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerDomCacheDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerDomCacheDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"dom-cache-directory"
constructWebsiteDataManagerDomCacheDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerDomCacheDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerDomCacheDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"dom-cache-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerDomCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerDomCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerDomCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerDomCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerDomCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerDomCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerDomCacheDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerDomCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerDomCacheDirectoryPropertyInfo = "dom-cache-directory"
type AttrOrigin WebsiteDataManagerDomCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerDomCacheDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerDomCacheDirectory
attrClear = undefined
#endif
getWebsiteDataManagerHstsCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerHstsCacheDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerHstsCacheDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"hsts-cache-directory"
constructWebsiteDataManagerHstsCacheDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerHstsCacheDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerHstsCacheDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"hsts-cache-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerHstsCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerHstsCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerHstsCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerHstsCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerHstsCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerHstsCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerHstsCacheDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerHstsCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerHstsCacheDirectoryPropertyInfo = "hsts-cache-directory"
type AttrOrigin WebsiteDataManagerHstsCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerHstsCacheDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerHstsCacheDirectory
attrClear = undefined
#endif
getWebsiteDataManagerIndexeddbDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerIndexeddbDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerIndexeddbDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"indexeddb-directory"
constructWebsiteDataManagerIndexeddbDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerIndexeddbDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerIndexeddbDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"indexeddb-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerIndexeddbDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerIndexeddbDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerIndexeddbDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory"
type AttrOrigin WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerIndexeddbDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerIndexeddbDirectory
attrClear = undefined
#endif
getWebsiteDataManagerIsEphemeral :: (MonadIO m, IsWebsiteDataManager o) => o -> m Bool
getWebsiteDataManagerIsEphemeral :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m Bool
getWebsiteDataManagerIsEphemeral o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"is-ephemeral"
constructWebsiteDataManagerIsEphemeral :: (IsWebsiteDataManager o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWebsiteDataManagerIsEphemeral :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWebsiteDataManagerIsEphemeral 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"is-ephemeral" Bool
val
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerIsEphemeralPropertyInfo
instance AttrInfo WebsiteDataManagerIsEphemeralPropertyInfo where
type AttrAllowedOps WebsiteDataManagerIsEphemeralPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = (~) Bool
type AttrTransferType WebsiteDataManagerIsEphemeralPropertyInfo = Bool
type AttrGetType WebsiteDataManagerIsEphemeralPropertyInfo = Bool
type AttrLabel WebsiteDataManagerIsEphemeralPropertyInfo = "is-ephemeral"
type AttrOrigin WebsiteDataManagerIsEphemeralPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerIsEphemeral
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerIsEphemeral
attrClear = undefined
#endif
getWebsiteDataManagerItpDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerItpDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerItpDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"itp-directory"
constructWebsiteDataManagerItpDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerItpDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerItpDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"itp-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerItpDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerItpDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerItpDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerItpDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerItpDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerItpDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerItpDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerItpDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerItpDirectoryPropertyInfo = "itp-directory"
type AttrOrigin WebsiteDataManagerItpDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerItpDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerItpDirectory
attrClear = undefined
#endif
getWebsiteDataManagerLocalStorageDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerLocalStorageDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerLocalStorageDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"local-storage-directory"
constructWebsiteDataManagerLocalStorageDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerLocalStorageDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerLocalStorageDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"local-storage-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerLocalStorageDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerLocalStorageDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory"
type AttrOrigin WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerLocalStorageDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerLocalStorageDirectory
attrClear = undefined
#endif
getWebsiteDataManagerOfflineApplicationCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerOfflineApplicationCacheDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerOfflineApplicationCacheDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"offline-application-cache-directory"
constructWebsiteDataManagerOfflineApplicationCacheDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerOfflineApplicationCacheDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerOfflineApplicationCacheDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"offline-application-cache-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory"
type AttrOrigin WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerOfflineApplicationCacheDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerOfflineApplicationCacheDirectory
attrClear = undefined
#endif
getWebsiteDataManagerServiceWorkerRegistrationsDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerServiceWorkerRegistrationsDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerServiceWorkerRegistrationsDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"service-worker-registrations-directory"
constructWebsiteDataManagerServiceWorkerRegistrationsDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerServiceWorkerRegistrationsDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerServiceWorkerRegistrationsDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"service-worker-registrations-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = "service-worker-registrations-directory"
type AttrOrigin WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerServiceWorkerRegistrationsDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerServiceWorkerRegistrationsDirectory
attrClear = undefined
#endif
getWebsiteDataManagerWebsqlDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerWebsqlDirectory :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataManager o) =>
o -> m (Maybe Text)
getWebsiteDataManagerWebsqlDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"websql-directory"
constructWebsiteDataManagerWebsqlDirectory :: (IsWebsiteDataManager o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWebsiteDataManagerWebsqlDirectory :: forall o (m :: * -> *).
(IsWebsiteDataManager o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWebsiteDataManagerWebsqlDirectory Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"websql-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerWebsqlDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerWebsqlDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerWebsqlDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = IsWebsiteDataManager
type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text
type AttrTransferType WebsiteDataManagerWebsqlDirectoryPropertyInfo = T.Text
type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory"
type AttrOrigin WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManager
attrGet = getWebsiteDataManagerWebsqlDirectory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWebsiteDataManagerWebsqlDirectory
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebsiteDataManager
type instance O.AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList
type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("domCacheDirectory", WebsiteDataManagerDomCacheDirectoryPropertyInfo), '("hstsCacheDirectory", WebsiteDataManagerHstsCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("isEphemeral", WebsiteDataManagerIsEphemeralPropertyInfo), '("itpDirectory", WebsiteDataManagerItpDirectoryPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("serviceWorkerRegistrationsDirectory", WebsiteDataManagerServiceWorkerRegistrationsDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
websiteDataManagerBaseCacheDirectory :: AttrLabelProxy "baseCacheDirectory"
websiteDataManagerBaseCacheDirectory = AttrLabelProxy
websiteDataManagerBaseDataDirectory :: AttrLabelProxy "baseDataDirectory"
websiteDataManagerBaseDataDirectory = AttrLabelProxy
websiteDataManagerDiskCacheDirectory :: AttrLabelProxy "diskCacheDirectory"
websiteDataManagerDiskCacheDirectory = AttrLabelProxy
websiteDataManagerDomCacheDirectory :: AttrLabelProxy "domCacheDirectory"
websiteDataManagerDomCacheDirectory = AttrLabelProxy
websiteDataManagerHstsCacheDirectory :: AttrLabelProxy "hstsCacheDirectory"
websiteDataManagerHstsCacheDirectory = AttrLabelProxy
websiteDataManagerIndexeddbDirectory :: AttrLabelProxy "indexeddbDirectory"
websiteDataManagerIndexeddbDirectory = AttrLabelProxy
websiteDataManagerItpDirectory :: AttrLabelProxy "itpDirectory"
websiteDataManagerItpDirectory = AttrLabelProxy
websiteDataManagerLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"
websiteDataManagerLocalStorageDirectory = AttrLabelProxy
websiteDataManagerOfflineApplicationCacheDirectory :: AttrLabelProxy "offlineApplicationCacheDirectory"
websiteDataManagerOfflineApplicationCacheDirectory = AttrLabelProxy
websiteDataManagerServiceWorkerRegistrationsDirectory :: AttrLabelProxy "serviceWorkerRegistrationsDirectory"
websiteDataManagerServiceWorkerRegistrationsDirectory = AttrLabelProxy
websiteDataManagerWebsqlDirectory :: AttrLabelProxy "websqlDirectory"
websiteDataManagerWebsqlDirectory = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebsiteDataManager = WebsiteDataManagerSignalList
type WebsiteDataManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_website_data_manager_new_ephemeral" webkit_website_data_manager_new_ephemeral ::
IO (Ptr WebsiteDataManager)
websiteDataManagerNewEphemeral ::
(B.CallStack.HasCallStack, MonadIO m) =>
m WebsiteDataManager
websiteDataManagerNewEphemeral :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m WebsiteDataManager
websiteDataManagerNewEphemeral = IO WebsiteDataManager -> m WebsiteDataManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WebsiteDataManager -> m WebsiteDataManager)
-> IO WebsiteDataManager -> m WebsiteDataManager
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataManager
result <- IO (Ptr WebsiteDataManager)
webkit_website_data_manager_new_ephemeral
Text -> Ptr WebsiteDataManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"websiteDataManagerNewEphemeral" Ptr WebsiteDataManager
result
WebsiteDataManager
result' <- ((ManagedPtr WebsiteDataManager -> WebsiteDataManager)
-> Ptr WebsiteDataManager -> IO WebsiteDataManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr WebsiteDataManager -> WebsiteDataManager
WebsiteDataManager) Ptr WebsiteDataManager
result
WebsiteDataManager -> IO WebsiteDataManager
forall (m :: * -> *) a. Monad m => a -> m a
return WebsiteDataManager
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_website_data_manager_clear" webkit_website_data_manager_clear ::
Ptr WebsiteDataManager ->
CUInt ->
Int64 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
websiteDataManagerClear ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>
a
-> [WebKit2.Flags.WebsiteDataTypes]
-> Int64
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
websiteDataManagerClear :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsCancellable b) =>
a
-> [WebsiteDataTypes]
-> Int64
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
websiteDataManagerClear a
manager [WebsiteDataTypes]
types Int64
timespan Maybe b
cancellable Maybe AsyncReadyCallback
callback = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
let types' :: CUInt
types' = [WebsiteDataTypes] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [WebsiteDataTypes]
types
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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_WithClosures -> 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 -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback 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 (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 WebsiteDataManager
-> CUInt
-> Int64
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_website_data_manager_clear Ptr WebsiteDataManager
manager' CUInt
types' Int64
timespan Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerClearMethodInfo
instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> Int64 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod WebsiteDataManagerClearMethodInfo a signature where
overloadedMethod = websiteDataManagerClear
instance O.OverloadedMethodInfo WebsiteDataManagerClearMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClear",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerClear"
}
#endif
foreign import ccall "webkit_website_data_manager_clear_finish" webkit_website_data_manager_clear_finish ::
Ptr WebsiteDataManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
websiteDataManagerClearFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
websiteDataManagerClearFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsAsyncResult b) =>
a -> b -> m ()
websiteDataManagerClearFinish a
manager b
result_ = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
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 WebsiteDataManager
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_website_data_manager_clear_finish Ptr WebsiteDataManager
manager' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerClearFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebsiteDataManagerClearFinishMethodInfo a signature where
overloadedMethod = websiteDataManagerClearFinish
instance O.OverloadedMethodInfo WebsiteDataManagerClearFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerClearFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerClearFinish"
}
#endif
foreign import ccall "webkit_website_data_manager_fetch" webkit_website_data_manager_fetch ::
Ptr WebsiteDataManager ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
websiteDataManagerFetch ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>
a
-> [WebKit2.Flags.WebsiteDataTypes]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
websiteDataManagerFetch :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsCancellable b) =>
a
-> [WebsiteDataTypes]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
websiteDataManagerFetch a
manager [WebsiteDataTypes]
types Maybe b
cancellable Maybe AsyncReadyCallback
callback = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
let types' :: CUInt
types' = [WebsiteDataTypes] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [WebsiteDataTypes]
types
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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_WithClosures -> 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 -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback 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 (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 WebsiteDataManager
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_website_data_manager_fetch Ptr WebsiteDataManager
manager' CUInt
types' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerFetchMethodInfo
instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod WebsiteDataManagerFetchMethodInfo a signature where
overloadedMethod = websiteDataManagerFetch
instance O.OverloadedMethodInfo WebsiteDataManagerFetchMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetch",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerFetch"
}
#endif
foreign import ccall "webkit_website_data_manager_fetch_finish" webkit_website_data_manager_fetch_finish ::
Ptr WebsiteDataManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr (GList (Ptr WebKit2.WebsiteData.WebsiteData)))
websiteDataManagerFetchFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m [WebKit2.WebsiteData.WebsiteData]
websiteDataManagerFetchFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsAsyncResult b) =>
a -> b -> m [WebsiteData]
websiteDataManagerFetchFinish a
manager b
result_ = IO [WebsiteData] -> m [WebsiteData]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [WebsiteData] -> m [WebsiteData])
-> IO [WebsiteData] -> m [WebsiteData]
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO [WebsiteData] -> IO () -> IO [WebsiteData]
forall a b. IO a -> IO b -> IO a
onException (do
Ptr (GList (Ptr WebsiteData))
result <- (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr WebsiteData))))
-> IO (Ptr (GList (Ptr WebsiteData)))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GList (Ptr WebsiteData))))
-> IO (Ptr (GList (Ptr WebsiteData))))
-> (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr WebsiteData))))
-> IO (Ptr (GList (Ptr WebsiteData)))
forall a b. (a -> b) -> a -> b
$ Ptr WebsiteDataManager
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr (GList (Ptr WebsiteData)))
webkit_website_data_manager_fetch_finish Ptr WebsiteDataManager
manager' Ptr AsyncResult
result_'
[Ptr WebsiteData]
result' <- Ptr (GList (Ptr WebsiteData)) -> IO [Ptr WebsiteData]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr WebsiteData))
result
[WebsiteData]
result'' <- (Ptr WebsiteData -> IO WebsiteData)
-> [Ptr WebsiteData] -> IO [WebsiteData]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr WebsiteData -> WebsiteData)
-> Ptr WebsiteData -> IO WebsiteData
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr WebsiteData -> WebsiteData
WebKit2.WebsiteData.WebsiteData) [Ptr WebsiteData]
result'
Ptr (GList (Ptr WebsiteData)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr WebsiteData))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
[WebsiteData] -> IO [WebsiteData]
forall (m :: * -> *) a. Monad m => a -> m a
return [WebsiteData]
result''
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerFetchFinishMethodInfo
instance (signature ~ (b -> m [WebKit2.WebsiteData.WebsiteData]), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebsiteDataManagerFetchFinishMethodInfo a signature where
overloadedMethod = websiteDataManagerFetchFinish
instance O.OverloadedMethodInfo WebsiteDataManagerFetchFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerFetchFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerFetchFinish"
}
#endif
foreign import ccall "webkit_website_data_manager_get_base_cache_directory" webkit_website_data_manager_get_base_cache_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetBaseCacheDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetBaseCacheDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetBaseCacheDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_base_cache_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetBaseCacheDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetBaseCacheDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetBaseCacheDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_base_data_directory" webkit_website_data_manager_get_base_data_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetBaseDataDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetBaseDataDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetBaseDataDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_base_data_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetBaseDataDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetBaseDataDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetBaseDataDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetBaseDataDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_cookie_manager" webkit_website_data_manager_get_cookie_manager ::
Ptr WebsiteDataManager ->
IO (Ptr WebKit2.CookieManager.CookieManager)
websiteDataManagerGetCookieManager ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m WebKit2.CookieManager.CookieManager
websiteDataManagerGetCookieManager :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m CookieManager
websiteDataManagerGetCookieManager a
manager = IO CookieManager -> m CookieManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CookieManager -> m CookieManager)
-> IO CookieManager -> m CookieManager
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr CookieManager
result <- Ptr WebsiteDataManager -> IO (Ptr CookieManager)
webkit_website_data_manager_get_cookie_manager Ptr WebsiteDataManager
manager'
Text -> Ptr CookieManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"websiteDataManagerGetCookieManager" Ptr CookieManager
result
CookieManager
result' <- ((ManagedPtr CookieManager -> CookieManager)
-> Ptr CookieManager -> IO CookieManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CookieManager -> CookieManager
WebKit2.CookieManager.CookieManager) Ptr CookieManager
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CookieManager -> IO CookieManager
forall (m :: * -> *) a. Monad m => a -> m a
return CookieManager
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetCookieManagerMethodInfo
instance (signature ~ (m WebKit2.CookieManager.CookieManager), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetCookieManagerMethodInfo a signature where
overloadedMethod = websiteDataManagerGetCookieManager
instance O.OverloadedMethodInfo WebsiteDataManagerGetCookieManagerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetCookieManager",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetCookieManager"
}
#endif
foreign import ccall "webkit_website_data_manager_get_disk_cache_directory" webkit_website_data_manager_get_disk_cache_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetDiskCacheDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetDiskCacheDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetDiskCacheDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_disk_cache_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetDiskCacheDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetDiskCacheDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetDiskCacheDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_dom_cache_directory" webkit_website_data_manager_get_dom_cache_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetDomCacheDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetDomCacheDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetDomCacheDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_dom_cache_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetDomCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetDomCacheDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetDomCacheDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetDomCacheDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetDomCacheDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetDomCacheDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_hsts_cache_directory" webkit_website_data_manager_get_hsts_cache_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetHstsCacheDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetHstsCacheDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetHstsCacheDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_hsts_cache_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetHstsCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetHstsCacheDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetHstsCacheDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetHstsCacheDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetHstsCacheDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetHstsCacheDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_indexeddb_directory" webkit_website_data_manager_get_indexeddb_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetIndexeddbDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetIndexeddbDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetIndexeddbDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_indexeddb_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetIndexeddbDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetIndexeddbDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetIndexeddbDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_itp_directory" webkit_website_data_manager_get_itp_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetItpDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetItpDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetItpDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_itp_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetItpDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetItpDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetItpDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetItpDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetItpDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetItpDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_itp_enabled" webkit_website_data_manager_get_itp_enabled ::
Ptr WebsiteDataManager ->
IO CInt
websiteDataManagerGetItpEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m Bool
websiteDataManagerGetItpEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m Bool
websiteDataManagerGetItpEnabled a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CInt
result <- Ptr WebsiteDataManager -> IO CInt
webkit_website_data_manager_get_itp_enabled Ptr WebsiteDataManager
manager'
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
manager
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetItpEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetItpEnabledMethodInfo a signature where
overloadedMethod = websiteDataManagerGetItpEnabled
instance O.OverloadedMethodInfo WebsiteDataManagerGetItpEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetItpEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetItpEnabled"
}
#endif
foreign import ccall "webkit_website_data_manager_get_itp_summary" webkit_website_data_manager_get_itp_summary ::
Ptr WebsiteDataManager ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
websiteDataManagerGetItpSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
websiteDataManagerGetItpSummary :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsCancellable b) =>
a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
websiteDataManagerGetItpSummary a
manager Maybe b
cancellable Maybe AsyncReadyCallback
callback = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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_WithClosures -> 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 -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback 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 (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 WebsiteDataManager
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_website_data_manager_get_itp_summary Ptr WebsiteDataManager
manager' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetItpSummaryMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod WebsiteDataManagerGetItpSummaryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetItpSummary
instance O.OverloadedMethodInfo WebsiteDataManagerGetItpSummaryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetItpSummary",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetItpSummary"
}
#endif
foreign import ccall "webkit_website_data_manager_get_itp_summary_finish" webkit_website_data_manager_get_itp_summary_finish ::
Ptr WebsiteDataManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr (GList (Ptr WebKit2.ITPThirdParty.ITPThirdParty)))
websiteDataManagerGetItpSummaryFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m [WebKit2.ITPThirdParty.ITPThirdParty]
websiteDataManagerGetItpSummaryFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsAsyncResult b) =>
a -> b -> m [ITPThirdParty]
websiteDataManagerGetItpSummaryFinish a
manager b
result_ = IO [ITPThirdParty] -> m [ITPThirdParty]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ITPThirdParty] -> m [ITPThirdParty])
-> IO [ITPThirdParty] -> m [ITPThirdParty]
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO [ITPThirdParty] -> IO () -> IO [ITPThirdParty]
forall a b. IO a -> IO b -> IO a
onException (do
Ptr (GList (Ptr ITPThirdParty))
result <- (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr ITPThirdParty))))
-> IO (Ptr (GList (Ptr ITPThirdParty)))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GList (Ptr ITPThirdParty))))
-> IO (Ptr (GList (Ptr ITPThirdParty))))
-> (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr ITPThirdParty))))
-> IO (Ptr (GList (Ptr ITPThirdParty)))
forall a b. (a -> b) -> a -> b
$ Ptr WebsiteDataManager
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr (GList (Ptr ITPThirdParty)))
webkit_website_data_manager_get_itp_summary_finish Ptr WebsiteDataManager
manager' Ptr AsyncResult
result_'
[Ptr ITPThirdParty]
result' <- Ptr (GList (Ptr ITPThirdParty)) -> IO [Ptr ITPThirdParty]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr ITPThirdParty))
result
[ITPThirdParty]
result'' <- (Ptr ITPThirdParty -> IO ITPThirdParty)
-> [Ptr ITPThirdParty] -> IO [ITPThirdParty]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr ITPThirdParty -> ITPThirdParty)
-> Ptr ITPThirdParty -> IO ITPThirdParty
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ITPThirdParty -> ITPThirdParty
WebKit2.ITPThirdParty.ITPThirdParty) [Ptr ITPThirdParty]
result'
Ptr (GList (Ptr ITPThirdParty)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr ITPThirdParty))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
[ITPThirdParty] -> IO [ITPThirdParty]
forall (m :: * -> *) a. Monad m => a -> m a
return [ITPThirdParty]
result''
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetItpSummaryFinishMethodInfo
instance (signature ~ (b -> m [WebKit2.ITPThirdParty.ITPThirdParty]), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebsiteDataManagerGetItpSummaryFinishMethodInfo a signature where
overloadedMethod = websiteDataManagerGetItpSummaryFinish
instance O.OverloadedMethodInfo WebsiteDataManagerGetItpSummaryFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetItpSummaryFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetItpSummaryFinish"
}
#endif
foreign import ccall "webkit_website_data_manager_get_local_storage_directory" webkit_website_data_manager_get_local_storage_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetLocalStorageDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetLocalStorageDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetLocalStorageDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_local_storage_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetLocalStorageDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetLocalStorageDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetLocalStorageDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_offline_application_cache_directory" webkit_website_data_manager_get_offline_application_cache_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetOfflineApplicationCacheDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetOfflineApplicationCacheDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetOfflineApplicationCacheDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_offline_application_cache_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetOfflineApplicationCacheDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetOfflineApplicationCacheDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetOfflineApplicationCacheDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_persistent_credential_storage_enabled" webkit_website_data_manager_get_persistent_credential_storage_enabled ::
Ptr WebsiteDataManager ->
IO CInt
websiteDataManagerGetPersistentCredentialStorageEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m Bool
websiteDataManagerGetPersistentCredentialStorageEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m Bool
websiteDataManagerGetPersistentCredentialStorageEnabled a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CInt
result <- Ptr WebsiteDataManager -> IO CInt
webkit_website_data_manager_get_persistent_credential_storage_enabled Ptr WebsiteDataManager
manager'
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
manager
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetPersistentCredentialStorageEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetPersistentCredentialStorageEnabledMethodInfo a signature where
overloadedMethod = websiteDataManagerGetPersistentCredentialStorageEnabled
instance O.OverloadedMethodInfo WebsiteDataManagerGetPersistentCredentialStorageEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetPersistentCredentialStorageEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetPersistentCredentialStorageEnabled"
}
#endif
foreign import ccall "webkit_website_data_manager_get_service_worker_registrations_directory" webkit_website_data_manager_get_service_worker_registrations_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetServiceWorkerRegistrationsDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetServiceWorkerRegistrationsDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetServiceWorkerRegistrationsDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_service_worker_registrations_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetServiceWorkerRegistrationsDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetServiceWorkerRegistrationsDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetServiceWorkerRegistrationsDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetServiceWorkerRegistrationsDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetServiceWorkerRegistrationsDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetServiceWorkerRegistrationsDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_get_websql_directory" webkit_website_data_manager_get_websql_directory ::
Ptr WebsiteDataManager ->
IO CString
{-# DEPRECATED websiteDataManagerGetWebsqlDirectory ["(Since version 2.24.)","WebSQL is no longer supported. Use IndexedDB instead."] #-}
websiteDataManagerGetWebsqlDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetWebsqlDirectory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m (Maybe Text)
websiteDataManagerGetWebsqlDirectory a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr WebsiteDataManager -> IO CString
webkit_website_data_manager_get_websql_directory Ptr WebsiteDataManager
manager'
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'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerGetWebsqlDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where
overloadedMethod = websiteDataManagerGetWebsqlDirectory
instance O.OverloadedMethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerGetWebsqlDirectory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerGetWebsqlDirectory"
}
#endif
foreign import ccall "webkit_website_data_manager_is_ephemeral" webkit_website_data_manager_is_ephemeral ::
Ptr WebsiteDataManager ->
IO CInt
websiteDataManagerIsEphemeral ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m Bool
websiteDataManagerIsEphemeral :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> m Bool
websiteDataManagerIsEphemeral a
manager = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CInt
result <- Ptr WebsiteDataManager -> IO CInt
webkit_website_data_manager_is_ephemeral Ptr WebsiteDataManager
manager'
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
manager
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerIsEphemeralMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerIsEphemeralMethodInfo a signature where
overloadedMethod = websiteDataManagerIsEphemeral
instance O.OverloadedMethodInfo WebsiteDataManagerIsEphemeralMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerIsEphemeral",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerIsEphemeral"
}
#endif
foreign import ccall "webkit_website_data_manager_remove" webkit_website_data_manager_remove ::
Ptr WebsiteDataManager ->
CUInt ->
Ptr (GList (Ptr WebKit2.WebsiteData.WebsiteData)) ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
websiteDataManagerRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) =>
a
-> [WebKit2.Flags.WebsiteDataTypes]
-> [WebKit2.WebsiteData.WebsiteData]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
websiteDataManagerRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsCancellable b) =>
a
-> [WebsiteDataTypes]
-> [WebsiteData]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
websiteDataManagerRemove a
manager [WebsiteDataTypes]
types [WebsiteData]
websiteData Maybe b
cancellable Maybe AsyncReadyCallback
callback = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
let types' :: CUInt
types' = [WebsiteDataTypes] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [WebsiteDataTypes]
types
[Ptr WebsiteData]
websiteData' <- (WebsiteData -> IO (Ptr WebsiteData))
-> [WebsiteData] -> IO [Ptr WebsiteData]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM WebsiteData -> IO (Ptr WebsiteData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [WebsiteData]
websiteData
Ptr (GList (Ptr WebsiteData))
websiteData'' <- [Ptr WebsiteData] -> IO (Ptr (GList (Ptr WebsiteData)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr WebsiteData]
websiteData'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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_WithClosures -> 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 -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback 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 (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 WebsiteDataManager
-> CUInt
-> Ptr (GList (Ptr WebsiteData))
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
webkit_website_data_manager_remove Ptr WebsiteDataManager
manager' CUInt
types' Ptr (GList (Ptr WebsiteData))
websiteData'' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
(WebsiteData -> IO ()) -> [WebsiteData] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ WebsiteData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [WebsiteData]
websiteData
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
Ptr (GList (Ptr WebsiteData)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr WebsiteData))
websiteData''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerRemoveMethodInfo
instance (signature ~ ([WebKit2.Flags.WebsiteDataTypes] -> [WebKit2.WebsiteData.WebsiteData] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod WebsiteDataManagerRemoveMethodInfo a signature where
overloadedMethod = websiteDataManagerRemove
instance O.OverloadedMethodInfo WebsiteDataManagerRemoveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerRemove"
}
#endif
foreign import ccall "webkit_website_data_manager_remove_finish" webkit_website_data_manager_remove_finish ::
Ptr WebsiteDataManager ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
websiteDataManagerRemoveFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
websiteDataManagerRemoveFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebsiteDataManager a,
IsAsyncResult b) =>
a -> b -> m ()
websiteDataManagerRemoveFinish a
manager b
result_ = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
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 WebsiteDataManager
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
webkit_website_data_manager_remove_finish Ptr WebsiteDataManager
manager' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerRemoveFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod WebsiteDataManagerRemoveFinishMethodInfo a signature where
overloadedMethod = websiteDataManagerRemoveFinish
instance O.OverloadedMethodInfo WebsiteDataManagerRemoveFinishMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerRemoveFinish",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerRemoveFinish"
}
#endif
foreign import ccall "webkit_website_data_manager_set_itp_enabled" webkit_website_data_manager_set_itp_enabled ::
Ptr WebsiteDataManager ->
CInt ->
IO ()
websiteDataManagerSetItpEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> Bool
-> m ()
websiteDataManagerSetItpEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> Bool -> m ()
websiteDataManagerSetItpEnabled a
manager Bool
enabled = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
let enabled' :: CInt
enabled' = (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
enabled
Ptr WebsiteDataManager -> CInt -> IO ()
webkit_website_data_manager_set_itp_enabled Ptr WebsiteDataManager
manager' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerSetItpEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerSetItpEnabledMethodInfo a signature where
overloadedMethod = websiteDataManagerSetItpEnabled
instance O.OverloadedMethodInfo WebsiteDataManagerSetItpEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerSetItpEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerSetItpEnabled"
}
#endif
foreign import ccall "webkit_website_data_manager_set_persistent_credential_storage_enabled" webkit_website_data_manager_set_persistent_credential_storage_enabled ::
Ptr WebsiteDataManager ->
CInt ->
IO ()
websiteDataManagerSetPersistentCredentialStorageEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> Bool
-> m ()
websiteDataManagerSetPersistentCredentialStorageEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a -> Bool -> m ()
websiteDataManagerSetPersistentCredentialStorageEnabled a
manager Bool
enabled = 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 WebsiteDataManager
manager' <- a -> IO (Ptr WebsiteDataManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
let enabled' :: CInt
enabled' = (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
enabled
Ptr WebsiteDataManager -> CInt -> IO ()
webkit_website_data_manager_set_persistent_credential_storage_enabled Ptr WebsiteDataManager
manager' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WebsiteDataManagerSetPersistentCredentialStorageEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWebsiteDataManager a) => O.OverloadedMethod WebsiteDataManagerSetPersistentCredentialStorageEnabledMethodInfo a signature where
overloadedMethod = websiteDataManagerSetPersistentCredentialStorageEnabled
instance O.OverloadedMethodInfo WebsiteDataManagerSetPersistentCredentialStorageEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataManager.websiteDataManagerSetPersistentCredentialStorageEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataManager.html#v:websiteDataManagerSetPersistentCredentialStorageEnabled"
}
#endif