#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.MountOperation
(
MountOperation(..) ,
IsMountOperation ,
toMountOperation ,
noMountOperation ,
#if ENABLE_OVERLOADING
MountOperationGetAnonymousMethodInfo ,
#endif
mountOperationGetAnonymous ,
#if ENABLE_OVERLOADING
MountOperationGetChoiceMethodInfo ,
#endif
mountOperationGetChoice ,
#if ENABLE_OVERLOADING
MountOperationGetDomainMethodInfo ,
#endif
mountOperationGetDomain ,
#if ENABLE_OVERLOADING
MountOperationGetIsTcryptHiddenVolumeMethodInfo,
#endif
mountOperationGetIsTcryptHiddenVolume ,
#if ENABLE_OVERLOADING
MountOperationGetIsTcryptSystemVolumeMethodInfo,
#endif
mountOperationGetIsTcryptSystemVolume ,
#if ENABLE_OVERLOADING
MountOperationGetPasswordMethodInfo ,
#endif
mountOperationGetPassword ,
#if ENABLE_OVERLOADING
MountOperationGetPasswordSaveMethodInfo ,
#endif
mountOperationGetPasswordSave ,
#if ENABLE_OVERLOADING
MountOperationGetPimMethodInfo ,
#endif
mountOperationGetPim ,
#if ENABLE_OVERLOADING
MountOperationGetUsernameMethodInfo ,
#endif
mountOperationGetUsername ,
mountOperationNew ,
#if ENABLE_OVERLOADING
MountOperationReplyMethodInfo ,
#endif
mountOperationReply ,
#if ENABLE_OVERLOADING
MountOperationSetAnonymousMethodInfo ,
#endif
mountOperationSetAnonymous ,
#if ENABLE_OVERLOADING
MountOperationSetChoiceMethodInfo ,
#endif
mountOperationSetChoice ,
#if ENABLE_OVERLOADING
MountOperationSetDomainMethodInfo ,
#endif
mountOperationSetDomain ,
#if ENABLE_OVERLOADING
MountOperationSetIsTcryptHiddenVolumeMethodInfo,
#endif
mountOperationSetIsTcryptHiddenVolume ,
#if ENABLE_OVERLOADING
MountOperationSetIsTcryptSystemVolumeMethodInfo,
#endif
mountOperationSetIsTcryptSystemVolume ,
#if ENABLE_OVERLOADING
MountOperationSetPasswordMethodInfo ,
#endif
mountOperationSetPassword ,
#if ENABLE_OVERLOADING
MountOperationSetPasswordSaveMethodInfo ,
#endif
mountOperationSetPasswordSave ,
#if ENABLE_OVERLOADING
MountOperationSetPimMethodInfo ,
#endif
mountOperationSetPim ,
#if ENABLE_OVERLOADING
MountOperationSetUsernameMethodInfo ,
#endif
mountOperationSetUsername ,
#if ENABLE_OVERLOADING
MountOperationAnonymousPropertyInfo ,
#endif
constructMountOperationAnonymous ,
getMountOperationAnonymous ,
#if ENABLE_OVERLOADING
mountOperationAnonymous ,
#endif
setMountOperationAnonymous ,
#if ENABLE_OVERLOADING
MountOperationChoicePropertyInfo ,
#endif
constructMountOperationChoice ,
getMountOperationChoice ,
#if ENABLE_OVERLOADING
mountOperationChoice ,
#endif
setMountOperationChoice ,
#if ENABLE_OVERLOADING
MountOperationDomainPropertyInfo ,
#endif
constructMountOperationDomain ,
getMountOperationDomain ,
#if ENABLE_OVERLOADING
mountOperationDomain ,
#endif
setMountOperationDomain ,
#if ENABLE_OVERLOADING
MountOperationIsTcryptHiddenVolumePropertyInfo,
#endif
constructMountOperationIsTcryptHiddenVolume,
getMountOperationIsTcryptHiddenVolume ,
#if ENABLE_OVERLOADING
mountOperationIsTcryptHiddenVolume ,
#endif
setMountOperationIsTcryptHiddenVolume ,
#if ENABLE_OVERLOADING
MountOperationIsTcryptSystemVolumePropertyInfo,
#endif
constructMountOperationIsTcryptSystemVolume,
getMountOperationIsTcryptSystemVolume ,
#if ENABLE_OVERLOADING
mountOperationIsTcryptSystemVolume ,
#endif
setMountOperationIsTcryptSystemVolume ,
#if ENABLE_OVERLOADING
MountOperationPasswordPropertyInfo ,
#endif
constructMountOperationPassword ,
getMountOperationPassword ,
#if ENABLE_OVERLOADING
mountOperationPassword ,
#endif
setMountOperationPassword ,
#if ENABLE_OVERLOADING
MountOperationPasswordSavePropertyInfo ,
#endif
constructMountOperationPasswordSave ,
getMountOperationPasswordSave ,
#if ENABLE_OVERLOADING
mountOperationPasswordSave ,
#endif
setMountOperationPasswordSave ,
#if ENABLE_OVERLOADING
MountOperationPimPropertyInfo ,
#endif
constructMountOperationPim ,
getMountOperationPim ,
#if ENABLE_OVERLOADING
mountOperationPim ,
#endif
setMountOperationPim ,
#if ENABLE_OVERLOADING
MountOperationUsernamePropertyInfo ,
#endif
constructMountOperationUsername ,
getMountOperationUsername ,
#if ENABLE_OVERLOADING
mountOperationUsername ,
#endif
setMountOperationUsername ,
C_MountOperationAbortedCallback ,
MountOperationAbortedCallback ,
#if ENABLE_OVERLOADING
MountOperationAbortedSignalInfo ,
#endif
afterMountOperationAborted ,
genClosure_MountOperationAborted ,
mk_MountOperationAbortedCallback ,
noMountOperationAbortedCallback ,
onMountOperationAborted ,
wrap_MountOperationAbortedCallback ,
C_MountOperationAskPasswordCallback ,
MountOperationAskPasswordCallback ,
#if ENABLE_OVERLOADING
MountOperationAskPasswordSignalInfo ,
#endif
afterMountOperationAskPassword ,
genClosure_MountOperationAskPassword ,
mk_MountOperationAskPasswordCallback ,
noMountOperationAskPasswordCallback ,
onMountOperationAskPassword ,
wrap_MountOperationAskPasswordCallback ,
C_MountOperationAskQuestionCallback ,
MountOperationAskQuestionCallback ,
#if ENABLE_OVERLOADING
MountOperationAskQuestionSignalInfo ,
#endif
afterMountOperationAskQuestion ,
genClosure_MountOperationAskQuestion ,
mk_MountOperationAskQuestionCallback ,
noMountOperationAskQuestionCallback ,
onMountOperationAskQuestion ,
wrap_MountOperationAskQuestionCallback ,
C_MountOperationReplyCallback ,
MountOperationReplyCallback ,
#if ENABLE_OVERLOADING
MountOperationReplySignalInfo ,
#endif
afterMountOperationReply ,
genClosure_MountOperationReply ,
mk_MountOperationReplyCallback ,
noMountOperationReplyCallback ,
onMountOperationReply ,
wrap_MountOperationReplyCallback ,
C_MountOperationShowProcessesCallback ,
MountOperationShowProcessesCallback ,
#if ENABLE_OVERLOADING
MountOperationShowProcessesSignalInfo ,
#endif
afterMountOperationShowProcesses ,
genClosure_MountOperationShowProcesses ,
mk_MountOperationShowProcessesCallback ,
noMountOperationShowProcessesCallback ,
onMountOperationShowProcesses ,
wrap_MountOperationShowProcessesCallback,
C_MountOperationShowUnmountProgressCallback,
MountOperationShowUnmountProgressCallback,
#if ENABLE_OVERLOADING
MountOperationShowUnmountProgressSignalInfo,
#endif
afterMountOperationShowUnmountProgress ,
genClosure_MountOperationShowUnmountProgress,
mk_MountOperationShowUnmountProgressCallback,
noMountOperationShowUnmountProgressCallback,
onMountOperationShowUnmountProgress ,
wrap_MountOperationShowUnmountProgressCallback,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
newtype MountOperation = MountOperation (ManagedPtr MountOperation)
foreign import ccall "g_mount_operation_get_type"
c_g_mount_operation_get_type :: IO GType
instance GObject MountOperation where
gobjectType :: MountOperation -> IO GType
gobjectType _ = IO GType
c_g_mount_operation_get_type
class GObject o => IsMountOperation o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError MountOperation a) =>
IsMountOperation a
#endif
instance IsMountOperation MountOperation
instance GObject.Object.IsObject MountOperation
toMountOperation :: (MonadIO m, IsMountOperation o) => o -> m MountOperation
toMountOperation :: o -> m MountOperation
toMountOperation = IO MountOperation -> m MountOperation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MountOperation -> m MountOperation)
-> (o -> IO MountOperation) -> o -> m MountOperation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr MountOperation -> MountOperation)
-> o -> IO MountOperation
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr MountOperation -> MountOperation
MountOperation
noMountOperation :: Maybe MountOperation
noMountOperation :: Maybe MountOperation
noMountOperation = Maybe MountOperation
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where
ResolveMountOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMountOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMountOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMountOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMountOperationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMountOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMountOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMountOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMountOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMountOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMountOperationMethod "reply" o = MountOperationReplyMethodInfo
ResolveMountOperationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMountOperationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMountOperationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMountOperationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMountOperationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMountOperationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMountOperationMethod "getAnonymous" o = MountOperationGetAnonymousMethodInfo
ResolveMountOperationMethod "getChoice" o = MountOperationGetChoiceMethodInfo
ResolveMountOperationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMountOperationMethod "getDomain" o = MountOperationGetDomainMethodInfo
ResolveMountOperationMethod "getIsTcryptHiddenVolume" o = MountOperationGetIsTcryptHiddenVolumeMethodInfo
ResolveMountOperationMethod "getIsTcryptSystemVolume" o = MountOperationGetIsTcryptSystemVolumeMethodInfo
ResolveMountOperationMethod "getPassword" o = MountOperationGetPasswordMethodInfo
ResolveMountOperationMethod "getPasswordSave" o = MountOperationGetPasswordSaveMethodInfo
ResolveMountOperationMethod "getPim" o = MountOperationGetPimMethodInfo
ResolveMountOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMountOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMountOperationMethod "getUsername" o = MountOperationGetUsernameMethodInfo
ResolveMountOperationMethod "setAnonymous" o = MountOperationSetAnonymousMethodInfo
ResolveMountOperationMethod "setChoice" o = MountOperationSetChoiceMethodInfo
ResolveMountOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMountOperationMethod "setDomain" o = MountOperationSetDomainMethodInfo
ResolveMountOperationMethod "setIsTcryptHiddenVolume" o = MountOperationSetIsTcryptHiddenVolumeMethodInfo
ResolveMountOperationMethod "setIsTcryptSystemVolume" o = MountOperationSetIsTcryptSystemVolumeMethodInfo
ResolveMountOperationMethod "setPassword" o = MountOperationSetPasswordMethodInfo
ResolveMountOperationMethod "setPasswordSave" o = MountOperationSetPasswordSaveMethodInfo
ResolveMountOperationMethod "setPim" o = MountOperationSetPimMethodInfo
ResolveMountOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMountOperationMethod "setUsername" o = MountOperationSetUsernameMethodInfo
ResolveMountOperationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMountOperationMethod t MountOperation, O.MethodInfo info MountOperation p) => O.IsLabelProxy t (MountOperation -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMountOperationMethod t MountOperation, O.MethodInfo info MountOperation p) => O.IsLabel t (MountOperation -> 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
#endif
type MountOperationAbortedCallback =
IO ()
noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback
noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback
noMountOperationAbortedCallback = Maybe MountOperationAbortedCallback
forall a. Maybe a
Nothing
type C_MountOperationAbortedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAbortedCallback :: C_MountOperationAbortedCallback -> IO (FunPtr C_MountOperationAbortedCallback)
genClosure_MountOperationAborted :: MountOperationAbortedCallback -> IO Closure
genClosure_MountOperationAborted :: MountOperationAbortedCallback -> IO Closure
genClosure_MountOperationAborted cb :: MountOperationAbortedCallback
cb = do
let cb' :: C_MountOperationAbortedCallback
cb' = MountOperationAbortedCallback -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback MountOperationAbortedCallback
cb
C_MountOperationAbortedCallback
-> IO (FunPtr C_MountOperationAbortedCallback)
mk_MountOperationAbortedCallback C_MountOperationAbortedCallback
cb' IO (FunPtr C_MountOperationAbortedCallback)
-> (FunPtr C_MountOperationAbortedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationAbortedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationAbortedCallback ::
MountOperationAbortedCallback ->
C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback :: MountOperationAbortedCallback -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback _cb :: MountOperationAbortedCallback
_cb _ _ = do
MountOperationAbortedCallback
_cb
onMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
onMountOperationAborted :: a -> MountOperationAbortedCallback -> m SignalHandlerId
onMountOperationAborted obj :: a
obj cb :: MountOperationAbortedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAbortedCallback
cb' = MountOperationAbortedCallback -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback MountOperationAbortedCallback
cb
FunPtr C_MountOperationAbortedCallback
cb'' <- C_MountOperationAbortedCallback
-> IO (FunPtr C_MountOperationAbortedCallback)
mk_MountOperationAbortedCallback C_MountOperationAbortedCallback
cb'
a
-> String
-> FunPtr C_MountOperationAbortedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "aborted" FunPtr C_MountOperationAbortedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
afterMountOperationAborted :: a -> MountOperationAbortedCallback -> m SignalHandlerId
afterMountOperationAborted obj :: a
obj cb :: MountOperationAbortedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAbortedCallback
cb' = MountOperationAbortedCallback -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback MountOperationAbortedCallback
cb
FunPtr C_MountOperationAbortedCallback
cb'' <- C_MountOperationAbortedCallback
-> IO (FunPtr C_MountOperationAbortedCallback)
mk_MountOperationAbortedCallback C_MountOperationAbortedCallback
cb'
a
-> String
-> FunPtr C_MountOperationAbortedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "aborted" FunPtr C_MountOperationAbortedCallback
cb'' SignalConnectMode
SignalConnectAfter
type MountOperationAskPasswordCallback =
T.Text
-> T.Text
-> T.Text
-> [Gio.Flags.AskPasswordFlags]
-> IO ()
noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback
noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback
noMountOperationAskPasswordCallback = Maybe MountOperationAskPasswordCallback
forall a. Maybe a
Nothing
type C_MountOperationAskPasswordCallback =
Ptr () ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskPasswordCallback :: C_MountOperationAskPasswordCallback -> IO (FunPtr C_MountOperationAskPasswordCallback)
genClosure_MountOperationAskPassword :: MountOperationAskPasswordCallback -> IO Closure
genClosure_MountOperationAskPassword :: MountOperationAskPasswordCallback -> IO Closure
genClosure_MountOperationAskPassword cb :: MountOperationAskPasswordCallback
cb = do
let cb' :: C_MountOperationAskPasswordCallback
cb' = MountOperationAskPasswordCallback
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback MountOperationAskPasswordCallback
cb
C_MountOperationAskPasswordCallback
-> IO (FunPtr C_MountOperationAskPasswordCallback)
mk_MountOperationAskPasswordCallback C_MountOperationAskPasswordCallback
cb' IO (FunPtr C_MountOperationAskPasswordCallback)
-> (FunPtr C_MountOperationAskPasswordCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationAskPasswordCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationAskPasswordCallback ::
MountOperationAskPasswordCallback ->
C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback :: MountOperationAskPasswordCallback
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback _cb :: MountOperationAskPasswordCallback
_cb _ message :: CString
message defaultUser :: CString
defaultUser defaultDomain :: CString
defaultDomain flags :: CUInt
flags _ = do
Text
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
Text
defaultUser' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
defaultUser
Text
defaultDomain' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
defaultDomain
let flags' :: [AskPasswordFlags]
flags' = CUInt -> [AskPasswordFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flags
MountOperationAskPasswordCallback
_cb Text
message' Text
defaultUser' Text
defaultDomain' [AskPasswordFlags]
flags'
onMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
onMountOperationAskPassword :: a -> MountOperationAskPasswordCallback -> m SignalHandlerId
onMountOperationAskPassword obj :: a
obj cb :: MountOperationAskPasswordCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAskPasswordCallback
cb' = MountOperationAskPasswordCallback
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback MountOperationAskPasswordCallback
cb
FunPtr C_MountOperationAskPasswordCallback
cb'' <- C_MountOperationAskPasswordCallback
-> IO (FunPtr C_MountOperationAskPasswordCallback)
mk_MountOperationAskPasswordCallback C_MountOperationAskPasswordCallback
cb'
a
-> String
-> FunPtr C_MountOperationAskPasswordCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "ask-password" FunPtr C_MountOperationAskPasswordCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
afterMountOperationAskPassword :: a -> MountOperationAskPasswordCallback -> m SignalHandlerId
afterMountOperationAskPassword obj :: a
obj cb :: MountOperationAskPasswordCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAskPasswordCallback
cb' = MountOperationAskPasswordCallback
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback MountOperationAskPasswordCallback
cb
FunPtr C_MountOperationAskPasswordCallback
cb'' <- C_MountOperationAskPasswordCallback
-> IO (FunPtr C_MountOperationAskPasswordCallback)
mk_MountOperationAskPasswordCallback C_MountOperationAskPasswordCallback
cb'
a
-> String
-> FunPtr C_MountOperationAskPasswordCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "ask-password" FunPtr C_MountOperationAskPasswordCallback
cb'' SignalConnectMode
SignalConnectAfter
type MountOperationAskQuestionCallback =
T.Text
-> [T.Text]
-> IO ()
noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback
noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback
noMountOperationAskQuestionCallback = Maybe MountOperationAskQuestionCallback
forall a. Maybe a
Nothing
type C_MountOperationAskQuestionCallback =
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskQuestionCallback :: C_MountOperationAskQuestionCallback -> IO (FunPtr C_MountOperationAskQuestionCallback)
genClosure_MountOperationAskQuestion :: MountOperationAskQuestionCallback -> IO Closure
genClosure_MountOperationAskQuestion :: MountOperationAskQuestionCallback -> IO Closure
genClosure_MountOperationAskQuestion cb :: MountOperationAskQuestionCallback
cb = do
let cb' :: C_MountOperationAskQuestionCallback
cb' = MountOperationAskQuestionCallback
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback MountOperationAskQuestionCallback
cb
C_MountOperationAskQuestionCallback
-> IO (FunPtr C_MountOperationAskQuestionCallback)
mk_MountOperationAskQuestionCallback C_MountOperationAskQuestionCallback
cb' IO (FunPtr C_MountOperationAskQuestionCallback)
-> (FunPtr C_MountOperationAskQuestionCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationAskQuestionCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationAskQuestionCallback ::
MountOperationAskQuestionCallback ->
C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback :: MountOperationAskQuestionCallback
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback _cb :: MountOperationAskQuestionCallback
_cb _ message :: CString
message choices :: Ptr CString
choices _ = do
Text
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
[Text]
choices' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
choices
MountOperationAskQuestionCallback
_cb Text
message' [Text]
choices'
onMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
onMountOperationAskQuestion :: a -> MountOperationAskQuestionCallback -> m SignalHandlerId
onMountOperationAskQuestion obj :: a
obj cb :: MountOperationAskQuestionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAskQuestionCallback
cb' = MountOperationAskQuestionCallback
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback MountOperationAskQuestionCallback
cb
FunPtr C_MountOperationAskQuestionCallback
cb'' <- C_MountOperationAskQuestionCallback
-> IO (FunPtr C_MountOperationAskQuestionCallback)
mk_MountOperationAskQuestionCallback C_MountOperationAskQuestionCallback
cb'
a
-> String
-> FunPtr C_MountOperationAskQuestionCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "ask-question" FunPtr C_MountOperationAskQuestionCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
afterMountOperationAskQuestion :: a -> MountOperationAskQuestionCallback -> m SignalHandlerId
afterMountOperationAskQuestion obj :: a
obj cb :: MountOperationAskQuestionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationAskQuestionCallback
cb' = MountOperationAskQuestionCallback
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback MountOperationAskQuestionCallback
cb
FunPtr C_MountOperationAskQuestionCallback
cb'' <- C_MountOperationAskQuestionCallback
-> IO (FunPtr C_MountOperationAskQuestionCallback)
mk_MountOperationAskQuestionCallback C_MountOperationAskQuestionCallback
cb'
a
-> String
-> FunPtr C_MountOperationAskQuestionCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "ask-question" FunPtr C_MountOperationAskQuestionCallback
cb'' SignalConnectMode
SignalConnectAfter
type MountOperationReplyCallback =
Gio.Enums.MountOperationResult
-> IO ()
noMountOperationReplyCallback :: Maybe MountOperationReplyCallback
noMountOperationReplyCallback :: Maybe MountOperationReplyCallback
noMountOperationReplyCallback = Maybe MountOperationReplyCallback
forall a. Maybe a
Nothing
type C_MountOperationReplyCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationReplyCallback :: C_MountOperationReplyCallback -> IO (FunPtr C_MountOperationReplyCallback)
genClosure_MountOperationReply :: MountOperationReplyCallback -> IO Closure
genClosure_MountOperationReply :: MountOperationReplyCallback -> IO Closure
genClosure_MountOperationReply cb :: MountOperationReplyCallback
cb = do
let cb' :: C_MountOperationReplyCallback
cb' = MountOperationReplyCallback -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback MountOperationReplyCallback
cb
C_MountOperationReplyCallback
-> IO (FunPtr C_MountOperationReplyCallback)
mk_MountOperationReplyCallback C_MountOperationReplyCallback
cb' IO (FunPtr C_MountOperationReplyCallback)
-> (FunPtr C_MountOperationReplyCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationReplyCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationReplyCallback ::
MountOperationReplyCallback ->
C_MountOperationReplyCallback
wrap_MountOperationReplyCallback :: MountOperationReplyCallback -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback _cb :: MountOperationReplyCallback
_cb _ result_ :: CUInt
result_ _ = do
let result_' :: MountOperationResult
result_' = (Int -> MountOperationResult
forall a. Enum a => Int -> a
toEnum (Int -> MountOperationResult)
-> (CUInt -> Int) -> CUInt -> MountOperationResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result_
MountOperationReplyCallback
_cb MountOperationResult
result_'
onMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
onMountOperationReply :: a -> MountOperationReplyCallback -> m SignalHandlerId
onMountOperationReply obj :: a
obj cb :: MountOperationReplyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationReplyCallback
cb' = MountOperationReplyCallback -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback MountOperationReplyCallback
cb
FunPtr C_MountOperationReplyCallback
cb'' <- C_MountOperationReplyCallback
-> IO (FunPtr C_MountOperationReplyCallback)
mk_MountOperationReplyCallback C_MountOperationReplyCallback
cb'
a
-> String
-> FunPtr C_MountOperationReplyCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "reply" FunPtr C_MountOperationReplyCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
afterMountOperationReply :: a -> MountOperationReplyCallback -> m SignalHandlerId
afterMountOperationReply obj :: a
obj cb :: MountOperationReplyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationReplyCallback
cb' = MountOperationReplyCallback -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback MountOperationReplyCallback
cb
FunPtr C_MountOperationReplyCallback
cb'' <- C_MountOperationReplyCallback
-> IO (FunPtr C_MountOperationReplyCallback)
mk_MountOperationReplyCallback C_MountOperationReplyCallback
cb'
a
-> String
-> FunPtr C_MountOperationReplyCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "reply" FunPtr C_MountOperationReplyCallback
cb'' SignalConnectMode
SignalConnectAfter
type MountOperationShowProcessesCallback =
T.Text
-> [Int32]
-> [T.Text]
-> IO ()
noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback
noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback
noMountOperationShowProcessesCallback = Maybe MountOperationShowProcessesCallback
forall a. Maybe a
Nothing
type C_MountOperationShowProcessesCallback =
Ptr () ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowProcessesCallback :: C_MountOperationShowProcessesCallback -> IO (FunPtr C_MountOperationShowProcessesCallback)
genClosure_MountOperationShowProcesses :: MountOperationShowProcessesCallback -> IO Closure
genClosure_MountOperationShowProcesses :: MountOperationShowProcessesCallback -> IO Closure
genClosure_MountOperationShowProcesses cb :: MountOperationShowProcessesCallback
cb = do
let cb' :: C_MountOperationShowProcessesCallback
cb' = MountOperationShowProcessesCallback
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback MountOperationShowProcessesCallback
cb
C_MountOperationShowProcessesCallback
-> IO (FunPtr C_MountOperationShowProcessesCallback)
mk_MountOperationShowProcessesCallback C_MountOperationShowProcessesCallback
cb' IO (FunPtr C_MountOperationShowProcessesCallback)
-> (FunPtr C_MountOperationShowProcessesCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationShowProcessesCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationShowProcessesCallback ::
MountOperationShowProcessesCallback ->
C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback :: MountOperationShowProcessesCallback
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback _cb :: MountOperationShowProcessesCallback
_cb _ message :: CString
message processes :: Ptr (GArray Int32)
processes choices :: Ptr CString
choices _ = do
Text
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
[Int32]
processes' <- Ptr (GArray Int32) -> IO [Int32]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray Int32)
processes
[Text]
choices' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
choices
MountOperationShowProcessesCallback
_cb Text
message' [Int32]
processes' [Text]
choices'
onMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
onMountOperationShowProcesses :: a -> MountOperationShowProcessesCallback -> m SignalHandlerId
onMountOperationShowProcesses obj :: a
obj cb :: MountOperationShowProcessesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationShowProcessesCallback
cb' = MountOperationShowProcessesCallback
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback MountOperationShowProcessesCallback
cb
FunPtr C_MountOperationShowProcessesCallback
cb'' <- C_MountOperationShowProcessesCallback
-> IO (FunPtr C_MountOperationShowProcessesCallback)
mk_MountOperationShowProcessesCallback C_MountOperationShowProcessesCallback
cb'
a
-> String
-> FunPtr C_MountOperationShowProcessesCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "show-processes" FunPtr C_MountOperationShowProcessesCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
afterMountOperationShowProcesses :: a -> MountOperationShowProcessesCallback -> m SignalHandlerId
afterMountOperationShowProcesses obj :: a
obj cb :: MountOperationShowProcessesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationShowProcessesCallback
cb' = MountOperationShowProcessesCallback
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback MountOperationShowProcessesCallback
cb
FunPtr C_MountOperationShowProcessesCallback
cb'' <- C_MountOperationShowProcessesCallback
-> IO (FunPtr C_MountOperationShowProcessesCallback)
mk_MountOperationShowProcessesCallback C_MountOperationShowProcessesCallback
cb'
a
-> String
-> FunPtr C_MountOperationShowProcessesCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "show-processes" FunPtr C_MountOperationShowProcessesCallback
cb'' SignalConnectMode
SignalConnectAfter
type MountOperationShowUnmountProgressCallback =
T.Text
-> Int64
-> Int64
-> IO ()
noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback
noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback
noMountOperationShowUnmountProgressCallback = Maybe MountOperationShowUnmountProgressCallback
forall a. Maybe a
Nothing
type C_MountOperationShowUnmountProgressCallback =
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowUnmountProgressCallback :: C_MountOperationShowUnmountProgressCallback -> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
genClosure_MountOperationShowUnmountProgress :: MountOperationShowUnmountProgressCallback -> IO Closure
genClosure_MountOperationShowUnmountProgress :: MountOperationShowUnmountProgressCallback -> IO Closure
genClosure_MountOperationShowUnmountProgress cb :: MountOperationShowUnmountProgressCallback
cb = do
let cb' :: C_MountOperationShowUnmountProgressCallback
cb' = MountOperationShowUnmountProgressCallback
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback MountOperationShowUnmountProgressCallback
cb
C_MountOperationShowUnmountProgressCallback
-> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
mk_MountOperationShowUnmountProgressCallback C_MountOperationShowUnmountProgressCallback
cb' IO (FunPtr C_MountOperationShowUnmountProgressCallback)
-> (FunPtr C_MountOperationShowUnmountProgressCallback
-> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MountOperationShowUnmountProgressCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MountOperationShowUnmountProgressCallback ::
MountOperationShowUnmountProgressCallback ->
C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback :: MountOperationShowUnmountProgressCallback
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback _cb :: MountOperationShowUnmountProgressCallback
_cb _ message :: CString
message timeLeft :: Int64
timeLeft bytesLeft :: Int64
bytesLeft _ = do
Text
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
MountOperationShowUnmountProgressCallback
_cb Text
message' Int64
timeLeft Int64
bytesLeft
onMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
onMountOperationShowUnmountProgress :: a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
onMountOperationShowUnmountProgress obj :: a
obj cb :: MountOperationShowUnmountProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationShowUnmountProgressCallback
cb' = MountOperationShowUnmountProgressCallback
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback MountOperationShowUnmountProgressCallback
cb
FunPtr C_MountOperationShowUnmountProgressCallback
cb'' <- C_MountOperationShowUnmountProgressCallback
-> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
mk_MountOperationShowUnmountProgressCallback C_MountOperationShowUnmountProgressCallback
cb'
a
-> String
-> FunPtr C_MountOperationShowUnmountProgressCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "show-unmount-progress" FunPtr C_MountOperationShowUnmountProgressCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
afterMountOperationShowUnmountProgress :: a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
afterMountOperationShowUnmountProgress obj :: a
obj cb :: MountOperationShowUnmountProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MountOperationShowUnmountProgressCallback
cb' = MountOperationShowUnmountProgressCallback
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback MountOperationShowUnmountProgressCallback
cb
FunPtr C_MountOperationShowUnmountProgressCallback
cb'' <- C_MountOperationShowUnmountProgressCallback
-> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
mk_MountOperationShowUnmountProgressCallback C_MountOperationShowUnmountProgressCallback
cb'
a
-> String
-> FunPtr C_MountOperationShowUnmountProgressCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "show-unmount-progress" FunPtr C_MountOperationShowUnmountProgressCallback
cb'' SignalConnectMode
SignalConnectAfter
getMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationAnonymous :: o -> m Bool
getMountOperationAnonymous obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
getObjectPropertyBool o
obj "anonymous"
setMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationAnonymous :: o -> Bool -> m ()
setMountOperationAnonymous obj :: o
obj val :: Bool
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Bool -> MountOperationAbortedCallback
setObjectPropertyBool o
obj "anonymous" Bool
val
constructMountOperationAnonymous :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationAnonymous :: Bool -> IO (GValueConstruct o)
constructMountOperationAnonymous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
constructObjectPropertyBool "anonymous" Bool
val
#if ENABLE_OVERLOADING
data MountOperationAnonymousPropertyInfo
instance AttrInfo MountOperationAnonymousPropertyInfo where
type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = IsMountOperation
type AttrGetType MountOperationAnonymousPropertyInfo = Bool
type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous"
type AttrOrigin MountOperationAnonymousPropertyInfo = MountOperation
attrGet _ = getMountOperationAnonymous
attrSet _ = setMountOperationAnonymous
attrConstruct _ = constructMountOperationAnonymous
attrClear _ = undefined
#endif
getMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> m Int32
getMountOperationChoice :: o -> m Int32
getMountOperationChoice obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
getObjectPropertyInt32 o
obj "choice"
setMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> Int32 -> m ()
setMountOperationChoice :: o -> Int32 -> m ()
setMountOperationChoice obj :: o
obj val :: Int32
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Int32 -> MountOperationAbortedCallback
setObjectPropertyInt32 o
obj "choice" Int32
val
constructMountOperationChoice :: (IsMountOperation o) => Int32 -> IO (GValueConstruct o)
constructMountOperationChoice :: Int32 -> IO (GValueConstruct o)
constructMountOperationChoice val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
constructObjectPropertyInt32 "choice" Int32
val
#if ENABLE_OVERLOADING
data MountOperationChoicePropertyInfo
instance AttrInfo MountOperationChoicePropertyInfo where
type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32
type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = IsMountOperation
type AttrGetType MountOperationChoicePropertyInfo = Int32
type AttrLabel MountOperationChoicePropertyInfo = "choice"
type AttrOrigin MountOperationChoicePropertyInfo = MountOperation
attrGet _ = getMountOperationChoice
attrSet _ = setMountOperationChoice
attrConstruct _ = constructMountOperationChoice
attrClear _ = undefined
#endif
getMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationDomain :: o -> m Text
getMountOperationDomain obj :: o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMountOperationDomain" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "domain"
setMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationDomain :: o -> Text -> m ()
setMountOperationDomain obj :: o
obj val :: Text
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> MountOperationAbortedCallback
setObjectPropertyString o
obj "domain" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationDomain :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationDomain :: Text -> IO (GValueConstruct o)
constructMountOperationDomain val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "domain" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if ENABLE_OVERLOADING
data MountOperationDomainPropertyInfo
instance AttrInfo MountOperationDomainPropertyInfo where
type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = IsMountOperation
type AttrGetType MountOperationDomainPropertyInfo = T.Text
type AttrLabel MountOperationDomainPropertyInfo = "domain"
type AttrOrigin MountOperationDomainPropertyInfo = MountOperation
attrGet _ = getMountOperationDomain
attrSet _ = setMountOperationDomain
attrConstruct _ = constructMountOperationDomain
attrClear _ = undefined
#endif
getMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptHiddenVolume :: o -> m Bool
getMountOperationIsTcryptHiddenVolume obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
getObjectPropertyBool o
obj "is-tcrypt-hidden-volume"
setMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptHiddenVolume :: o -> Bool -> m ()
setMountOperationIsTcryptHiddenVolume obj :: o
obj val :: Bool
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Bool -> MountOperationAbortedCallback
setObjectPropertyBool o
obj "is-tcrypt-hidden-volume" Bool
val
constructMountOperationIsTcryptHiddenVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptHiddenVolume :: Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptHiddenVolume val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
constructObjectPropertyBool "is-tcrypt-hidden-volume" Bool
val
#if ENABLE_OVERLOADING
data MountOperationIsTcryptHiddenVolumePropertyInfo
instance AttrInfo MountOperationIsTcryptHiddenVolumePropertyInfo where
type AttrAllowedOps MountOperationIsTcryptHiddenVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = (~) Bool
type AttrBaseTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = IsMountOperation
type AttrGetType MountOperationIsTcryptHiddenVolumePropertyInfo = Bool
type AttrLabel MountOperationIsTcryptHiddenVolumePropertyInfo = "is-tcrypt-hidden-volume"
type AttrOrigin MountOperationIsTcryptHiddenVolumePropertyInfo = MountOperation
attrGet _ = getMountOperationIsTcryptHiddenVolume
attrSet _ = setMountOperationIsTcryptHiddenVolume
attrConstruct _ = constructMountOperationIsTcryptHiddenVolume
attrClear _ = undefined
#endif
getMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptSystemVolume :: o -> m Bool
getMountOperationIsTcryptSystemVolume obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
getObjectPropertyBool o
obj "is-tcrypt-system-volume"
setMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptSystemVolume :: o -> Bool -> m ()
setMountOperationIsTcryptSystemVolume obj :: o
obj val :: Bool
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Bool -> MountOperationAbortedCallback
setObjectPropertyBool o
obj "is-tcrypt-system-volume" Bool
val
constructMountOperationIsTcryptSystemVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptSystemVolume :: Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptSystemVolume val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
constructObjectPropertyBool "is-tcrypt-system-volume" Bool
val
#if ENABLE_OVERLOADING
data MountOperationIsTcryptSystemVolumePropertyInfo
instance AttrInfo MountOperationIsTcryptSystemVolumePropertyInfo where
type AttrAllowedOps MountOperationIsTcryptSystemVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = (~) Bool
type AttrBaseTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = IsMountOperation
type AttrGetType MountOperationIsTcryptSystemVolumePropertyInfo = Bool
type AttrLabel MountOperationIsTcryptSystemVolumePropertyInfo = "is-tcrypt-system-volume"
type AttrOrigin MountOperationIsTcryptSystemVolumePropertyInfo = MountOperation
attrGet _ = getMountOperationIsTcryptSystemVolume
attrSet _ = setMountOperationIsTcryptSystemVolume
attrConstruct _ = constructMountOperationIsTcryptSystemVolume
attrClear _ = undefined
#endif
getMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationPassword :: o -> m Text
getMountOperationPassword obj :: o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMountOperationPassword" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "password"
setMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationPassword :: o -> Text -> m ()
setMountOperationPassword obj :: o
obj val :: Text
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> MountOperationAbortedCallback
setObjectPropertyString o
obj "password" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationPassword :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationPassword :: Text -> IO (GValueConstruct o)
constructMountOperationPassword val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "password" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if ENABLE_OVERLOADING
data MountOperationPasswordPropertyInfo
instance AttrInfo MountOperationPasswordPropertyInfo where
type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = IsMountOperation
type AttrGetType MountOperationPasswordPropertyInfo = T.Text
type AttrLabel MountOperationPasswordPropertyInfo = "password"
type AttrOrigin MountOperationPasswordPropertyInfo = MountOperation
attrGet _ = getMountOperationPassword
attrSet _ = setMountOperationPassword
attrConstruct _ = constructMountOperationPassword
attrClear _ = undefined
#endif
getMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> m Gio.Enums.PasswordSave
getMountOperationPasswordSave :: o -> m PasswordSave
getMountOperationPasswordSave obj :: o
obj = IO PasswordSave -> m PasswordSave
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PasswordSave -> m PasswordSave)
-> IO PasswordSave -> m PasswordSave
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PasswordSave
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
getObjectPropertyEnum o
obj "password-save"
setMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> Gio.Enums.PasswordSave -> m ()
setMountOperationPasswordSave :: o -> PasswordSave -> m ()
setMountOperationPasswordSave obj :: o
obj val :: PasswordSave
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> PasswordSave -> MountOperationAbortedCallback
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> MountOperationAbortedCallback
setObjectPropertyEnum o
obj "password-save" PasswordSave
val
constructMountOperationPasswordSave :: (IsMountOperation o) => Gio.Enums.PasswordSave -> IO (GValueConstruct o)
constructMountOperationPasswordSave :: PasswordSave -> IO (GValueConstruct o)
constructMountOperationPasswordSave val :: PasswordSave
val = String -> PasswordSave -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
constructObjectPropertyEnum "password-save" PasswordSave
val
#if ENABLE_OVERLOADING
data MountOperationPasswordSavePropertyInfo
instance AttrInfo MountOperationPasswordSavePropertyInfo where
type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) Gio.Enums.PasswordSave
type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = IsMountOperation
type AttrGetType MountOperationPasswordSavePropertyInfo = Gio.Enums.PasswordSave
type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save"
type AttrOrigin MountOperationPasswordSavePropertyInfo = MountOperation
attrGet _ = getMountOperationPasswordSave
attrSet _ = setMountOperationPasswordSave
attrConstruct _ = constructMountOperationPasswordSave
attrClear _ = undefined
#endif
getMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> m Word32
getMountOperationPim :: o -> m Word32
getMountOperationPim obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
getObjectPropertyUInt32 o
obj "pim"
setMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> Word32 -> m ()
setMountOperationPim :: o -> Word32 -> m ()
setMountOperationPim obj :: o
obj val :: Word32
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Word32 -> MountOperationAbortedCallback
setObjectPropertyUInt32 o
obj "pim" Word32
val
constructMountOperationPim :: (IsMountOperation o) => Word32 -> IO (GValueConstruct o)
constructMountOperationPim :: Word32 -> IO (GValueConstruct o)
constructMountOperationPim val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
constructObjectPropertyUInt32 "pim" Word32
val
#if ENABLE_OVERLOADING
data MountOperationPimPropertyInfo
instance AttrInfo MountOperationPimPropertyInfo where
type AttrAllowedOps MountOperationPimPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationPimPropertyInfo = (~) Word32
type AttrBaseTypeConstraint MountOperationPimPropertyInfo = IsMountOperation
type AttrGetType MountOperationPimPropertyInfo = Word32
type AttrLabel MountOperationPimPropertyInfo = "pim"
type AttrOrigin MountOperationPimPropertyInfo = MountOperation
attrGet _ = getMountOperationPim
attrSet _ = setMountOperationPim
attrConstruct _ = constructMountOperationPim
attrClear _ = undefined
#endif
getMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationUsername :: o -> m Text
getMountOperationUsername obj :: o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMountOperationUsername" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "username"
setMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationUsername :: o -> Text -> m ()
setMountOperationUsername obj :: o
obj val :: Text
val = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> MountOperationAbortedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> MountOperationAbortedCallback
setObjectPropertyString o
obj "username" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationUsername :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationUsername :: Text -> IO (GValueConstruct o)
constructMountOperationUsername val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "username" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if ENABLE_OVERLOADING
data MountOperationUsernamePropertyInfo
instance AttrInfo MountOperationUsernamePropertyInfo where
type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = IsMountOperation
type AttrGetType MountOperationUsernamePropertyInfo = T.Text
type AttrLabel MountOperationUsernamePropertyInfo = "username"
type AttrOrigin MountOperationUsernamePropertyInfo = MountOperation
attrGet _ = getMountOperationUsername
attrSet _ = setMountOperationUsername
attrConstruct _ = constructMountOperationUsername
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList MountOperation
type instance O.AttributeList MountOperation = MountOperationAttributeList
type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("isTcryptHiddenVolume", MountOperationIsTcryptHiddenVolumePropertyInfo), '("isTcryptSystemVolume", MountOperationIsTcryptSystemVolumePropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("pim", MountOperationPimPropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
mountOperationAnonymous :: AttrLabelProxy "anonymous"
mountOperationAnonymous = AttrLabelProxy
mountOperationChoice :: AttrLabelProxy "choice"
mountOperationChoice = AttrLabelProxy
mountOperationDomain :: AttrLabelProxy "domain"
mountOperationDomain = AttrLabelProxy
mountOperationIsTcryptHiddenVolume :: AttrLabelProxy "isTcryptHiddenVolume"
mountOperationIsTcryptHiddenVolume = AttrLabelProxy
mountOperationIsTcryptSystemVolume :: AttrLabelProxy "isTcryptSystemVolume"
mountOperationIsTcryptSystemVolume = AttrLabelProxy
mountOperationPassword :: AttrLabelProxy "password"
mountOperationPassword = AttrLabelProxy
mountOperationPasswordSave :: AttrLabelProxy "passwordSave"
mountOperationPasswordSave = AttrLabelProxy
mountOperationPim :: AttrLabelProxy "pim"
mountOperationPim = AttrLabelProxy
mountOperationUsername :: AttrLabelProxy "username"
mountOperationUsername = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data MountOperationAbortedSignalInfo
instance SignalInfo MountOperationAbortedSignalInfo where
type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationAbortedCallback cb
cb'' <- mk_MountOperationAbortedCallback cb'
connectSignalFunPtr obj "aborted" cb'' connectMode
data MountOperationAskPasswordSignalInfo
instance SignalInfo MountOperationAskPasswordSignalInfo where
type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationAskPasswordCallback cb
cb'' <- mk_MountOperationAskPasswordCallback cb'
connectSignalFunPtr obj "ask-password" cb'' connectMode
data MountOperationAskQuestionSignalInfo
instance SignalInfo MountOperationAskQuestionSignalInfo where
type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationAskQuestionCallback cb
cb'' <- mk_MountOperationAskQuestionCallback cb'
connectSignalFunPtr obj "ask-question" cb'' connectMode
data MountOperationReplySignalInfo
instance SignalInfo MountOperationReplySignalInfo where
type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationReplyCallback cb
cb'' <- mk_MountOperationReplyCallback cb'
connectSignalFunPtr obj "reply" cb'' connectMode
data MountOperationShowProcessesSignalInfo
instance SignalInfo MountOperationShowProcessesSignalInfo where
type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationShowProcessesCallback cb
cb'' <- mk_MountOperationShowProcessesCallback cb'
connectSignalFunPtr obj "show-processes" cb'' connectMode
data MountOperationShowUnmountProgressSignalInfo
instance SignalInfo MountOperationShowUnmountProgressSignalInfo where
type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
cb'' <- mk_MountOperationShowUnmountProgressCallback cb'
connectSignalFunPtr obj "show-unmount-progress" cb'' connectMode
type instance O.SignalList MountOperation = MountOperationSignalList
type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("askPassword", MountOperationAskPasswordSignalInfo), '("askQuestion", MountOperationAskQuestionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("showProcesses", MountOperationShowProcessesSignalInfo), '("showUnmountProgress", MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_mount_operation_new" g_mount_operation_new ::
IO (Ptr MountOperation)
mountOperationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MountOperation
mountOperationNew :: m MountOperation
mountOperationNew = IO MountOperation -> m MountOperation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MountOperation -> m MountOperation)
-> IO MountOperation -> m MountOperation
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
result <- IO (Ptr MountOperation)
g_mount_operation_new
Text -> Ptr MountOperation -> MountOperationAbortedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> MountOperationAbortedCallback
checkUnexpectedReturnNULL "mountOperationNew" Ptr MountOperation
result
MountOperation
result' <- ((ManagedPtr MountOperation -> MountOperation)
-> Ptr MountOperation -> IO MountOperation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr MountOperation -> MountOperation
MountOperation) Ptr MountOperation
result
MountOperation -> IO MountOperation
forall (m :: * -> *) a. Monad m => a -> m a
return MountOperation
result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "g_mount_operation_get_anonymous" g_mount_operation_get_anonymous ::
Ptr MountOperation ->
IO CInt
mountOperationGetAnonymous ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Bool
mountOperationGetAnonymous :: a -> m Bool
mountOperationGetAnonymous op :: a
op = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr MountOperation -> IO CInt
g_mount_operation_get_anonymous Ptr MountOperation
op'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data MountOperationGetAnonymousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetAnonymousMethodInfo a signature where
overloadedMethod _ = mountOperationGetAnonymous
#endif
foreign import ccall "g_mount_operation_get_choice" g_mount_operation_get_choice ::
Ptr MountOperation ->
IO Int32
mountOperationGetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Int32
mountOperationGetChoice :: a -> m Int32
mountOperationGetChoice op :: a
op = 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 MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Int32
result <- Ptr MountOperation -> IO Int32
g_mount_operation_get_choice Ptr MountOperation
op'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data MountOperationGetChoiceMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetChoiceMethodInfo a signature where
overloadedMethod _ = mountOperationGetChoice
#endif
foreign import ccall "g_mount_operation_get_domain" g_mount_operation_get_domain ::
Ptr MountOperation ->
IO CString
mountOperationGetDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetDomain :: a -> m Text
mountOperationGetDomain op :: a
op = 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 MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
result <- Ptr MountOperation -> IO CString
g_mount_operation_get_domain Ptr MountOperation
op'
Text -> CString -> MountOperationAbortedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> MountOperationAbortedCallback
checkUnexpectedReturnNULL "mountOperationGetDomain" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data MountOperationGetDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetDomainMethodInfo a signature where
overloadedMethod _ = mountOperationGetDomain
#endif
foreign import ccall "g_mount_operation_get_is_tcrypt_hidden_volume" g_mount_operation_get_is_tcrypt_hidden_volume ::
Ptr MountOperation ->
IO CInt
mountOperationGetIsTcryptHiddenVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Bool
mountOperationGetIsTcryptHiddenVolume :: a -> m Bool
mountOperationGetIsTcryptHiddenVolume op :: a
op = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr MountOperation -> IO CInt
g_mount_operation_get_is_tcrypt_hidden_volume Ptr MountOperation
op'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data MountOperationGetIsTcryptHiddenVolumeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetIsTcryptHiddenVolumeMethodInfo a signature where
overloadedMethod _ = mountOperationGetIsTcryptHiddenVolume
#endif
foreign import ccall "g_mount_operation_get_is_tcrypt_system_volume" g_mount_operation_get_is_tcrypt_system_volume ::
Ptr MountOperation ->
IO CInt
mountOperationGetIsTcryptSystemVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Bool
mountOperationGetIsTcryptSystemVolume :: a -> m Bool
mountOperationGetIsTcryptSystemVolume op :: a
op = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr MountOperation -> IO CInt
g_mount_operation_get_is_tcrypt_system_volume Ptr MountOperation
op'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data MountOperationGetIsTcryptSystemVolumeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetIsTcryptSystemVolumeMethodInfo a signature where
overloadedMethod _ = mountOperationGetIsTcryptSystemVolume
#endif
foreign import ccall "g_mount_operation_get_password" g_mount_operation_get_password ::
Ptr MountOperation ->
IO CString
mountOperationGetPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetPassword :: a -> m Text
mountOperationGetPassword op :: a
op = 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 MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
result <- Ptr MountOperation -> IO CString
g_mount_operation_get_password Ptr MountOperation
op'
Text -> CString -> MountOperationAbortedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> MountOperationAbortedCallback
checkUnexpectedReturnNULL "mountOperationGetPassword" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data MountOperationGetPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordMethodInfo a signature where
overloadedMethod _ = mountOperationGetPassword
#endif
foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save ::
Ptr MountOperation ->
IO CUInt
mountOperationGetPasswordSave ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Gio.Enums.PasswordSave
mountOperationGetPasswordSave :: a -> m PasswordSave
mountOperationGetPasswordSave op :: a
op = IO PasswordSave -> m PasswordSave
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PasswordSave -> m PasswordSave)
-> IO PasswordSave -> m PasswordSave
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CUInt
result <- Ptr MountOperation -> IO CUInt
g_mount_operation_get_password_save Ptr MountOperation
op'
let result' :: PasswordSave
result' = (Int -> PasswordSave
forall a. Enum a => Int -> a
toEnum (Int -> PasswordSave) -> (CUInt -> Int) -> CUInt -> PasswordSave
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
PasswordSave -> IO PasswordSave
forall (m :: * -> *) a. Monad m => a -> m a
return PasswordSave
result'
#if ENABLE_OVERLOADING
data MountOperationGetPasswordSaveMethodInfo
instance (signature ~ (m Gio.Enums.PasswordSave), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordSaveMethodInfo a signature where
overloadedMethod _ = mountOperationGetPasswordSave
#endif
foreign import ccall "g_mount_operation_get_pim" g_mount_operation_get_pim ::
Ptr MountOperation ->
IO Word32
mountOperationGetPim ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m Word32
mountOperationGetPim :: a -> m Word32
mountOperationGetPim op :: a
op = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Word32
result <- Ptr MountOperation -> IO Word32
g_mount_operation_get_pim Ptr MountOperation
op'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if ENABLE_OVERLOADING
data MountOperationGetPimMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPimMethodInfo a signature where
overloadedMethod _ = mountOperationGetPim
#endif
foreign import ccall "g_mount_operation_get_username" g_mount_operation_get_username ::
Ptr MountOperation ->
IO CString
mountOperationGetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> m T.Text
mountOperationGetUsername :: a -> m Text
mountOperationGetUsername op :: a
op = 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 MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
result <- Ptr MountOperation -> IO CString
g_mount_operation_get_username Ptr MountOperation
op'
Text -> CString -> MountOperationAbortedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> MountOperationAbortedCallback
checkUnexpectedReturnNULL "mountOperationGetUsername" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data MountOperationGetUsernameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetUsernameMethodInfo a signature where
overloadedMethod _ = mountOperationGetUsername
#endif
foreign import ccall "g_mount_operation_reply" g_mount_operation_reply ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationReply ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Gio.Enums.MountOperationResult
-> m ()
mountOperationReply :: a -> MountOperationResult -> m ()
mountOperationReply op :: a
op result_ :: MountOperationResult
result_ = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let result_' :: CUInt
result_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (MountOperationResult -> Int) -> MountOperationResult -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MountOperationResult -> Int
forall a. Enum a => a -> Int
fromEnum) MountOperationResult
result_
Ptr MountOperation -> CUInt -> MountOperationAbortedCallback
g_mount_operation_reply Ptr MountOperation
op' CUInt
result_'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationReplyMethodInfo
instance (signature ~ (Gio.Enums.MountOperationResult -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationReplyMethodInfo a signature where
overloadedMethod _ = mountOperationReply
#endif
foreign import ccall "g_mount_operation_set_anonymous" g_mount_operation_set_anonymous ::
Ptr MountOperation ->
CInt ->
IO ()
mountOperationSetAnonymous ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Bool
-> m ()
mountOperationSetAnonymous :: a -> Bool -> m ()
mountOperationSetAnonymous op :: a
op anonymous :: Bool
anonymous = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let anonymous' :: CInt
anonymous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
anonymous
Ptr MountOperation -> CInt -> MountOperationAbortedCallback
g_mount_operation_set_anonymous Ptr MountOperation
op' CInt
anonymous'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetAnonymousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetAnonymousMethodInfo a signature where
overloadedMethod _ = mountOperationSetAnonymous
#endif
foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice ::
Ptr MountOperation ->
Int32 ->
IO ()
mountOperationSetChoice ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Int32
-> m ()
mountOperationSetChoice :: a -> Int32 -> m ()
mountOperationSetChoice op :: a
op choice :: Int32
choice = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr MountOperation -> Int32 -> MountOperationAbortedCallback
g_mount_operation_set_choice Ptr MountOperation
op' Int32
choice
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetChoiceMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetChoiceMethodInfo a signature where
overloadedMethod _ = mountOperationSetChoice
#endif
foreign import ccall "g_mount_operation_set_domain" g_mount_operation_set_domain ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetDomain :: a -> Text -> m ()
mountOperationSetDomain op :: a
op domain :: Text
domain = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
domain' <- Text -> IO CString
textToCString Text
domain
Ptr MountOperation -> CString -> MountOperationAbortedCallback
g_mount_operation_set_domain Ptr MountOperation
op' CString
domain'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
CString -> MountOperationAbortedCallback
forall a. Ptr a -> MountOperationAbortedCallback
freeMem CString
domain'
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetDomainMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetDomainMethodInfo a signature where
overloadedMethod _ = mountOperationSetDomain
#endif
foreign import ccall "g_mount_operation_set_is_tcrypt_hidden_volume" g_mount_operation_set_is_tcrypt_hidden_volume ::
Ptr MountOperation ->
CInt ->
IO ()
mountOperationSetIsTcryptHiddenVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Bool
-> m ()
mountOperationSetIsTcryptHiddenVolume :: a -> Bool -> m ()
mountOperationSetIsTcryptHiddenVolume op :: a
op hiddenVolume :: Bool
hiddenVolume = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let hiddenVolume' :: CInt
hiddenVolume' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hiddenVolume
Ptr MountOperation -> CInt -> MountOperationAbortedCallback
g_mount_operation_set_is_tcrypt_hidden_volume Ptr MountOperation
op' CInt
hiddenVolume'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetIsTcryptHiddenVolumeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetIsTcryptHiddenVolumeMethodInfo a signature where
overloadedMethod _ = mountOperationSetIsTcryptHiddenVolume
#endif
foreign import ccall "g_mount_operation_set_is_tcrypt_system_volume" g_mount_operation_set_is_tcrypt_system_volume ::
Ptr MountOperation ->
CInt ->
IO ()
mountOperationSetIsTcryptSystemVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Bool
-> m ()
mountOperationSetIsTcryptSystemVolume :: a -> Bool -> m ()
mountOperationSetIsTcryptSystemVolume op :: a
op systemVolume :: Bool
systemVolume = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let systemVolume' :: CInt
systemVolume' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
systemVolume
Ptr MountOperation -> CInt -> MountOperationAbortedCallback
g_mount_operation_set_is_tcrypt_system_volume Ptr MountOperation
op' CInt
systemVolume'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetIsTcryptSystemVolumeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetIsTcryptSystemVolumeMethodInfo a signature where
overloadedMethod _ = mountOperationSetIsTcryptSystemVolume
#endif
foreign import ccall "g_mount_operation_set_password" g_mount_operation_set_password ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetPassword :: a -> Text -> m ()
mountOperationSetPassword op :: a
op password :: Text
password = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
password' <- Text -> IO CString
textToCString Text
password
Ptr MountOperation -> CString -> MountOperationAbortedCallback
g_mount_operation_set_password Ptr MountOperation
op' CString
password'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
CString -> MountOperationAbortedCallback
forall a. Ptr a -> MountOperationAbortedCallback
freeMem CString
password'
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetPasswordMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordMethodInfo a signature where
overloadedMethod _ = mountOperationSetPassword
#endif
foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save ::
Ptr MountOperation ->
CUInt ->
IO ()
mountOperationSetPasswordSave ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Gio.Enums.PasswordSave
-> m ()
mountOperationSetPasswordSave :: a -> PasswordSave -> m ()
mountOperationSetPasswordSave op :: a
op save :: PasswordSave
save = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let save' :: CUInt
save' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PasswordSave -> Int) -> PasswordSave -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PasswordSave -> Int
forall a. Enum a => a -> Int
fromEnum) PasswordSave
save
Ptr MountOperation -> CUInt -> MountOperationAbortedCallback
g_mount_operation_set_password_save Ptr MountOperation
op' CUInt
save'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetPasswordSaveMethodInfo
instance (signature ~ (Gio.Enums.PasswordSave -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordSaveMethodInfo a signature where
overloadedMethod _ = mountOperationSetPasswordSave
#endif
foreign import ccall "g_mount_operation_set_pim" g_mount_operation_set_pim ::
Ptr MountOperation ->
Word32 ->
IO ()
mountOperationSetPim ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> Word32
-> m ()
mountOperationSetPim :: a -> Word32 -> m ()
mountOperationSetPim op :: a
op pim :: Word32
pim = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr MountOperation -> Word32 -> MountOperationAbortedCallback
g_mount_operation_set_pim Ptr MountOperation
op' Word32
pim
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetPimMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPimMethodInfo a signature where
overloadedMethod _ = mountOperationSetPim
#endif
foreign import ccall "g_mount_operation_set_username" g_mount_operation_set_username ::
Ptr MountOperation ->
CString ->
IO ()
mountOperationSetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>
a
-> T.Text
-> m ()
mountOperationSetUsername :: a -> Text -> m ()
mountOperationSetUsername op :: a
op username :: Text
username = MountOperationAbortedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (MountOperationAbortedCallback -> m ())
-> MountOperationAbortedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MountOperation
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
username' <- Text -> IO CString
textToCString Text
username
Ptr MountOperation -> CString -> MountOperationAbortedCallback
g_mount_operation_set_username Ptr MountOperation
op' CString
username'
a -> MountOperationAbortedCallback
forall a. ManagedPtrNewtype a => a -> MountOperationAbortedCallback
touchManagedPtr a
op
CString -> MountOperationAbortedCallback
forall a. Ptr a -> MountOperationAbortedCallback
freeMem CString
username'
() -> MountOperationAbortedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MountOperationSetUsernameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetUsernameMethodInfo a signature where
overloadedMethod _ = mountOperationSetUsername
#endif