{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.DeviceInfoPermissionRequest
(
DeviceInfoPermissionRequest(..) ,
IsDeviceInfoPermissionRequest ,
toDeviceInfoPermissionRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveDeviceInfoPermissionRequestMethod,
#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.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.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 DeviceInfoPermissionRequest = DeviceInfoPermissionRequest (SP.ManagedPtr DeviceInfoPermissionRequest)
deriving (DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
(DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest -> Bool)
-> (DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest -> Bool)
-> Eq DeviceInfoPermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
== :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
$c/= :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
/= :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype DeviceInfoPermissionRequest where
toManagedPtr :: DeviceInfoPermissionRequest
-> ManagedPtr DeviceInfoPermissionRequest
toManagedPtr (DeviceInfoPermissionRequest ManagedPtr DeviceInfoPermissionRequest
p) = ManagedPtr DeviceInfoPermissionRequest
p
foreign import ccall "webkit_device_info_permission_request_get_type"
c_webkit_device_info_permission_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject DeviceInfoPermissionRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_device_info_permission_request_get_type
instance B.Types.GObject DeviceInfoPermissionRequest
class (SP.GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o
instance (SP.GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o
instance O.HasParentTypes DeviceInfoPermissionRequest
type instance O.ParentTypes DeviceInfoPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]
toDeviceInfoPermissionRequest :: (MIO.MonadIO m, IsDeviceInfoPermissionRequest o) => o -> m DeviceInfoPermissionRequest
toDeviceInfoPermissionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceInfoPermissionRequest o) =>
o -> m DeviceInfoPermissionRequest
toDeviceInfoPermissionRequest = IO DeviceInfoPermissionRequest -> m DeviceInfoPermissionRequest
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DeviceInfoPermissionRequest -> m DeviceInfoPermissionRequest)
-> (o -> IO DeviceInfoPermissionRequest)
-> o
-> m DeviceInfoPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest)
-> o -> IO DeviceInfoPermissionRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest
DeviceInfoPermissionRequest
instance B.GValue.IsGValue (Maybe DeviceInfoPermissionRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_device_info_permission_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe DeviceInfoPermissionRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DeviceInfoPermissionRequest
P.Nothing = Ptr GValue -> Ptr DeviceInfoPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DeviceInfoPermissionRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr DeviceInfoPermissionRequest)
gvalueSet_ Ptr GValue
gv (P.Just DeviceInfoPermissionRequest
obj) = DeviceInfoPermissionRequest
-> (Ptr DeviceInfoPermissionRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DeviceInfoPermissionRequest
obj (Ptr GValue -> Ptr DeviceInfoPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DeviceInfoPermissionRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr DeviceInfoPermissionRequest
ptr <- Ptr GValue -> IO (Ptr DeviceInfoPermissionRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DeviceInfoPermissionRequest)
if Ptr DeviceInfoPermissionRequest
ptr Ptr DeviceInfoPermissionRequest
-> Ptr DeviceInfoPermissionRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DeviceInfoPermissionRequest
forall a. Ptr a
FP.nullPtr
then DeviceInfoPermissionRequest -> Maybe DeviceInfoPermissionRequest
forall a. a -> Maybe a
P.Just (DeviceInfoPermissionRequest -> Maybe DeviceInfoPermissionRequest)
-> IO DeviceInfoPermissionRequest
-> IO (Maybe DeviceInfoPermissionRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest)
-> Ptr DeviceInfoPermissionRequest
-> IO DeviceInfoPermissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest
DeviceInfoPermissionRequest Ptr DeviceInfoPermissionRequest
ptr
else Maybe DeviceInfoPermissionRequest
-> IO (Maybe DeviceInfoPermissionRequest)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DeviceInfoPermissionRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDeviceInfoPermissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveDeviceInfoPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo
ResolveDeviceInfoPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDeviceInfoPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDeviceInfoPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDeviceInfoPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDeviceInfoPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDeviceInfoPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDeviceInfoPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDeviceInfoPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDeviceInfoPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDeviceInfoPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDeviceInfoPermissionRequestMethod t DeviceInfoPermissionRequest, O.OverloadedMethod info DeviceInfoPermissionRequest p) => OL.IsLabel t (DeviceInfoPermissionRequest -> 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 ~ ResolveDeviceInfoPermissionRequestMethod t DeviceInfoPermissionRequest, O.OverloadedMethod info DeviceInfoPermissionRequest p, R.HasField t DeviceInfoPermissionRequest p) => R.HasField t DeviceInfoPermissionRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDeviceInfoPermissionRequestMethod t DeviceInfoPermissionRequest, O.OverloadedMethodInfo info DeviceInfoPermissionRequest) => OL.IsLabel t (O.MethodProxy info DeviceInfoPermissionRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DeviceInfoPermissionRequest
type instance O.AttributeList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestAttributeList
type DeviceInfoPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestSignalList
type DeviceInfoPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif