{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.WebsiteDataAccessPermissionRequest
(
WebsiteDataAccessPermissionRequest(..) ,
IsWebsiteDataAccessPermissionRequest ,
toWebsiteDataAccessPermissionRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveWebsiteDataAccessPermissionRequestMethod,
#endif
#if defined(ENABLE_OVERLOADING)
WebsiteDataAccessPermissionRequestGetCurrentDomainMethodInfo,
#endif
websiteDataAccessPermissionRequestGetCurrentDomain,
#if defined(ENABLE_OVERLOADING)
WebsiteDataAccessPermissionRequestGetRequestingDomainMethodInfo,
#endif
websiteDataAccessPermissionRequestGetRequestingDomain,
) 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 {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest
newtype WebsiteDataAccessPermissionRequest = WebsiteDataAccessPermissionRequest (SP.ManagedPtr WebsiteDataAccessPermissionRequest)
deriving (WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool
(WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool)
-> (WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool)
-> Eq WebsiteDataAccessPermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool
$c/= :: WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool
== :: WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool
$c== :: WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype WebsiteDataAccessPermissionRequest where
toManagedPtr :: WebsiteDataAccessPermissionRequest
-> ManagedPtr WebsiteDataAccessPermissionRequest
toManagedPtr (WebsiteDataAccessPermissionRequest ManagedPtr WebsiteDataAccessPermissionRequest
p) = ManagedPtr WebsiteDataAccessPermissionRequest
p
foreign import ccall "webkit_website_data_access_permission_request_get_type"
c_webkit_website_data_access_permission_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebsiteDataAccessPermissionRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_website_data_access_permission_request_get_type
instance B.Types.GObject WebsiteDataAccessPermissionRequest
class (SP.GObject o, O.IsDescendantOf WebsiteDataAccessPermissionRequest o) => IsWebsiteDataAccessPermissionRequest o
instance (SP.GObject o, O.IsDescendantOf WebsiteDataAccessPermissionRequest o) => IsWebsiteDataAccessPermissionRequest o
instance O.HasParentTypes WebsiteDataAccessPermissionRequest
type instance O.ParentTypes WebsiteDataAccessPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]
toWebsiteDataAccessPermissionRequest :: (MIO.MonadIO m, IsWebsiteDataAccessPermissionRequest o) => o -> m WebsiteDataAccessPermissionRequest
toWebsiteDataAccessPermissionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsWebsiteDataAccessPermissionRequest o) =>
o -> m WebsiteDataAccessPermissionRequest
toWebsiteDataAccessPermissionRequest = IO WebsiteDataAccessPermissionRequest
-> m WebsiteDataAccessPermissionRequest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WebsiteDataAccessPermissionRequest
-> m WebsiteDataAccessPermissionRequest)
-> (o -> IO WebsiteDataAccessPermissionRequest)
-> o
-> m WebsiteDataAccessPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest)
-> o -> IO WebsiteDataAccessPermissionRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest
WebsiteDataAccessPermissionRequest
instance B.GValue.IsGValue (Maybe WebsiteDataAccessPermissionRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_website_data_access_permission_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebsiteDataAccessPermissionRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebsiteDataAccessPermissionRequest
P.Nothing = Ptr GValue -> Ptr WebsiteDataAccessPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebsiteDataAccessPermissionRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebsiteDataAccessPermissionRequest)
gvalueSet_ Ptr GValue
gv (P.Just WebsiteDataAccessPermissionRequest
obj) = WebsiteDataAccessPermissionRequest
-> (Ptr WebsiteDataAccessPermissionRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebsiteDataAccessPermissionRequest
obj (Ptr GValue -> Ptr WebsiteDataAccessPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebsiteDataAccessPermissionRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr WebsiteDataAccessPermissionRequest
ptr <- Ptr GValue -> IO (Ptr WebsiteDataAccessPermissionRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebsiteDataAccessPermissionRequest)
if Ptr WebsiteDataAccessPermissionRequest
ptr Ptr WebsiteDataAccessPermissionRequest
-> Ptr WebsiteDataAccessPermissionRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebsiteDataAccessPermissionRequest
forall a. Ptr a
FP.nullPtr
then WebsiteDataAccessPermissionRequest
-> Maybe WebsiteDataAccessPermissionRequest
forall a. a -> Maybe a
P.Just (WebsiteDataAccessPermissionRequest
-> Maybe WebsiteDataAccessPermissionRequest)
-> IO WebsiteDataAccessPermissionRequest
-> IO (Maybe WebsiteDataAccessPermissionRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest)
-> Ptr WebsiteDataAccessPermissionRequest
-> IO WebsiteDataAccessPermissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebsiteDataAccessPermissionRequest
-> WebsiteDataAccessPermissionRequest
WebsiteDataAccessPermissionRequest Ptr WebsiteDataAccessPermissionRequest
ptr
else Maybe WebsiteDataAccessPermissionRequest
-> IO (Maybe WebsiteDataAccessPermissionRequest)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebsiteDataAccessPermissionRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebsiteDataAccessPermissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveWebsiteDataAccessPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getCurrentDomain" o = WebsiteDataAccessPermissionRequestGetCurrentDomainMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "getRequestingDomain" o = WebsiteDataAccessPermissionRequestGetRequestingDomainMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebsiteDataAccessPermissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebsiteDataAccessPermissionRequestMethod t WebsiteDataAccessPermissionRequest, O.OverloadedMethod info WebsiteDataAccessPermissionRequest p) => OL.IsLabel t (WebsiteDataAccessPermissionRequest -> 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 ~ ResolveWebsiteDataAccessPermissionRequestMethod t WebsiteDataAccessPermissionRequest, O.OverloadedMethod info WebsiteDataAccessPermissionRequest p, R.HasField t WebsiteDataAccessPermissionRequest p) => R.HasField t WebsiteDataAccessPermissionRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebsiteDataAccessPermissionRequestMethod t WebsiteDataAccessPermissionRequest, O.OverloadedMethodInfo info WebsiteDataAccessPermissionRequest) => OL.IsLabel t (O.MethodProxy info WebsiteDataAccessPermissionRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebsiteDataAccessPermissionRequest
type instance O.AttributeList WebsiteDataAccessPermissionRequest = WebsiteDataAccessPermissionRequestAttributeList
type WebsiteDataAccessPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebsiteDataAccessPermissionRequest = WebsiteDataAccessPermissionRequestSignalList
type WebsiteDataAccessPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_website_data_access_permission_request_get_current_domain" webkit_website_data_access_permission_request_get_current_domain ::
Ptr WebsiteDataAccessPermissionRequest ->
IO CString
websiteDataAccessPermissionRequestGetCurrentDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataAccessPermissionRequest a) =>
a
-> m T.Text
websiteDataAccessPermissionRequestGetCurrentDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m,
IsWebsiteDataAccessPermissionRequest a) =>
a -> m Text
websiteDataAccessPermissionRequestGetCurrentDomain a
request = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataAccessPermissionRequest
request' <- a -> IO (Ptr WebsiteDataAccessPermissionRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CString
result <- Ptr WebsiteDataAccessPermissionRequest -> IO CString
webkit_website_data_access_permission_request_get_current_domain Ptr WebsiteDataAccessPermissionRequest
request'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"websiteDataAccessPermissionRequestGetCurrentDomain" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataAccessPermissionRequestGetCurrentDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebsiteDataAccessPermissionRequest a) => O.OverloadedMethod WebsiteDataAccessPermissionRequestGetCurrentDomainMethodInfo a signature where
overloadedMethod = websiteDataAccessPermissionRequestGetCurrentDomain
instance O.OverloadedMethodInfo WebsiteDataAccessPermissionRequestGetCurrentDomainMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataAccessPermissionRequest.websiteDataAccessPermissionRequestGetCurrentDomain",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataAccessPermissionRequest.html#v:websiteDataAccessPermissionRequestGetCurrentDomain"
}
#endif
foreign import ccall "webkit_website_data_access_permission_request_get_requesting_domain" webkit_website_data_access_permission_request_get_requesting_domain ::
Ptr WebsiteDataAccessPermissionRequest ->
IO CString
websiteDataAccessPermissionRequestGetRequestingDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsiteDataAccessPermissionRequest a) =>
a
-> m T.Text
websiteDataAccessPermissionRequestGetRequestingDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m,
IsWebsiteDataAccessPermissionRequest a) =>
a -> m Text
websiteDataAccessPermissionRequestGetRequestingDomain a
request = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebsiteDataAccessPermissionRequest
request' <- a -> IO (Ptr WebsiteDataAccessPermissionRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CString
result <- Ptr WebsiteDataAccessPermissionRequest -> IO CString
webkit_website_data_access_permission_request_get_requesting_domain Ptr WebsiteDataAccessPermissionRequest
request'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"websiteDataAccessPermissionRequestGetRequestingDomain" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebsiteDataAccessPermissionRequestGetRequestingDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebsiteDataAccessPermissionRequest a) => O.OverloadedMethod WebsiteDataAccessPermissionRequestGetRequestingDomainMethodInfo a signature where
overloadedMethod = websiteDataAccessPermissionRequestGetRequestingDomain
instance O.OverloadedMethodInfo WebsiteDataAccessPermissionRequestGetRequestingDomainMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.WebsiteDataAccessPermissionRequest.websiteDataAccessPermissionRequestGetRequestingDomain",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-WebsiteDataAccessPermissionRequest.html#v:websiteDataAccessPermissionRequestGetRequestingDomain"
}
#endif