{-# 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 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
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 ContentDeserializer
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 ContentDeserializer
ptr Ptr ContentDeserializer -> Ptr ContentDeserializer -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ContentDeserializer
forall a. Ptr a
FP.nullPtr
then ContentDeserializer -> Maybe ContentDeserializer
forall a. a -> Maybe a
P.Just (ContentDeserializer -> Maybe ContentDeserializer)
-> IO ContentDeserializer -> IO (Maybe ContentDeserializer)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ContentDeserializer -> ContentDeserializer)
-> Ptr ContentDeserializer -> IO ContentDeserializer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ContentDeserializer -> ContentDeserializer
ContentDeserializer Ptr ContentDeserializer
ptr
else Maybe ContentDeserializer -> IO (Maybe ContentDeserializer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ContentDeserializer
forall a. Maybe a
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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr Cancellable
result <- Ptr ContentDeserializer -> IO (Ptr Cancellable)
gdk_content_deserializer_get_cancellable Ptr ContentDeserializer
deserializer'
Maybe Cancellable
maybeResult <- Ptr Cancellable
-> (Ptr Cancellable -> IO Cancellable) -> IO (Maybe Cancellable)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Cancellable
result ((Ptr Cancellable -> IO Cancellable) -> IO (Maybe Cancellable))
-> (Ptr Cancellable -> IO Cancellable) -> IO (Maybe Cancellable)
forall a b. (a -> b) -> a -> b
$ \Ptr Cancellable
result' -> do
Cancellable
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'
Cancellable -> IO Cancellable
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Cancellable
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Maybe Cancellable -> IO (Maybe Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Cancellable
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
CGType
result <- Ptr ContentDeserializer -> IO CGType
gdk_content_deserializer_get_gtype Ptr ContentDeserializer
deserializer'
let result' :: GType
result' = CGType -> GType
GType CGType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
GType -> IO GType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GType
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr InputStream
result <- Ptr ContentDeserializer -> IO (Ptr InputStream)
gdk_content_deserializer_get_input_stream Ptr ContentDeserializer
deserializer'
Text -> Ptr InputStream -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contentDeserializerGetInputStream" Ptr InputStream
result
InputStream
result' <- ((ManagedPtr InputStream -> InputStream)
-> Ptr InputStream -> IO InputStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr InputStream -> InputStream
Gio.InputStream.InputStream) Ptr InputStream
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
InputStream -> IO InputStream
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputStream
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
CString
result <- Ptr ContentDeserializer -> IO CString
gdk_content_deserializer_get_mime_type Ptr ContentDeserializer
deserializer'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contentDeserializerGetMimeType" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Int32
result <- Ptr ContentDeserializer -> IO Int32
gdk_content_deserializer_get_priority Ptr ContentDeserializer
deserializer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr ()
result <- Ptr ContentDeserializer -> IO (Ptr ())
gdk_content_deserializer_get_task_data Ptr ContentDeserializer
deserializer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr ()
result <- Ptr ContentDeserializer -> IO (Ptr ())
gdk_content_deserializer_get_user_data Ptr ContentDeserializer
deserializer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr GValue
result <- Ptr ContentDeserializer -> IO (Ptr GValue)
gdk_content_deserializer_get_value Ptr ContentDeserializer
deserializer'
Text -> Ptr GValue -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contentDeserializerGetValue" Ptr GValue
result
GValue
result' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
GValue -> IO GValue
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GValue
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr GError
error_' <- GError -> IO (Ptr GError)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed GError
error_
Ptr ContentDeserializer -> Ptr GError -> IO ()
gdk_content_deserializer_return_error Ptr ContentDeserializer
deserializer' Ptr GError
error_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
GError -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GError
error_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr ContentDeserializer -> IO ()
gdk_content_deserializer_return_success Ptr ContentDeserializer
deserializer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.7/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
Ptr ContentDeserializer
deserializer' <- a -> IO (Ptr ContentDeserializer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deserializer
Ptr (FunPtr DestroyNotify)
ptrnotify <- IO (Ptr (FunPtr DestroyNotify))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))
FunPtr DestroyNotify
notify' <- DestroyNotify -> IO (FunPtr DestroyNotify)
GLib.Callbacks.mk_DestroyNotify (Maybe (Ptr (FunPtr DestroyNotify))
-> DestroyNotify -> DestroyNotify
GLib.Callbacks.wrap_DestroyNotify (Ptr (FunPtr DestroyNotify) -> Maybe (Ptr (FunPtr DestroyNotify))
forall a. a -> Maybe a
Just Ptr (FunPtr DestroyNotify)
ptrnotify) DestroyNotify
notify)
Ptr (FunPtr DestroyNotify) -> FunPtr DestroyNotify -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr DestroyNotify)
ptrnotify FunPtr DestroyNotify
notify'
Ptr ContentDeserializer -> Ptr () -> FunPtr DestroyNotify -> IO ()
gdk_content_deserializer_set_task_data Ptr ContentDeserializer
deserializer' Ptr ()
data_ FunPtr DestroyNotify
notify'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.7/docs/GI-Gdk-Objects-ContentDeserializer.html#v:contentDeserializerSetTaskData"
})
#endif