#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.DBusMethodInvocation
(
DBusMethodInvocation(..) ,
IsDBusMethodInvocation ,
toDBusMethodInvocation ,
noDBusMethodInvocation ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetConnectionMethodInfo,
#endif
dBusMethodInvocationGetConnection ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetInterfaceNameMethodInfo,
#endif
dBusMethodInvocationGetInterfaceName ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetMessageMethodInfo,
#endif
dBusMethodInvocationGetMessage ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetMethodInfoMethodInfo,
#endif
dBusMethodInvocationGetMethodInfo ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetMethodNameMethodInfo,
#endif
dBusMethodInvocationGetMethodName ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetObjectPathMethodInfo,
#endif
dBusMethodInvocationGetObjectPath ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetParametersMethodInfo,
#endif
dBusMethodInvocationGetParameters ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetPropertyInfoMethodInfo,
#endif
dBusMethodInvocationGetPropertyInfo ,
#if ENABLE_OVERLOADING
DBusMethodInvocationGetSenderMethodInfo ,
#endif
dBusMethodInvocationGetSender ,
#if ENABLE_OVERLOADING
DBusMethodInvocationReturnDbusErrorMethodInfo,
#endif
dBusMethodInvocationReturnDbusError ,
#if ENABLE_OVERLOADING
DBusMethodInvocationReturnErrorLiteralMethodInfo,
#endif
dBusMethodInvocationReturnErrorLiteral ,
#if ENABLE_OVERLOADING
DBusMethodInvocationReturnGerrorMethodInfo,
#endif
dBusMethodInvocationReturnGerror ,
#if ENABLE_OVERLOADING
DBusMethodInvocationReturnValueMethodInfo,
#endif
dBusMethodInvocationReturnValue ,
#if 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.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.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.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 (ManagedPtr DBusMethodInvocation)
foreign import ccall "g_dbus_method_invocation_get_type"
c_g_dbus_method_invocation_get_type :: IO GType
instance GObject DBusMethodInvocation where
gobjectType = c_g_dbus_method_invocation_get_type
class (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o
instance (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o
instance O.HasParentTypes DBusMethodInvocation
type instance O.ParentTypes DBusMethodInvocation = '[GObject.Object.Object]
toDBusMethodInvocation :: (MonadIO m, IsDBusMethodInvocation o) => o -> m DBusMethodInvocation
toDBusMethodInvocation = liftIO . unsafeCastTo DBusMethodInvocation
noDBusMethodInvocation :: Maybe DBusMethodInvocation
noDBusMethodInvocation = Nothing
#if 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.MethodInfo info DBusMethodInvocation p) => OL.IsLabel t (DBusMethodInvocation -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DBusMethodInvocation
type instance O.AttributeList DBusMethodInvocation = DBusMethodInvocationAttributeList
type DBusMethodInvocationAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_connection invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetConnection" result
result' <- (newObject Gio.DBusConnection.DBusConnection) result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetConnectionMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_interface_name invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetInterfaceName" result
result' <- cstringToText result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetInterfaceNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetInterfaceNameMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_message invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetMessage" result
result' <- (newObject Gio.DBusMessage.DBusMessage) result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetMessageMethodInfo
instance (signature ~ (m Gio.DBusMessage.DBusMessage), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMessageMethodInfo a signature where
overloadedMethod _ = 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 Gio.DBusMethodInfo.DBusMethodInfo
dBusMethodInvocationGetMethodInfo invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_method_info invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetMethodInfo" result
result' <- (newBoxed Gio.DBusMethodInfo.DBusMethodInfo) result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetMethodInfoMethodInfo
instance (signature ~ (m Gio.DBusMethodInfo.DBusMethodInfo), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMethodInfoMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_method_name invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetMethodName" result
result' <- cstringToText result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetMethodNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMethodNameMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_object_path invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetObjectPath" result
result' <- cstringToText result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetObjectPathMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_parameters invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetParameters" result
result' <- B.GVariant.newGVariantFromPtr result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetParametersMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetParametersMethodInfo a signature where
overloadedMethod _ = 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 Gio.DBusPropertyInfo.DBusPropertyInfo
dBusMethodInvocationGetPropertyInfo invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_property_info invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetPropertyInfo" result
result' <- (newBoxed Gio.DBusPropertyInfo.DBusPropertyInfo) result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetPropertyInfoMethodInfo
instance (signature ~ (m Gio.DBusPropertyInfo.DBusPropertyInfo), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetPropertyInfoMethodInfo a signature where
overloadedMethod _ = 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 invocation = liftIO $ do
invocation' <- unsafeManagedPtrCastPtr invocation
result <- g_dbus_method_invocation_get_sender invocation'
checkUnexpectedReturnNULL "dBusMethodInvocationGetSender" result
result' <- cstringToText result
touchManagedPtr invocation
return result'
#if ENABLE_OVERLOADING
data DBusMethodInvocationGetSenderMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetSenderMethodInfo a signature where
overloadedMethod _ = 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 invocation errorName errorMessage = liftIO $ do
invocation' <- B.ManagedPtr.disownObject invocation
errorName' <- textToCString errorName
errorMessage' <- textToCString errorMessage
g_dbus_method_invocation_return_dbus_error invocation' errorName' errorMessage'
touchManagedPtr invocation
freeMem errorName'
freeMem errorMessage'
return ()
#if ENABLE_OVERLOADING
data DBusMethodInvocationReturnDbusErrorMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnDbusErrorMethodInfo a signature where
overloadedMethod _ = 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 invocation domain code message = liftIO $ do
invocation' <- B.ManagedPtr.disownObject invocation
message' <- textToCString message
g_dbus_method_invocation_return_error_literal invocation' domain code message'
touchManagedPtr invocation
freeMem message'
return ()
#if ENABLE_OVERLOADING
data DBusMethodInvocationReturnErrorLiteralMethodInfo
instance (signature ~ (Word32 -> Int32 -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnErrorLiteralMethodInfo a signature where
overloadedMethod _ = 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 invocation error_ = liftIO $ do
invocation' <- B.ManagedPtr.disownObject invocation
error_' <- unsafeManagedPtrGetPtr error_
g_dbus_method_invocation_return_gerror invocation' error_'
touchManagedPtr invocation
touchManagedPtr error_
return ()
#if ENABLE_OVERLOADING
data DBusMethodInvocationReturnGerrorMethodInfo
instance (signature ~ (GError -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnGerrorMethodInfo a signature where
overloadedMethod _ = 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 invocation parameters = liftIO $ do
invocation' <- B.ManagedPtr.disownObject invocation
maybeParameters <- case parameters of
Nothing -> return nullPtr
Just jParameters -> do
jParameters' <- unsafeManagedPtrGetPtr jParameters
return jParameters'
g_dbus_method_invocation_return_value invocation' maybeParameters
touchManagedPtr invocation
whenJust parameters touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data DBusMethodInvocationReturnValueMethodInfo
instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnValueMethodInfo a signature where
overloadedMethod _ = 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 invocation parameters fdList = liftIO $ do
invocation' <- B.ManagedPtr.disownObject invocation
maybeParameters <- case parameters of
Nothing -> return nullPtr
Just jParameters -> do
jParameters' <- unsafeManagedPtrGetPtr jParameters
return jParameters'
maybeFdList <- case fdList of
Nothing -> return nullPtr
Just jFdList -> do
jFdList' <- unsafeManagedPtrCastPtr jFdList
return jFdList'
g_dbus_method_invocation_return_value_with_unix_fd_list invocation' maybeParameters maybeFdList
touchManagedPtr invocation
whenJust parameters touchManagedPtr
whenJust fdList touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo
instance (signature ~ (Maybe (GVariant) -> Maybe (b) -> m ()), MonadIO m, IsDBusMethodInvocation a, Gio.UnixFDList.IsUnixFDList b) => O.MethodInfo DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a signature where
overloadedMethod _ = dBusMethodInvocationReturnValueWithUnixFdList
#endif