{-# 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.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 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
/= :: ContentDeserializer -> ContentDeserializer -> Bool
$c/= :: ContentDeserializer -> ContentDeserializer -> Bool
== :: ContentDeserializer -> ContentDeserializer -> Bool
$c== :: 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
instance B.GValue.IsGValue ContentDeserializer where
toGValue :: ContentDeserializer -> IO GValue
toGValue ContentDeserializer
o = do
GType
gtype <- IO GType
c_gdk_content_deserializer_get_type
ContentDeserializer
-> (Ptr ContentDeserializer -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ContentDeserializer
o (GType
-> (GValue -> Ptr ContentDeserializer -> IO ())
-> Ptr ContentDeserializer
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ContentDeserializer -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ContentDeserializer
fromGValue GValue
gv = do
Ptr ContentDeserializer
ptr <- GValue -> IO (Ptr ContentDeserializer)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ContentDeserializer)
(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
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 :: (MonadIO m, IsContentDeserializer o) => o -> m ContentDeserializer
toContentDeserializer :: o -> m ContentDeserializer
toContentDeserializer = IO ContentDeserializer -> m ContentDeserializer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr ContentDeserializer -> ContentDeserializer
ContentDeserializer
#if defined(ENABLE_OVERLOADING)
type family ResolveContentDeserializerMethod (t :: Symbol) (o :: *) :: * 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.MethodInfo 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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ContentDeserializer
type instance O.AttributeList ContentDeserializer = ContentDeserializerAttributeList
type ContentDeserializerAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ContentDeserializer = ContentDeserializerSignalList
type ContentDeserializerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#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 Gio.Cancellable.Cancellable
contentDeserializerGetCancellable :: a -> m Cancellable
contentDeserializerGetCancellable a
deserializer = IO Cancellable -> m Cancellable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Cancellable -> m Cancellable)
-> IO Cancellable -> m 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'
Text -> Ptr Cancellable -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contentDeserializerGetCancellable" Ptr Cancellable
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deserializer
Cancellable -> IO Cancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Cancellable
result'
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerGetCancellableMethodInfo
instance (signature ~ (m Gio.Cancellable.Cancellable), MonadIO m, IsContentDeserializer a) => O.MethodInfo ContentDeserializerGetCancellableMethodInfo a signature where
overloadedMethod = 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 :: a -> m GType
contentDeserializerGetGtype a
deserializer = IO GType -> m GType
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 (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.MethodInfo ContentDeserializerGetGtypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m InputStream
contentDeserializerGetInputStream a
deserializer = IO InputStream -> m InputStream
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 (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.MethodInfo ContentDeserializerGetInputStreamMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
contentDeserializerGetMimeType a
deserializer = 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 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 (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.MethodInfo ContentDeserializerGetMimeTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
contentDeserializerGetPriority a
deserializer = IO Int32 -> m Int32
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 (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.MethodInfo ContentDeserializerGetPriorityMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Ptr ())
contentDeserializerGetTaskData a
deserializer = IO (Ptr ()) -> m (Ptr ())
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 (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.MethodInfo ContentDeserializerGetTaskDataMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Ptr ())
contentDeserializerGetUserData a
deserializer = IO (Ptr ()) -> m (Ptr ())
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 (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.MethodInfo ContentDeserializerGetUserDataMethodInfo a signature where
overloadedMethod = 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 :: a -> m GValue
contentDeserializerGetValue a
deserializer = IO GValue -> m GValue
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 (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.MethodInfo ContentDeserializerGetValueMethodInfo a signature where
overloadedMethod = 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 :: a -> GError -> m ()
contentDeserializerReturnError a
deserializer GError
error_ = IO () -> m ()
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, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerReturnErrorMethodInfo
instance (signature ~ (GError -> m ()), MonadIO m, IsContentDeserializer a) => O.MethodInfo ContentDeserializerReturnErrorMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
contentDeserializerReturnSuccess a
deserializer = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContentDeserializerReturnSuccessMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContentDeserializer a) => O.MethodInfo ContentDeserializerReturnSuccessMethodInfo a signature where
overloadedMethod = 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 :: a -> Ptr () -> DestroyNotify -> m ()
contentDeserializerSetTaskData a
deserializer Ptr ()
data_ DestroyNotify
notify = IO () -> m ()
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 (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.MethodInfo ContentDeserializerSetTaskDataMethodInfo a signature where
overloadedMethod = contentDeserializerSetTaskData
#endif