{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Objects.ContentDeserializer
(
ContentDeserializer(..) ,
IsContentDeserializer ,
toContentDeserializer ,
#if defined(ENABLE_OVERLOADING)
ResolveContentDeserializerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetCancellableMethodInfo,
#endif
contentDeserializerGetCancellable ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetGtypeMethodInfo ,
#endif
contentDeserializerGetGtype ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetInputStreamMethodInfo,
#endif
contentDeserializerGetInputStream ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetMimeTypeMethodInfo,
#endif
contentDeserializerGetMimeType ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetPriorityMethodInfo,
#endif
contentDeserializerGetPriority ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetTaskDataMethodInfo,
#endif
contentDeserializerGetTaskData ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetUserDataMethodInfo,
#endif
contentDeserializerGetUserData ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerGetValueMethodInfo ,
#endif
contentDeserializerGetValue ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerReturnErrorMethodInfo,
#endif
contentDeserializerReturnError ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerReturnSuccessMethodInfo,
#endif
contentDeserializerReturnSuccess ,
#if defined(ENABLE_OVERLOADING)
ContentDeserializerSetTaskDataMethodInfo,
#endif
contentDeserializerSetTaskData ,
) 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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
#else
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
#endif
newtype ContentDeserializer = ContentDeserializer (SP.ManagedPtr ContentDeserializer)
deriving (ContentDeserializer -> ContentDeserializer -> Bool
(ContentDeserializer -> ContentDeserializer -> Bool)
-> (ContentDeserializer -> ContentDeserializer -> Bool)
-> Eq ContentDeserializer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ContentDeserializer -> ContentDeserializer -> Bool
== :: ContentDeserializer -> ContentDeserializer -> Bool
$c/= :: ContentDeserializer -> ContentDeserializer -> Bool
/= :: ContentDeserializer -> ContentDeserializer -> Bool
Eq)
instance SP.ManagedPtrNewtype ContentDeserializer where
toManagedPtr :: ContentDeserializer -> ManagedPtr ContentDeserializer
toManagedPtr (ContentDeserializer ManagedPtr ContentDeserializer
p) = ManagedPtr ContentDeserializer
p
foreign import ccall "gdk_content_deserializer_get_type"
c_gdk_content_deserializer_get_type :: IO B.Types.GType
instance B.Types.TypedObject ContentDeserializer where
glibType :: IO GType
glibType = IO GType
c_gdk_content_deserializer_get_type
instance B.Types.GObject ContentDeserializer
class (SP.GObject o, O.IsDescendantOf ContentDeserializer o) => IsContentDeserializer o
instance (SP.GObject o, O.IsDescendantOf ContentDeserializer o) => IsContentDeserializer o
instance O.HasParentTypes ContentDeserializer
type instance O.ParentTypes ContentDeserializer = '[GObject.Object.Object, Gio.AsyncResult.AsyncResult]
toContentDeserializer :: (MIO.MonadIO m, IsContentDeserializer o) => o -> m ContentDeserializer
toContentDeserializer :: forall (m :: * -> *) o.
(MonadIO m, IsContentDeserializer o) =>
o -> m ContentDeserializer
toContentDeserializer = IO ContentDeserializer -> m ContentDeserializer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ContentDeserializer -> m ContentDeserializer)
-> (o -> IO ContentDeserializer) -> o -> m ContentDeserializer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ContentDeserializer -> ContentDeserializer)
-> o -> IO ContentDeserializer
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ContentDeserializer -> ContentDeserializer
ContentDeserializer
instance B.GValue.IsGValue (Maybe ContentDeserializer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_content_deserializer_get_type
gvalueSet_ :: Ptr GValue -> Maybe ContentDeserializer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ContentDeserializer
P.Nothing = Ptr GValue -> Ptr ContentDeserializer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ContentDeserializer
forall a. Ptr a
FP.nullPtr :: FP.Ptr ContentDeserializer)
gvalueSet_ Ptr GValue
gv (P.Just ContentDeserializer
obj) = ContentDeserializer -> (Ptr ContentDeserializer -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ContentDeserializer
obj (Ptr GValue -> Ptr ContentDeserializer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ContentDeserializer)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr ContentDeserializer)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ContentDeserializer)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject ContentDeserializer ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveContentDeserializerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveContentDeserializerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveContentDeserializerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveContentDeserializerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveContentDeserializerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveContentDeserializerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveContentDeserializerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveContentDeserializerMethod "isTagged" o = Gio.AsyncResult.AsyncResultIsTaggedMethodInfo
ResolveContentDeserializerMethod "legacyPropagateError" o = Gio.AsyncResult.AsyncResultLegacyPropagateErrorMethodInfo
ResolveContentDeserializerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveContentDeserializerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveContentDeserializerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveContentDeserializerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveContentDeserializerMethod "returnError" o = ContentDeserializerReturnErrorMethodInfo
ResolveContentDeserializerMethod "returnSuccess" o = ContentDeserializerReturnSuccessMethodInfo
ResolveContentDeserializerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveContentDeserializerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveContentDeserializerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveContentDeserializerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveContentDeserializerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveContentDeserializerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveContentDeserializerMethod "getCancellable" o = ContentDeserializerGetCancellableMethodInfo
ResolveContentDeserializerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveContentDeserializerMethod "getGtype" o = ContentDeserializerGetGtypeMethodInfo
ResolveContentDeserializerMethod "getInputStream" o = ContentDeserializerGetInputStreamMethodInfo
ResolveContentDeserializerMethod "getMimeType" o = ContentDeserializerGetMimeTypeMethodInfo
ResolveContentDeserializerMethod "getPriority" o = ContentDeserializerGetPriorityMethodInfo
ResolveContentDeserializerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveContentDeserializerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveContentDeserializerMethod "getSourceObject" o = Gio.AsyncResult.AsyncResultGetSourceObjectMethodInfo
ResolveContentDeserializerMethod "getTaskData" o = ContentDeserializerGetTaskDataMethodInfo
ResolveContentDeserializerMethod "getUserData" o = ContentDeserializerGetUserDataMethodInfo
ResolveContentDeserializerMethod "getValue" o = ContentDeserializerGetValueMethodInfo
ResolveContentDeserializerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveContentDeserializerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveContentDeserializerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveContentDeserializerMethod "setTaskData" o = ContentDeserializerSetTaskDataMethodInfo
ResolveContentDeserializerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveContentDeserializerMethod t ContentDeserializer, O.OverloadedMethod info ContentDeserializer p) => OL.IsLabel t (ContentDeserializer -> 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 ~ ResolveContentDeserializerMethod t ContentDeserializer, O.OverloadedMethod info ContentDeserializer p, R.HasField t ContentDeserializer p) => R.HasField t ContentDeserializer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveContentDeserializerMethod t ContentDeserializer, O.OverloadedMethodInfo info ContentDeserializer) => OL.IsLabel t (O.MethodProxy info ContentDeserializer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ContentDeserializer
type instance O.AttributeList ContentDeserializer = ContentDeserializerAttributeList
type ContentDeserializerAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ContentDeserializer = ContentDeserializerSignalList
type ContentDeserializerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_content_deserializer_get_cancellable" gdk_content_deserializer_get_cancellable ::
Ptr ContentDeserializer ->
IO (Ptr Gio.Cancellable.Cancellable)
contentDeserializerGetCancellable ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m (Maybe Gio.Cancellable.Cancellable)
contentDeserializerGetCancellable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m (Maybe Cancellable)
contentDeserializerGetCancellable a
deserializer = IO (Maybe Cancellable) -> m (Maybe Cancellable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Cancellable) -> m (Maybe Cancellable))
-> IO (Maybe Cancellable) -> m (Maybe Cancellable)
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_cancellable deserializer'
maybeResult <- convertIfNonNull result $ \Ptr Cancellable
result' -> do
result'' <- ((ManagedPtr Cancellable -> Cancellable)
-> Ptr Cancellable -> IO Cancellable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Cancellable -> Cancellable
Gio.Cancellable.Cancellable) Ptr Cancellable
result'
return result''
touchManagedPtr deserializer
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetCancellableMethodInfo
instance (signature ~ (m (Maybe Gio.Cancellable.Cancellable)), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetCancellableMethodInfo a signature where
overloadedMethod = contentDeserializerGetCancellable
instance O.OverloadedMethodInfo ContentDeserializerGetCancellableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetCancellable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetCancellable"
})
#endif
foreign import ccall "gdk_content_deserializer_get_gtype" gdk_content_deserializer_get_gtype ::
Ptr ContentDeserializer ->
IO CGType
contentDeserializerGetGtype ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m GType
contentDeserializerGetGtype :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m GType
contentDeserializerGetGtype a
deserializer = IO GType -> m GType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_gtype deserializer'
let result' = CGType -> GType
GType CGType
result
touchManagedPtr deserializer
return result'
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetGtypeMethodInfo
instance (signature ~ (m GType), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetGtypeMethodInfo a signature where
overloadedMethod = contentDeserializerGetGtype
instance O.OverloadedMethodInfo ContentDeserializerGetGtypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetGtype",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetGtype"
})
#endif
foreign import ccall "gdk_content_deserializer_get_input_stream" gdk_content_deserializer_get_input_stream ::
Ptr ContentDeserializer ->
IO (Ptr Gio.InputStream.InputStream)
contentDeserializerGetInputStream ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m Gio.InputStream.InputStream
contentDeserializerGetInputStream :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m InputStream
contentDeserializerGetInputStream a
deserializer = IO InputStream -> m InputStream
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputStream -> m InputStream)
-> IO InputStream -> m InputStream
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_input_stream deserializer'
checkUnexpectedReturnNULL "contentDeserializerGetInputStream" result
result' <- (newObject Gio.InputStream.InputStream) result
touchManagedPtr deserializer
return result'
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetInputStreamMethodInfo
instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetInputStreamMethodInfo a signature where
overloadedMethod = contentDeserializerGetInputStream
instance O.OverloadedMethodInfo ContentDeserializerGetInputStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetInputStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetInputStream"
})
#endif
foreign import ccall "gdk_content_deserializer_get_mime_type" gdk_content_deserializer_get_mime_type ::
Ptr ContentDeserializer ->
IO CString
contentDeserializerGetMimeType ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m T.Text
contentDeserializerGetMimeType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m Text
contentDeserializerGetMimeType a
deserializer = IO Text -> m Text
forall a. IO a -> m a
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
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_mime_type deserializer'
checkUnexpectedReturnNULL "contentDeserializerGetMimeType" result
result' <- cstringToText result
touchManagedPtr deserializer
return result'
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetMimeTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetMimeTypeMethodInfo a signature where
overloadedMethod = contentDeserializerGetMimeType
instance O.OverloadedMethodInfo ContentDeserializerGetMimeTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetMimeType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetMimeType"
})
#endif
foreign import ccall "gdk_content_deserializer_get_priority" gdk_content_deserializer_get_priority ::
Ptr ContentDeserializer ->
IO Int32
contentDeserializerGetPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m Int32
contentDeserializerGetPriority :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m Int32
contentDeserializerGetPriority a
deserializer = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_priority deserializer'
touchManagedPtr deserializer
return result
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetPriorityMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetPriorityMethodInfo a signature where
overloadedMethod = contentDeserializerGetPriority
instance O.OverloadedMethodInfo ContentDeserializerGetPriorityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetPriority",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetPriority"
})
#endif
foreign import ccall "gdk_content_deserializer_get_task_data" gdk_content_deserializer_get_task_data ::
Ptr ContentDeserializer ->
IO (Ptr ())
contentDeserializerGetTaskData ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m (Ptr ())
contentDeserializerGetTaskData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m (Ptr ())
contentDeserializerGetTaskData a
deserializer = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_task_data deserializer'
touchManagedPtr deserializer
return result
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetTaskDataMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetTaskDataMethodInfo a signature where
overloadedMethod = contentDeserializerGetTaskData
instance O.OverloadedMethodInfo ContentDeserializerGetTaskDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetTaskData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetTaskData"
})
#endif
foreign import ccall "gdk_content_deserializer_get_user_data" gdk_content_deserializer_get_user_data ::
Ptr ContentDeserializer ->
IO (Ptr ())
contentDeserializerGetUserData ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m (Ptr ())
contentDeserializerGetUserData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m (Ptr ())
contentDeserializerGetUserData a
deserializer = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_user_data deserializer'
touchManagedPtr deserializer
return result
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetUserDataMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetUserDataMethodInfo a signature where
overloadedMethod = contentDeserializerGetUserData
instance O.OverloadedMethodInfo ContentDeserializerGetUserDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetUserData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetUserData"
})
#endif
foreign import ccall "gdk_content_deserializer_get_value" gdk_content_deserializer_get_value ::
Ptr ContentDeserializer ->
IO (Ptr GValue)
contentDeserializerGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m GValue
contentDeserializerGetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m GValue
contentDeserializerGetValue a
deserializer = IO GValue -> m GValue
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GValue -> m GValue) -> IO GValue -> m GValue
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
result <- gdk_content_deserializer_get_value deserializer'
checkUnexpectedReturnNULL "contentDeserializerGetValue" result
result' <- B.GValue.newGValueFromPtr result
touchManagedPtr deserializer
return result'
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetValueMethodInfo
instance (signature ~ (m GValue), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerGetValueMethodInfo a signature where
overloadedMethod = contentDeserializerGetValue
instance O.OverloadedMethodInfo ContentDeserializerGetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerGetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerGetValue"
})
#endif
foreign import ccall "gdk_content_deserializer_return_error" gdk_content_deserializer_return_error ::
Ptr ContentDeserializer ->
Ptr GError ->
IO ()
contentDeserializerReturnError ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> GError
-> m ()
contentDeserializerReturnError :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> GError -> m ()
contentDeserializerReturnError a
deserializer GError
error_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
error_' <- B.ManagedPtr.disownBoxed error_
gdk_content_deserializer_return_error deserializer' error_'
touchManagedPtr deserializer
touchManagedPtr error_
return ()
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerReturnErrorMethodInfo
instance (signature ~ (GError -> m ()), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerReturnErrorMethodInfo a signature where
overloadedMethod = contentDeserializerReturnError
instance O.OverloadedMethodInfo ContentDeserializerReturnErrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerReturnError",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerReturnError"
})
#endif
foreign import ccall "gdk_content_deserializer_return_success" gdk_content_deserializer_return_success ::
Ptr ContentDeserializer ->
IO ()
contentDeserializerReturnSuccess ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> m ()
contentDeserializerReturnSuccess :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> m ()
contentDeserializerReturnSuccess a
deserializer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
gdk_content_deserializer_return_success deserializer'
touchManagedPtr deserializer
return ()
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerReturnSuccessMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerReturnSuccessMethodInfo a signature where
overloadedMethod = contentDeserializerReturnSuccess
instance O.OverloadedMethodInfo ContentDeserializerReturnSuccessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerReturnSuccess",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerReturnSuccess"
})
#endif
foreign import ccall "gdk_content_deserializer_set_task_data" gdk_content_deserializer_set_task_data ::
Ptr ContentDeserializer ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
contentDeserializerSetTaskData ::
(B.CallStack.HasCallStack, MonadIO m, IsContentDeserializer a) =>
a
-> Ptr ()
-> GLib.Callbacks.DestroyNotify
-> m ()
contentDeserializerSetTaskData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContentDeserializer a) =>
a -> Ptr () -> DestroyNotify -> m ()
contentDeserializerSetTaskData a
deserializer Ptr ()
data_ DestroyNotify
notify = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
ptrnotify <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))
notify' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrnotify) notify)
poke ptrnotify notify'
gdk_content_deserializer_set_task_data deserializer' data_ notify'
touchManagedPtr deserializer
return ()
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerSetTaskDataMethodInfo
instance (signature ~ (Ptr () -> GLib.Callbacks.DestroyNotify -> m ()), MonadIO m, IsContentDeserializer a) => O.OverloadedMethod ContentDeserializerSetTaskDataMethodInfo a signature where
overloadedMethod = contentDeserializerSetTaskData
instance O.OverloadedMethodInfo ContentDeserializerSetTaskDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.ContentDeserializer.contentDeserializerSetTaskData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerSetTaskData"
})
#endif