#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.WebsiteDataManager
(
WebsiteDataManager(..) ,
IsWebsiteDataManager ,
toWebsiteDataManager ,
noWebsiteDataManager ,
#if ENABLE_OVERLOADING
WebsiteDataManagerClearMethodInfo ,
#endif
websiteDataManagerClear ,
#if ENABLE_OVERLOADING
WebsiteDataManagerClearFinishMethodInfo ,
#endif
websiteDataManagerClearFinish ,
#if ENABLE_OVERLOADING
WebsiteDataManagerFetchMethodInfo ,
#endif
websiteDataManagerFetch ,
#if ENABLE_OVERLOADING
WebsiteDataManagerFetchFinishMethodInfo ,
#endif
websiteDataManagerFetchFinish ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetBaseCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetBaseCacheDirectory ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetBaseDataDirectoryMethodInfo,
#endif
websiteDataManagerGetBaseDataDirectory ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetCookieManagerMethodInfo,
#endif
websiteDataManagerGetCookieManager ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetDiskCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetDiskCacheDirectory ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetIndexeddbDirectoryMethodInfo,
#endif
websiteDataManagerGetIndexeddbDirectory ,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetLocalStorageDirectoryMethodInfo,
#endif
websiteDataManagerGetLocalStorageDirectory,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo,
#endif
websiteDataManagerGetOfflineApplicationCacheDirectory,
#if ENABLE_OVERLOADING
WebsiteDataManagerGetWebsqlDirectoryMethodInfo,
#endif
websiteDataManagerGetWebsqlDirectory ,
#if ENABLE_OVERLOADING
WebsiteDataManagerIsEphemeralMethodInfo ,
#endif
websiteDataManagerIsEphemeral ,
websiteDataManagerNewEphemeral ,
#if ENABLE_OVERLOADING
WebsiteDataManagerRemoveMethodInfo ,
#endif
websiteDataManagerRemove ,
#if ENABLE_OVERLOADING
WebsiteDataManagerRemoveFinishMethodInfo,
#endif
websiteDataManagerRemoveFinish ,
#if ENABLE_OVERLOADING
WebsiteDataManagerBaseCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerBaseCacheDirectory,
getWebsiteDataManagerBaseCacheDirectory ,
#if ENABLE_OVERLOADING
websiteDataManagerBaseCacheDirectory ,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerBaseDataDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerBaseDataDirectory,
getWebsiteDataManagerBaseDataDirectory ,
#if ENABLE_OVERLOADING
websiteDataManagerBaseDataDirectory ,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerDiskCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerDiskCacheDirectory,
getWebsiteDataManagerDiskCacheDirectory ,
#if ENABLE_OVERLOADING
websiteDataManagerDiskCacheDirectory ,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerIndexeddbDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerIndexeddbDirectory,
getWebsiteDataManagerIndexeddbDirectory ,
#if ENABLE_OVERLOADING
websiteDataManagerIndexeddbDirectory ,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerIsEphemeralPropertyInfo,
#endif
constructWebsiteDataManagerIsEphemeral ,
getWebsiteDataManagerIsEphemeral ,
#if ENABLE_OVERLOADING
WebsiteDataManagerLocalStorageDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerLocalStorageDirectory,
getWebsiteDataManagerLocalStorageDirectory,
#if ENABLE_OVERLOADING
websiteDataManagerLocalStorageDirectory ,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerOfflineApplicationCacheDirectory,
getWebsiteDataManagerOfflineApplicationCacheDirectory,
#if ENABLE_OVERLOADING
websiteDataManagerOfflineApplicationCacheDirectory,
#endif
#if ENABLE_OVERLOADING
WebsiteDataManagerWebsqlDirectoryPropertyInfo,
#endif
constructWebsiteDataManagerWebsqlDirectory,
getWebsiteDataManagerWebsqlDirectory ,
#if 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.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.WebsiteData as WebKit2.WebsiteData
newtype WebsiteDataManager = WebsiteDataManager (ManagedPtr WebsiteDataManager)
foreign import ccall "webkit_website_data_manager_get_type"
c_webkit_website_data_manager_get_type :: IO GType
instance GObject WebsiteDataManager where
gobjectType = c_webkit_website_data_manager_get_type
class (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o
instance (GObject o, O.IsDescendantOf WebsiteDataManager o) => IsWebsiteDataManager o
instance O.HasParentTypes WebsiteDataManager
type instance O.ParentTypes WebsiteDataManager = '[GObject.Object.Object]
toWebsiteDataManager :: (MonadIO m, IsWebsiteDataManager o) => o -> m WebsiteDataManager
toWebsiteDataManager = liftIO . unsafeCastTo WebsiteDataManager
noWebsiteDataManager :: Maybe WebsiteDataManager
noWebsiteDataManager = Nothing
#if 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 "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebsiteDataManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo
ResolveWebsiteDataManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebsiteDataManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebsiteDataManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, O.MethodInfo info WebsiteDataManager p) => OL.IsLabel t (WebsiteDataManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getWebsiteDataManagerBaseCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerBaseCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "base-cache-directory"
constructWebsiteDataManagerBaseCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerBaseCacheDirectory val = B.Properties.constructObjectPropertyString "base-cache-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerBaseCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerBaseCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerBaseCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory"
type AttrOrigin WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerBaseCacheDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerBaseCacheDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerBaseDataDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerBaseDataDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "base-data-directory"
constructWebsiteDataManagerBaseDataDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerBaseDataDirectory val = B.Properties.constructObjectPropertyString "base-data-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerBaseDataDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerBaseDataDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerBaseDataDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory"
type AttrOrigin WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerBaseDataDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerBaseDataDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerDiskCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerDiskCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "disk-cache-directory"
constructWebsiteDataManagerDiskCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerDiskCacheDirectory val = B.Properties.constructObjectPropertyString "disk-cache-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerDiskCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerDiskCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerDiskCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory"
type AttrOrigin WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerDiskCacheDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerDiskCacheDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerIndexeddbDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerIndexeddbDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "indexeddb-directory"
constructWebsiteDataManagerIndexeddbDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerIndexeddbDirectory val = B.Properties.constructObjectPropertyString "indexeddb-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerIndexeddbDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerIndexeddbDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerIndexeddbDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory"
type AttrOrigin WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerIndexeddbDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerIndexeddbDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerIsEphemeral :: (MonadIO m, IsWebsiteDataManager o) => o -> m Bool
getWebsiteDataManagerIsEphemeral obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-ephemeral"
constructWebsiteDataManagerIsEphemeral :: (IsWebsiteDataManager o) => Bool -> IO (GValueConstruct o)
constructWebsiteDataManagerIsEphemeral val = B.Properties.constructObjectPropertyBool "is-ephemeral" val
#if ENABLE_OVERLOADING
data WebsiteDataManagerIsEphemeralPropertyInfo
instance AttrInfo WebsiteDataManagerIsEphemeralPropertyInfo where
type AttrAllowedOps WebsiteDataManagerIsEphemeralPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WebsiteDataManagerIsEphemeralPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerIsEphemeralPropertyInfo = Bool
type AttrLabel WebsiteDataManagerIsEphemeralPropertyInfo = "is-ephemeral"
type AttrOrigin WebsiteDataManagerIsEphemeralPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerIsEphemeral
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerIsEphemeral
attrClear _ = undefined
#endif
getWebsiteDataManagerLocalStorageDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerLocalStorageDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "local-storage-directory"
constructWebsiteDataManagerLocalStorageDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerLocalStorageDirectory val = B.Properties.constructObjectPropertyString "local-storage-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerLocalStorageDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerLocalStorageDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory"
type AttrOrigin WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerLocalStorageDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerLocalStorageDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerOfflineApplicationCacheDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerOfflineApplicationCacheDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "offline-application-cache-directory"
constructWebsiteDataManagerOfflineApplicationCacheDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerOfflineApplicationCacheDirectory val = B.Properties.constructObjectPropertyString "offline-application-cache-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory"
type AttrOrigin WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerOfflineApplicationCacheDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerOfflineApplicationCacheDirectory
attrClear _ = undefined
#endif
getWebsiteDataManagerWebsqlDirectory :: (MonadIO m, IsWebsiteDataManager o) => o -> m (Maybe T.Text)
getWebsiteDataManagerWebsqlDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "websql-directory"
constructWebsiteDataManagerWebsqlDirectory :: (IsWebsiteDataManager o) => T.Text -> IO (GValueConstruct o)
constructWebsiteDataManagerWebsqlDirectory val = B.Properties.constructObjectPropertyString "websql-directory" (Just val)
#if ENABLE_OVERLOADING
data WebsiteDataManagerWebsqlDirectoryPropertyInfo
instance AttrInfo WebsiteDataManagerWebsqlDirectoryPropertyInfo where
type AttrAllowedOps WebsiteDataManagerWebsqlDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = IsWebsiteDataManager
type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory"
type AttrOrigin WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManager
attrGet _ = getWebsiteDataManagerWebsqlDirectory
attrSet _ = undefined
attrConstruct _ = constructWebsiteDataManagerWebsqlDirectory
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList WebsiteDataManager
type instance O.AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList
type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("isEphemeral", WebsiteDataManagerIsEphemeralPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
websiteDataManagerBaseCacheDirectory :: AttrLabelProxy "baseCacheDirectory"
websiteDataManagerBaseCacheDirectory = AttrLabelProxy
websiteDataManagerBaseDataDirectory :: AttrLabelProxy "baseDataDirectory"
websiteDataManagerBaseDataDirectory = AttrLabelProxy
websiteDataManagerDiskCacheDirectory :: AttrLabelProxy "diskCacheDirectory"
websiteDataManagerDiskCacheDirectory = AttrLabelProxy
websiteDataManagerIndexeddbDirectory :: AttrLabelProxy "indexeddbDirectory"
websiteDataManagerIndexeddbDirectory = AttrLabelProxy
websiteDataManagerLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"
websiteDataManagerLocalStorageDirectory = AttrLabelProxy
websiteDataManagerOfflineApplicationCacheDirectory :: AttrLabelProxy "offlineApplicationCacheDirectory"
websiteDataManagerOfflineApplicationCacheDirectory = AttrLabelProxy
websiteDataManagerWebsqlDirectory :: AttrLabelProxy "websqlDirectory"
websiteDataManagerWebsqlDirectory = AttrLabelProxy
#endif
#if 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 = liftIO $ do
result <- webkit_website_data_manager_new_ephemeral
checkUnexpectedReturnNULL "websiteDataManagerNewEphemeral" result
result' <- (wrapObject WebsiteDataManager) result
return result'
#if 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 manager types timespan cancellable callback = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
let types' = gflagsToWord types
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
webkit_website_data_manager_clear manager' types' timespan maybeCancellable maybeCallback userData
touchManagedPtr manager
whenJust cancellable touchManagedPtr
return ()
#if 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.MethodInfo WebsiteDataManagerClearMethodInfo a signature where
overloadedMethod _ = 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 manager result_ = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ webkit_website_data_manager_clear_finish manager' result_'
touchManagedPtr manager
touchManagedPtr result_
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data WebsiteDataManagerClearFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerClearFinishMethodInfo a signature where
overloadedMethod _ = 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 manager types cancellable callback = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
let types' = gflagsToWord types
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
webkit_website_data_manager_fetch manager' types' maybeCancellable maybeCallback userData
touchManagedPtr manager
whenJust cancellable touchManagedPtr
return ()
#if 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.MethodInfo WebsiteDataManagerFetchMethodInfo a signature where
overloadedMethod _ = 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 manager result_ = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_website_data_manager_fetch_finish manager' result_'
result' <- unpackGList result
result'' <- mapM (wrapBoxed WebKit2.WebsiteData.WebsiteData) result'
g_list_free result
touchManagedPtr manager
touchManagedPtr result_
return result''
) (do
return ()
)
#if ENABLE_OVERLOADING
data WebsiteDataManagerFetchFinishMethodInfo
instance (signature ~ (b -> m [WebKit2.WebsiteData.WebsiteData]), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerFetchFinishMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_base_cache_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_base_data_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetBaseDataDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_cookie_manager manager'
checkUnexpectedReturnNULL "websiteDataManagerGetCookieManager" result
result' <- (newObject WebKit2.CookieManager.CookieManager) result
touchManagedPtr manager
return result'
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetCookieManagerMethodInfo
instance (signature ~ (m WebKit2.CookieManager.CookieManager), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetCookieManagerMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_disk_cache_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where
overloadedMethod _ = websiteDataManagerGetDiskCacheDirectory
#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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_indexeddb_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where
overloadedMethod _ = websiteDataManagerGetIndexeddbDirectory
#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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_local_storage_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_offline_application_cache_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where
overloadedMethod _ = websiteDataManagerGetOfflineApplicationCacheDirectory
#endif
foreign import ccall "webkit_website_data_manager_get_websql_directory" webkit_website_data_manager_get_websql_directory ::
Ptr WebsiteDataManager ->
IO CString
websiteDataManagerGetWebsqlDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataManager a) =>
a
-> m (Maybe T.Text)
websiteDataManagerGetWebsqlDirectory manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_get_websql_directory manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr manager
return maybeResult
#if ENABLE_OVERLOADING
data WebsiteDataManagerGetWebsqlDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where
overloadedMethod _ = 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 manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- webkit_website_data_manager_is_ephemeral manager'
let result' = (/= 0) result
touchManagedPtr manager
return result'
#if ENABLE_OVERLOADING
data WebsiteDataManagerIsEphemeralMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebsiteDataManager a) => O.MethodInfo WebsiteDataManagerIsEphemeralMethodInfo a signature where
overloadedMethod _ = 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 manager types websiteData cancellable callback = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
let types' = gflagsToWord types
websiteData' <- mapM unsafeManagedPtrGetPtr websiteData
websiteData'' <- packGList websiteData'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
webkit_website_data_manager_remove manager' types' websiteData'' maybeCancellable maybeCallback userData
touchManagedPtr manager
mapM_ touchManagedPtr websiteData
whenJust cancellable touchManagedPtr
g_list_free websiteData''
return ()
#if 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.MethodInfo WebsiteDataManagerRemoveMethodInfo a signature where
overloadedMethod _ = 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 manager result_ = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ webkit_website_data_manager_remove_finish manager' result_'
touchManagedPtr manager
touchManagedPtr result_
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data WebsiteDataManagerRemoveFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWebsiteDataManager a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo WebsiteDataManagerRemoveFinishMethodInfo a signature where
overloadedMethod _ = websiteDataManagerRemoveFinish
#endif