{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.DBusMethodInvocation
(
DBusMethodInvocation(..) ,
IsDBusMethodInvocation ,
toDBusMethodInvocation ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusMethodInvocationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetConnectionMethodInfo,
#endif
dBusMethodInvocationGetConnection ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetInterfaceNameMethodInfo,
#endif
dBusMethodInvocationGetInterfaceName ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetMessageMethodInfo,
#endif
dBusMethodInvocationGetMessage ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetMethodInfoMethodInfo,
#endif
dBusMethodInvocationGetMethodInfo ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetMethodNameMethodInfo,
#endif
dBusMethodInvocationGetMethodName ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetObjectPathMethodInfo,
#endif
dBusMethodInvocationGetObjectPath ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetParametersMethodInfo,
#endif
dBusMethodInvocationGetParameters ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetPropertyInfoMethodInfo,
#endif
dBusMethodInvocationGetPropertyInfo ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationGetSenderMethodInfo ,
#endif
dBusMethodInvocationGetSender ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationReturnDbusErrorMethodInfo,
#endif
dBusMethodInvocationReturnDbusError ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationReturnErrorLiteralMethodInfo,
#endif
dBusMethodInvocationReturnErrorLiteral ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationReturnGerrorMethodInfo,
#endif
dBusMethodInvocationReturnGerror ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationReturnValueMethodInfo,
#endif
dBusMethodInvocationReturnValue ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInvocationReturnValueWithUnixFdListMethodInfo,
#endif
dBusMethodInvocationReturnValueWithUnixFdList,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage
import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusMethodInfo as Gio.DBusMethodInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusPropertyInfo as Gio.DBusPropertyInfo
newtype DBusMethodInvocation = DBusMethodInvocation (SP.ManagedPtr DBusMethodInvocation)
deriving (DBusMethodInvocation -> DBusMethodInvocation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DBusMethodInvocation -> DBusMethodInvocation -> Bool
$c/= :: DBusMethodInvocation -> DBusMethodInvocation -> Bool
== :: DBusMethodInvocation -> DBusMethodInvocation -> Bool
$c== :: DBusMethodInvocation -> DBusMethodInvocation -> Bool
Eq)
instance SP.ManagedPtrNewtype DBusMethodInvocation where
toManagedPtr :: DBusMethodInvocation -> ManagedPtr DBusMethodInvocation
toManagedPtr (DBusMethodInvocation ManagedPtr DBusMethodInvocation
p) = ManagedPtr DBusMethodInvocation
p
foreign import ccall "g_dbus_method_invocation_get_type"
c_g_dbus_method_invocation_get_type :: IO B.Types.GType
instance B.Types.TypedObject DBusMethodInvocation where
glibType :: IO GType
glibType = IO GType
c_g_dbus_method_invocation_get_type
instance B.Types.GObject DBusMethodInvocation
class (SP.GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o
instance (SP.GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o
instance O.HasParentTypes DBusMethodInvocation
type instance O.ParentTypes DBusMethodInvocation = '[GObject.Object.Object]
toDBusMethodInvocation :: (MIO.MonadIO m, IsDBusMethodInvocation o) => o -> m DBusMethodInvocation
toDBusMethodInvocation :: forall (m :: * -> *) o.
(MonadIO m, IsDBusMethodInvocation o) =>
o -> m DBusMethodInvocation
toDBusMethodInvocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DBusMethodInvocation -> DBusMethodInvocation
DBusMethodInvocation
instance B.GValue.IsGValue (Maybe DBusMethodInvocation) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_dbus_method_invocation_get_type
gvalueSet_ :: Ptr GValue -> Maybe DBusMethodInvocation -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DBusMethodInvocation
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr DBusMethodInvocation)
gvalueSet_ Ptr GValue
gv (P.Just DBusMethodInvocation
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DBusMethodInvocation
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DBusMethodInvocation)
gvalueGet_ Ptr GValue
gv = do
Ptr DBusMethodInvocation
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DBusMethodInvocation)
if Ptr DBusMethodInvocation
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DBusMethodInvocation -> DBusMethodInvocation
DBusMethodInvocation Ptr DBusMethodInvocation
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusMethodInvocationMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusMethodInvocationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusMethodInvocationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusMethodInvocationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusMethodInvocationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusMethodInvocationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDBusMethodInvocationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusMethodInvocationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusMethodInvocationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusMethodInvocationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusMethodInvocationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusMethodInvocationMethod "returnDbusError" o = DBusMethodInvocationReturnDbusErrorMethodInfo
ResolveDBusMethodInvocationMethod "returnErrorLiteral" o = DBusMethodInvocationReturnErrorLiteralMethodInfo
ResolveDBusMethodInvocationMethod "returnGerror" o = DBusMethodInvocationReturnGerrorMethodInfo
ResolveDBusMethodInvocationMethod "returnValue" o = DBusMethodInvocationReturnValueMethodInfo
ResolveDBusMethodInvocationMethod "returnValueWithUnixFdList" o = DBusMethodInvocationReturnValueWithUnixFdListMethodInfo
ResolveDBusMethodInvocationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusMethodInvocationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusMethodInvocationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusMethodInvocationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusMethodInvocationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusMethodInvocationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusMethodInvocationMethod "getConnection" o = DBusMethodInvocationGetConnectionMethodInfo
ResolveDBusMethodInvocationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusMethodInvocationMethod "getInterfaceName" o = DBusMethodInvocationGetInterfaceNameMethodInfo
ResolveDBusMethodInvocationMethod "getMessage" o = DBusMethodInvocationGetMessageMethodInfo
ResolveDBusMethodInvocationMethod "getMethodInfo" o = DBusMethodInvocationGetMethodInfoMethodInfo
ResolveDBusMethodInvocationMethod "getMethodName" o = DBusMethodInvocationGetMethodNameMethodInfo
ResolveDBusMethodInvocationMethod "getObjectPath" o = DBusMethodInvocationGetObjectPathMethodInfo
ResolveDBusMethodInvocationMethod "getParameters" o = DBusMethodInvocationGetParametersMethodInfo
ResolveDBusMethodInvocationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusMethodInvocationMethod "getPropertyInfo" o = DBusMethodInvocationGetPropertyInfoMethodInfo
ResolveDBusMethodInvocationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusMethodInvocationMethod "getSender" o = DBusMethodInvocationGetSenderMethodInfo
ResolveDBusMethodInvocationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusMethodInvocationMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDBusMethodInvocationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusMethodInvocationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, O.OverloadedMethod info DBusMethodInvocation p) => OL.IsLabel t (DBusMethodInvocation -> 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 ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, O.OverloadedMethod info DBusMethodInvocation p, R.HasField t DBusMethodInvocation p) => R.HasField t DBusMethodInvocation p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, O.OverloadedMethodInfo info DBusMethodInvocation) => OL.IsLabel t (O.MethodProxy info DBusMethodInvocation) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusMethodInvocation
type instance O.AttributeList DBusMethodInvocation = DBusMethodInvocationAttributeList
type DBusMethodInvocationAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DBusMethodInvocation = DBusMethodInvocationSignalList
type DBusMethodInvocationSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_dbus_method_invocation_get_connection" g_dbus_method_invocation_get_connection ::
Ptr DBusMethodInvocation ->
IO (Ptr Gio.DBusConnection.DBusConnection)
dBusMethodInvocationGetConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m Gio.DBusConnection.DBusConnection
dBusMethodInvocationGetConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m DBusConnection
dBusMethodInvocationGetConnection a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
Ptr DBusConnection
result <- Ptr DBusMethodInvocation -> IO (Ptr DBusConnection)
g_dbus_method_invocation_get_connection Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetConnection" Ptr DBusConnection
result
DBusConnection
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection) Ptr DBusConnection
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetConnectionMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetConnection
instance O.OverloadedMethodInfo DBusMethodInvocationGetConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetConnection"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_interface_name" g_dbus_method_invocation_get_interface_name ::
Ptr DBusMethodInvocation ->
IO CString
dBusMethodInvocationGetInterfaceName ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m T.Text
dBusMethodInvocationGetInterfaceName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m Text
dBusMethodInvocationGetInterfaceName a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
CString
result <- Ptr DBusMethodInvocation -> IO CString
g_dbus_method_invocation_get_interface_name Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetInterfaceName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetInterfaceNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetInterfaceNameMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetInterfaceName
instance O.OverloadedMethodInfo DBusMethodInvocationGetInterfaceNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetInterfaceName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetInterfaceName"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_message" g_dbus_method_invocation_get_message ::
Ptr DBusMethodInvocation ->
IO (Ptr Gio.DBusMessage.DBusMessage)
dBusMethodInvocationGetMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m Gio.DBusMessage.DBusMessage
dBusMethodInvocationGetMessage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m DBusMessage
dBusMethodInvocationGetMessage a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
Ptr DBusMessage
result <- Ptr DBusMethodInvocation -> IO (Ptr DBusMessage)
g_dbus_method_invocation_get_message Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetMessage" Ptr DBusMessage
result
DBusMessage
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusMessage -> DBusMessage
Gio.DBusMessage.DBusMessage) Ptr DBusMessage
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return DBusMessage
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetMessageMethodInfo
instance (signature ~ (m Gio.DBusMessage.DBusMessage), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetMessageMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetMessage
instance O.OverloadedMethodInfo DBusMethodInvocationGetMessageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetMessage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetMessage"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_method_info" g_dbus_method_invocation_get_method_info ::
Ptr DBusMethodInvocation ->
IO (Ptr Gio.DBusMethodInfo.DBusMethodInfo)
dBusMethodInvocationGetMethodInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m (Maybe Gio.DBusMethodInfo.DBusMethodInfo)
dBusMethodInvocationGetMethodInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m (Maybe DBusMethodInfo)
dBusMethodInvocationGetMethodInfo a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
Ptr DBusMethodInfo
result <- Ptr DBusMethodInvocation -> IO (Ptr DBusMethodInfo)
g_dbus_method_invocation_get_method_info Ptr DBusMethodInvocation
invocation'
Maybe DBusMethodInfo
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DBusMethodInfo
result forall a b. (a -> b) -> a -> b
$ \Ptr DBusMethodInfo
result' -> do
DBusMethodInfo
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DBusMethodInfo -> DBusMethodInfo
Gio.DBusMethodInfo.DBusMethodInfo) Ptr DBusMethodInfo
result'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusMethodInfo
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusMethodInfo
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetMethodInfoMethodInfo
instance (signature ~ (m (Maybe Gio.DBusMethodInfo.DBusMethodInfo)), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetMethodInfoMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetMethodInfo
instance O.OverloadedMethodInfo DBusMethodInvocationGetMethodInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetMethodInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetMethodInfo"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_method_name" g_dbus_method_invocation_get_method_name ::
Ptr DBusMethodInvocation ->
IO CString
dBusMethodInvocationGetMethodName ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m T.Text
dBusMethodInvocationGetMethodName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m Text
dBusMethodInvocationGetMethodName a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
CString
result <- Ptr DBusMethodInvocation -> IO CString
g_dbus_method_invocation_get_method_name Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetMethodName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetMethodNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetMethodNameMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetMethodName
instance O.OverloadedMethodInfo DBusMethodInvocationGetMethodNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetMethodName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetMethodName"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_object_path" g_dbus_method_invocation_get_object_path ::
Ptr DBusMethodInvocation ->
IO CString
dBusMethodInvocationGetObjectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m T.Text
dBusMethodInvocationGetObjectPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m Text
dBusMethodInvocationGetObjectPath a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
CString
result <- Ptr DBusMethodInvocation -> IO CString
g_dbus_method_invocation_get_object_path Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetObjectPath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetObjectPathMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetObjectPath
instance O.OverloadedMethodInfo DBusMethodInvocationGetObjectPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetObjectPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetObjectPath"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_parameters" g_dbus_method_invocation_get_parameters ::
Ptr DBusMethodInvocation ->
IO (Ptr GVariant)
dBusMethodInvocationGetParameters ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m GVariant
dBusMethodInvocationGetParameters :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m GVariant
dBusMethodInvocationGetParameters a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
Ptr GVariant
result <- Ptr DBusMethodInvocation -> IO (Ptr GVariant)
g_dbus_method_invocation_get_parameters Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetParameters" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetParametersMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetParametersMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetParameters
instance O.OverloadedMethodInfo DBusMethodInvocationGetParametersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetParameters",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetParameters"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_property_info" g_dbus_method_invocation_get_property_info ::
Ptr DBusMethodInvocation ->
IO (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo)
dBusMethodInvocationGetPropertyInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m (Maybe Gio.DBusPropertyInfo.DBusPropertyInfo)
dBusMethodInvocationGetPropertyInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m (Maybe DBusPropertyInfo)
dBusMethodInvocationGetPropertyInfo a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
Ptr DBusPropertyInfo
result <- Ptr DBusMethodInvocation -> IO (Ptr DBusPropertyInfo)
g_dbus_method_invocation_get_property_info Ptr DBusMethodInvocation
invocation'
Maybe DBusPropertyInfo
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DBusPropertyInfo
result forall a b. (a -> b) -> a -> b
$ \Ptr DBusPropertyInfo
result' -> do
DBusPropertyInfo
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DBusPropertyInfo -> DBusPropertyInfo
Gio.DBusPropertyInfo.DBusPropertyInfo) Ptr DBusPropertyInfo
result'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusPropertyInfo
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusPropertyInfo
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetPropertyInfoMethodInfo
instance (signature ~ (m (Maybe Gio.DBusPropertyInfo.DBusPropertyInfo)), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetPropertyInfoMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetPropertyInfo
instance O.OverloadedMethodInfo DBusMethodInvocationGetPropertyInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetPropertyInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetPropertyInfo"
})
#endif
foreign import ccall "g_dbus_method_invocation_get_sender" g_dbus_method_invocation_get_sender ::
Ptr DBusMethodInvocation ->
IO CString
dBusMethodInvocationGetSender ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> m T.Text
dBusMethodInvocationGetSender :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> m Text
dBusMethodInvocationGetSender a
invocation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
invocation
CString
result <- Ptr DBusMethodInvocation -> IO CString
g_dbus_method_invocation_get_sender Ptr DBusMethodInvocation
invocation'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusMethodInvocationGetSender" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationGetSenderMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationGetSenderMethodInfo a signature where
overloadedMethod = dBusMethodInvocationGetSender
instance O.OverloadedMethodInfo DBusMethodInvocationGetSenderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetSender",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationGetSender"
})
#endif
foreign import ccall "g_dbus_method_invocation_return_dbus_error" g_dbus_method_invocation_return_dbus_error ::
Ptr DBusMethodInvocation ->
CString ->
CString ->
IO ()
dBusMethodInvocationReturnDbusError ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> T.Text
-> T.Text
-> m ()
dBusMethodInvocationReturnDbusError :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> Text -> Text -> m ()
dBusMethodInvocationReturnDbusError a
invocation Text
errorName Text
errorMessage = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
invocation
CString
errorName' <- Text -> IO CString
textToCString Text
errorName
CString
errorMessage' <- Text -> IO CString
textToCString Text
errorMessage
Ptr DBusMethodInvocation -> CString -> CString -> IO ()
g_dbus_method_invocation_return_dbus_error Ptr DBusMethodInvocation
invocation' CString
errorName' CString
errorMessage'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall a. Ptr a -> IO ()
freeMem CString
errorName'
forall a. Ptr a -> IO ()
freeMem CString
errorMessage'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationReturnDbusErrorMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationReturnDbusErrorMethodInfo a signature where
overloadedMethod = dBusMethodInvocationReturnDbusError
instance O.OverloadedMethodInfo DBusMethodInvocationReturnDbusErrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnDbusError",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationReturnDbusError"
})
#endif
foreign import ccall "g_dbus_method_invocation_return_error_literal" g_dbus_method_invocation_return_error_literal ::
Ptr DBusMethodInvocation ->
Word32 ->
Int32 ->
CString ->
IO ()
dBusMethodInvocationReturnErrorLiteral ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> Word32
-> Int32
-> T.Text
-> m ()
dBusMethodInvocationReturnErrorLiteral :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> Word32 -> Int32 -> Text -> m ()
dBusMethodInvocationReturnErrorLiteral a
invocation Word32
domain Int32
code Text
message = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
invocation
CString
message' <- Text -> IO CString
textToCString Text
message
Ptr DBusMethodInvocation -> Word32 -> Int32 -> CString -> IO ()
g_dbus_method_invocation_return_error_literal Ptr DBusMethodInvocation
invocation' Word32
domain Int32
code CString
message'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall a. Ptr a -> IO ()
freeMem CString
message'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationReturnErrorLiteralMethodInfo
instance (signature ~ (Word32 -> Int32 -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationReturnErrorLiteralMethodInfo a signature where
overloadedMethod = dBusMethodInvocationReturnErrorLiteral
instance O.OverloadedMethodInfo DBusMethodInvocationReturnErrorLiteralMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnErrorLiteral",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationReturnErrorLiteral"
})
#endif
foreign import ccall "g_dbus_method_invocation_return_gerror" g_dbus_method_invocation_return_gerror ::
Ptr DBusMethodInvocation ->
Ptr GError ->
IO ()
dBusMethodInvocationReturnGerror ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> GError
-> m ()
dBusMethodInvocationReturnGerror :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> GError -> m ()
dBusMethodInvocationReturnGerror a
invocation GError
error_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
invocation
Ptr GError
error_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GError
error_
Ptr DBusMethodInvocation -> Ptr GError -> IO ()
g_dbus_method_invocation_return_gerror Ptr DBusMethodInvocation
invocation' Ptr GError
error_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GError
error_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationReturnGerrorMethodInfo
instance (signature ~ (GError -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationReturnGerrorMethodInfo a signature where
overloadedMethod = dBusMethodInvocationReturnGerror
instance O.OverloadedMethodInfo DBusMethodInvocationReturnGerrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnGerror",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationReturnGerror"
})
#endif
foreign import ccall "g_dbus_method_invocation_return_value" g_dbus_method_invocation_return_value ::
Ptr DBusMethodInvocation ->
Ptr GVariant ->
IO ()
dBusMethodInvocationReturnValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a
-> Maybe (GVariant)
-> m ()
dBusMethodInvocationReturnValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>
a -> Maybe GVariant -> m ()
dBusMethodInvocationReturnValue a
invocation Maybe GVariant
parameters = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
invocation
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
Ptr DBusMethodInvocation -> Ptr GVariant -> IO ()
g_dbus_method_invocation_return_value Ptr DBusMethodInvocation
invocation' Ptr GVariant
maybeParameters
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationReturnValueMethodInfo
instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.OverloadedMethod DBusMethodInvocationReturnValueMethodInfo a signature where
overloadedMethod = dBusMethodInvocationReturnValue
instance O.OverloadedMethodInfo DBusMethodInvocationReturnValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationReturnValue"
})
#endif
foreign import ccall "g_dbus_method_invocation_return_value_with_unix_fd_list" g_dbus_method_invocation_return_value_with_unix_fd_list ::
Ptr DBusMethodInvocation ->
Ptr GVariant ->
Ptr Gio.UnixFDList.UnixFDList ->
IO ()
dBusMethodInvocationReturnValueWithUnixFdList ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a, Gio.UnixFDList.IsUnixFDList b) =>
a
-> Maybe (GVariant)
-> Maybe (b)
-> m ()
dBusMethodInvocationReturnValueWithUnixFdList :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusMethodInvocation a,
IsUnixFDList b) =>
a -> Maybe GVariant -> Maybe b -> m ()
dBusMethodInvocationReturnValueWithUnixFdList a
invocation Maybe GVariant
parameters Maybe b
fdList = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusMethodInvocation
invocation' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
invocation
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
Ptr UnixFDList
maybeFdList <- case Maybe b
fdList of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jFdList -> do
Ptr UnixFDList
jFdList' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFdList
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr UnixFDList
jFdList'
Ptr DBusMethodInvocation -> Ptr GVariant -> Ptr UnixFDList -> IO ()
g_dbus_method_invocation_return_value_with_unix_fd_list Ptr DBusMethodInvocation
invocation' Ptr GVariant
maybeParameters Ptr UnixFDList
maybeFdList
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
invocation
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
fdList forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo
instance (signature ~ (Maybe (GVariant) -> Maybe (b) -> m ()), MonadIO m, IsDBusMethodInvocation a, Gio.UnixFDList.IsUnixFDList b) => O.OverloadedMethod DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a signature where
overloadedMethod = dBusMethodInvocationReturnValueWithUnixFdList
instance O.OverloadedMethodInfo DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnValueWithUnixFdList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusMethodInvocation.html#v:dBusMethodInvocationReturnValueWithUnixFdList"
})
#endif