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