{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.MountOperation
(
MountOperation(..) ,
IsMountOperation ,
toMountOperation ,
noMountOperation ,
#if defined(ENABLE_OVERLOADING)
ResolveMountOperationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MountOperationGetAnonymousMethodInfo ,
#endif
mountOperationGetAnonymous ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetChoiceMethodInfo ,
#endif
mountOperationGetChoice ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetDomainMethodInfo ,
#endif
mountOperationGetDomain ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetIsTcryptHiddenVolumeMethodInfo,
#endif
mountOperationGetIsTcryptHiddenVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetIsTcryptSystemVolumeMethodInfo,
#endif
mountOperationGetIsTcryptSystemVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetPasswordMethodInfo ,
#endif
mountOperationGetPassword ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetPasswordSaveMethodInfo ,
#endif
mountOperationGetPasswordSave ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetPimMethodInfo ,
#endif
mountOperationGetPim ,
#if defined(ENABLE_OVERLOADING)
MountOperationGetUsernameMethodInfo ,
#endif
mountOperationGetUsername ,
mountOperationNew ,
#if defined(ENABLE_OVERLOADING)
MountOperationReplyMethodInfo ,
#endif
mountOperationReply ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetAnonymousMethodInfo ,
#endif
mountOperationSetAnonymous ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetChoiceMethodInfo ,
#endif
mountOperationSetChoice ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetDomainMethodInfo ,
#endif
mountOperationSetDomain ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetIsTcryptHiddenVolumeMethodInfo,
#endif
mountOperationSetIsTcryptHiddenVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetIsTcryptSystemVolumeMethodInfo,
#endif
mountOperationSetIsTcryptSystemVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetPasswordMethodInfo ,
#endif
mountOperationSetPassword ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetPasswordSaveMethodInfo ,
#endif
mountOperationSetPasswordSave ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetPimMethodInfo ,
#endif
mountOperationSetPim ,
#if defined(ENABLE_OVERLOADING)
MountOperationSetUsernameMethodInfo ,
#endif
mountOperationSetUsername ,
#if defined(ENABLE_OVERLOADING)
MountOperationAnonymousPropertyInfo ,
#endif
constructMountOperationAnonymous ,
getMountOperationAnonymous ,
#if defined(ENABLE_OVERLOADING)
mountOperationAnonymous ,
#endif
setMountOperationAnonymous ,
#if defined(ENABLE_OVERLOADING)
MountOperationChoicePropertyInfo ,
#endif
constructMountOperationChoice ,
getMountOperationChoice ,
#if defined(ENABLE_OVERLOADING)
mountOperationChoice ,
#endif
setMountOperationChoice ,
#if defined(ENABLE_OVERLOADING)
MountOperationDomainPropertyInfo ,
#endif
constructMountOperationDomain ,
getMountOperationDomain ,
#if defined(ENABLE_OVERLOADING)
mountOperationDomain ,
#endif
setMountOperationDomain ,
#if defined(ENABLE_OVERLOADING)
MountOperationIsTcryptHiddenVolumePropertyInfo,
#endif
constructMountOperationIsTcryptHiddenVolume,
getMountOperationIsTcryptHiddenVolume ,
#if defined(ENABLE_OVERLOADING)
mountOperationIsTcryptHiddenVolume ,
#endif
setMountOperationIsTcryptHiddenVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationIsTcryptSystemVolumePropertyInfo,
#endif
constructMountOperationIsTcryptSystemVolume,
getMountOperationIsTcryptSystemVolume ,
#if defined(ENABLE_OVERLOADING)
mountOperationIsTcryptSystemVolume ,
#endif
setMountOperationIsTcryptSystemVolume ,
#if defined(ENABLE_OVERLOADING)
MountOperationPasswordPropertyInfo ,
#endif
constructMountOperationPassword ,
getMountOperationPassword ,
#if defined(ENABLE_OVERLOADING)
mountOperationPassword ,
#endif
setMountOperationPassword ,
#if defined(ENABLE_OVERLOADING)
MountOperationPasswordSavePropertyInfo ,
#endif
constructMountOperationPasswordSave ,
getMountOperationPasswordSave ,
#if defined(ENABLE_OVERLOADING)
mountOperationPasswordSave ,
#endif
setMountOperationPasswordSave ,
#if defined(ENABLE_OVERLOADING)
MountOperationPimPropertyInfo ,
#endif
constructMountOperationPim ,
getMountOperationPim ,
#if defined(ENABLE_OVERLOADING)
mountOperationPim ,
#endif
setMountOperationPim ,
#if defined(ENABLE_OVERLOADING)
MountOperationUsernamePropertyInfo ,
#endif
constructMountOperationUsername ,
getMountOperationUsername ,
#if defined(ENABLE_OVERLOADING)
mountOperationUsername ,
#endif
setMountOperationUsername ,
C_MountOperationAbortedCallback ,
MountOperationAbortedCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAbortedSignalInfo ,
#endif
afterMountOperationAborted ,
genClosure_MountOperationAborted ,
mk_MountOperationAbortedCallback ,
noMountOperationAbortedCallback ,
onMountOperationAborted ,
wrap_MountOperationAbortedCallback ,
C_MountOperationAskPasswordCallback ,
MountOperationAskPasswordCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAskPasswordSignalInfo ,
#endif
afterMountOperationAskPassword ,
genClosure_MountOperationAskPassword ,
mk_MountOperationAskPasswordCallback ,
noMountOperationAskPasswordCallback ,
onMountOperationAskPassword ,
wrap_MountOperationAskPasswordCallback ,
C_MountOperationAskQuestionCallback ,
MountOperationAskQuestionCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAskQuestionSignalInfo ,
#endif
afterMountOperationAskQuestion ,
genClosure_MountOperationAskQuestion ,
mk_MountOperationAskQuestionCallback ,
noMountOperationAskQuestionCallback ,
onMountOperationAskQuestion ,
wrap_MountOperationAskQuestionCallback ,
C_MountOperationReplyCallback ,
MountOperationReplyCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationReplySignalInfo ,
#endif
afterMountOperationReply ,
genClosure_MountOperationReply ,
mk_MountOperationReplyCallback ,
noMountOperationReplyCallback ,
onMountOperationReply ,
wrap_MountOperationReplyCallback ,
C_MountOperationShowProcessesCallback ,
MountOperationShowProcessesCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationShowProcessesSignalInfo ,
#endif
afterMountOperationShowProcesses ,
genClosure_MountOperationShowProcesses ,
mk_MountOperationShowProcessesCallback ,
noMountOperationShowProcessesCallback ,
onMountOperationShowProcesses ,
wrap_MountOperationShowProcessesCallback,
C_MountOperationShowUnmountProgressCallback,
MountOperationShowUnmountProgressCallback,
#if defined(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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
newtype MountOperation = MountOperation (ManagedPtr MountOperation)
deriving (Eq)
foreign import ccall "g_mount_operation_get_type"
c_g_mount_operation_get_type :: IO GType
instance GObject MountOperation where
gobjectType = c_g_mount_operation_get_type
instance B.GValue.IsGValue MountOperation where
toGValue o = do
gtype <- c_g_mount_operation_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr MountOperation)
B.ManagedPtr.newObject MountOperation ptr
class (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o
instance (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o
instance O.HasParentTypes MountOperation
type instance O.ParentTypes MountOperation = '[GObject.Object.Object]
toMountOperation :: (MonadIO m, IsMountOperation o) => o -> m MountOperation
toMountOperation = liftIO . unsafeCastTo MountOperation
noMountOperation :: Maybe MountOperation
noMountOperation = Nothing
#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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) => OL.IsLabel t (MountOperation -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type MountOperationAbortedCallback =
IO ()
noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback
noMountOperationAbortedCallback = Nothing
type C_MountOperationAbortedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAbortedCallback :: C_MountOperationAbortedCallback -> IO (FunPtr C_MountOperationAbortedCallback)
genClosure_MountOperationAborted :: MonadIO m => MountOperationAbortedCallback -> m (GClosure C_MountOperationAbortedCallback)
genClosure_MountOperationAborted cb = liftIO $ do
let cb' = wrap_MountOperationAbortedCallback cb
mk_MountOperationAbortedCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationAbortedCallback ::
MountOperationAbortedCallback ->
C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback _cb _ _ = do
_cb
onMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
onMountOperationAborted obj cb = liftIO $ do
let cb' = wrap_MountOperationAbortedCallback cb
cb'' <- mk_MountOperationAbortedCallback cb'
connectSignalFunPtr obj "aborted" cb'' SignalConnectBefore Nothing
afterMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId
afterMountOperationAborted obj cb = liftIO $ do
let cb' = wrap_MountOperationAbortedCallback cb
cb'' <- mk_MountOperationAbortedCallback cb'
connectSignalFunPtr obj "aborted" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationAbortedSignalInfo
instance SignalInfo MountOperationAbortedSignalInfo where
type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationAbortedCallback cb
cb'' <- mk_MountOperationAbortedCallback cb'
connectSignalFunPtr obj "aborted" cb'' connectMode detail
#endif
type MountOperationAskPasswordCallback =
T.Text
-> T.Text
-> T.Text
-> [Gio.Flags.AskPasswordFlags]
-> IO ()
noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback
noMountOperationAskPasswordCallback = 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 :: MonadIO m => MountOperationAskPasswordCallback -> m (GClosure C_MountOperationAskPasswordCallback)
genClosure_MountOperationAskPassword cb = liftIO $ do
let cb' = wrap_MountOperationAskPasswordCallback cb
mk_MountOperationAskPasswordCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationAskPasswordCallback ::
MountOperationAskPasswordCallback ->
C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback _cb _ message defaultUser defaultDomain flags _ = do
message' <- cstringToText message
defaultUser' <- cstringToText defaultUser
defaultDomain' <- cstringToText defaultDomain
let flags' = wordToGFlags flags
_cb message' defaultUser' defaultDomain' flags'
onMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
onMountOperationAskPassword obj cb = liftIO $ do
let cb' = wrap_MountOperationAskPasswordCallback cb
cb'' <- mk_MountOperationAskPasswordCallback cb'
connectSignalFunPtr obj "ask-password" cb'' SignalConnectBefore Nothing
afterMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId
afterMountOperationAskPassword obj cb = liftIO $ do
let cb' = wrap_MountOperationAskPasswordCallback cb
cb'' <- mk_MountOperationAskPasswordCallback cb'
connectSignalFunPtr obj "ask-password" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationAskPasswordSignalInfo
instance SignalInfo MountOperationAskPasswordSignalInfo where
type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationAskPasswordCallback cb
cb'' <- mk_MountOperationAskPasswordCallback cb'
connectSignalFunPtr obj "ask-password" cb'' connectMode detail
#endif
type MountOperationAskQuestionCallback =
T.Text
-> [T.Text]
-> IO ()
noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback
noMountOperationAskQuestionCallback = Nothing
type C_MountOperationAskQuestionCallback =
Ptr () ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskQuestionCallback :: C_MountOperationAskQuestionCallback -> IO (FunPtr C_MountOperationAskQuestionCallback)
genClosure_MountOperationAskQuestion :: MonadIO m => MountOperationAskQuestionCallback -> m (GClosure C_MountOperationAskQuestionCallback)
genClosure_MountOperationAskQuestion cb = liftIO $ do
let cb' = wrap_MountOperationAskQuestionCallback cb
mk_MountOperationAskQuestionCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationAskQuestionCallback ::
MountOperationAskQuestionCallback ->
C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback _cb _ message choices _ = do
message' <- cstringToText message
choices' <- unpackZeroTerminatedUTF8CArray choices
_cb message' choices'
onMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
onMountOperationAskQuestion obj cb = liftIO $ do
let cb' = wrap_MountOperationAskQuestionCallback cb
cb'' <- mk_MountOperationAskQuestionCallback cb'
connectSignalFunPtr obj "ask-question" cb'' SignalConnectBefore Nothing
afterMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId
afterMountOperationAskQuestion obj cb = liftIO $ do
let cb' = wrap_MountOperationAskQuestionCallback cb
cb'' <- mk_MountOperationAskQuestionCallback cb'
connectSignalFunPtr obj "ask-question" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationAskQuestionSignalInfo
instance SignalInfo MountOperationAskQuestionSignalInfo where
type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationAskQuestionCallback cb
cb'' <- mk_MountOperationAskQuestionCallback cb'
connectSignalFunPtr obj "ask-question" cb'' connectMode detail
#endif
type MountOperationReplyCallback =
Gio.Enums.MountOperationResult
-> IO ()
noMountOperationReplyCallback :: Maybe MountOperationReplyCallback
noMountOperationReplyCallback = Nothing
type C_MountOperationReplyCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationReplyCallback :: C_MountOperationReplyCallback -> IO (FunPtr C_MountOperationReplyCallback)
genClosure_MountOperationReply :: MonadIO m => MountOperationReplyCallback -> m (GClosure C_MountOperationReplyCallback)
genClosure_MountOperationReply cb = liftIO $ do
let cb' = wrap_MountOperationReplyCallback cb
mk_MountOperationReplyCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationReplyCallback ::
MountOperationReplyCallback ->
C_MountOperationReplyCallback
wrap_MountOperationReplyCallback _cb _ result_ _ = do
let result_' = (toEnum . fromIntegral) result_
_cb result_'
onMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
onMountOperationReply obj cb = liftIO $ do
let cb' = wrap_MountOperationReplyCallback cb
cb'' <- mk_MountOperationReplyCallback cb'
connectSignalFunPtr obj "reply" cb'' SignalConnectBefore Nothing
afterMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId
afterMountOperationReply obj cb = liftIO $ do
let cb' = wrap_MountOperationReplyCallback cb
cb'' <- mk_MountOperationReplyCallback cb'
connectSignalFunPtr obj "reply" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationReplySignalInfo
instance SignalInfo MountOperationReplySignalInfo where
type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationReplyCallback cb
cb'' <- mk_MountOperationReplyCallback cb'
connectSignalFunPtr obj "reply" cb'' connectMode detail
#endif
type MountOperationShowProcessesCallback =
T.Text
-> [Int32]
-> [T.Text]
-> IO ()
noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback
noMountOperationShowProcessesCallback = 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 :: MonadIO m => MountOperationShowProcessesCallback -> m (GClosure C_MountOperationShowProcessesCallback)
genClosure_MountOperationShowProcesses cb = liftIO $ do
let cb' = wrap_MountOperationShowProcessesCallback cb
mk_MountOperationShowProcessesCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationShowProcessesCallback ::
MountOperationShowProcessesCallback ->
C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback _cb _ message processes choices _ = do
message' <- cstringToText message
processes' <- unpackGArray processes
choices' <- unpackZeroTerminatedUTF8CArray choices
_cb message' processes' choices'
onMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
onMountOperationShowProcesses obj cb = liftIO $ do
let cb' = wrap_MountOperationShowProcessesCallback cb
cb'' <- mk_MountOperationShowProcessesCallback cb'
connectSignalFunPtr obj "show-processes" cb'' SignalConnectBefore Nothing
afterMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId
afterMountOperationShowProcesses obj cb = liftIO $ do
let cb' = wrap_MountOperationShowProcessesCallback cb
cb'' <- mk_MountOperationShowProcessesCallback cb'
connectSignalFunPtr obj "show-processes" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationShowProcessesSignalInfo
instance SignalInfo MountOperationShowProcessesSignalInfo where
type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationShowProcessesCallback cb
cb'' <- mk_MountOperationShowProcessesCallback cb'
connectSignalFunPtr obj "show-processes" cb'' connectMode detail
#endif
type MountOperationShowUnmountProgressCallback =
T.Text
-> Int64
-> Int64
-> IO ()
noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback
noMountOperationShowUnmountProgressCallback = Nothing
type C_MountOperationShowUnmountProgressCallback =
Ptr () ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowUnmountProgressCallback :: C_MountOperationShowUnmountProgressCallback -> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
genClosure_MountOperationShowUnmountProgress :: MonadIO m => MountOperationShowUnmountProgressCallback -> m (GClosure C_MountOperationShowUnmountProgressCallback)
genClosure_MountOperationShowUnmountProgress cb = liftIO $ do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
mk_MountOperationShowUnmountProgressCallback cb' >>= B.GClosure.newGClosure
wrap_MountOperationShowUnmountProgressCallback ::
MountOperationShowUnmountProgressCallback ->
C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback _cb _ message timeLeft bytesLeft _ = do
message' <- cstringToText message
_cb message' timeLeft bytesLeft
onMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
onMountOperationShowUnmountProgress obj cb = liftIO $ do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
cb'' <- mk_MountOperationShowUnmountProgressCallback cb'
connectSignalFunPtr obj "show-unmount-progress" cb'' SignalConnectBefore Nothing
afterMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId
afterMountOperationShowUnmountProgress obj cb = liftIO $ do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
cb'' <- mk_MountOperationShowUnmountProgressCallback cb'
connectSignalFunPtr obj "show-unmount-progress" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MountOperationShowUnmountProgressSignalInfo
instance SignalInfo MountOperationShowUnmountProgressSignalInfo where
type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MountOperationShowUnmountProgressCallback cb
cb'' <- mk_MountOperationShowUnmountProgressCallback cb'
connectSignalFunPtr obj "show-unmount-progress" cb'' connectMode detail
#endif
getMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationAnonymous obj = liftIO $ B.Properties.getObjectPropertyBool obj "anonymous"
setMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationAnonymous obj val = liftIO $ B.Properties.setObjectPropertyBool obj "anonymous" val
constructMountOperationAnonymous :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationAnonymous val = B.Properties.constructObjectPropertyBool "anonymous" val
#if defined(ENABLE_OVERLOADING)
data MountOperationAnonymousPropertyInfo
instance AttrInfo MountOperationAnonymousPropertyInfo where
type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool
type AttrTransferType MountOperationAnonymousPropertyInfo = Bool
type AttrGetType MountOperationAnonymousPropertyInfo = Bool
type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous"
type AttrOrigin MountOperationAnonymousPropertyInfo = MountOperation
attrGet = getMountOperationAnonymous
attrSet = setMountOperationAnonymous
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationAnonymous
attrClear = undefined
#endif
getMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> m Int32
getMountOperationChoice obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "choice"
setMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> Int32 -> m ()
setMountOperationChoice obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "choice" val
constructMountOperationChoice :: (IsMountOperation o) => Int32 -> IO (GValueConstruct o)
constructMountOperationChoice val = B.Properties.constructObjectPropertyInt32 "choice" val
#if defined(ENABLE_OVERLOADING)
data MountOperationChoicePropertyInfo
instance AttrInfo MountOperationChoicePropertyInfo where
type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32
type AttrTransferTypeConstraint MountOperationChoicePropertyInfo = (~) Int32
type AttrTransferType MountOperationChoicePropertyInfo = Int32
type AttrGetType MountOperationChoicePropertyInfo = Int32
type AttrLabel MountOperationChoicePropertyInfo = "choice"
type AttrOrigin MountOperationChoicePropertyInfo = MountOperation
attrGet = getMountOperationChoice
attrSet = setMountOperationChoice
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationChoice
attrClear = undefined
#endif
getMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationDomain obj = liftIO $ checkUnexpectedNothing "getMountOperationDomain" $ B.Properties.getObjectPropertyString obj "domain"
setMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationDomain obj val = liftIO $ B.Properties.setObjectPropertyString obj "domain" (Just val)
constructMountOperationDomain :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationDomain val = B.Properties.constructObjectPropertyString "domain" (Just val)
#if defined(ENABLE_OVERLOADING)
data MountOperationDomainPropertyInfo
instance AttrInfo MountOperationDomainPropertyInfo where
type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrTransferType MountOperationDomainPropertyInfo = T.Text
type AttrGetType MountOperationDomainPropertyInfo = T.Text
type AttrLabel MountOperationDomainPropertyInfo = "domain"
type AttrOrigin MountOperationDomainPropertyInfo = MountOperation
attrGet = getMountOperationDomain
attrSet = setMountOperationDomain
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationDomain
attrClear = undefined
#endif
getMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptHiddenVolume obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-tcrypt-hidden-volume"
setMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptHiddenVolume obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-tcrypt-hidden-volume" val
constructMountOperationIsTcryptHiddenVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptHiddenVolume val = B.Properties.constructObjectPropertyBool "is-tcrypt-hidden-volume" val
#if defined(ENABLE_OVERLOADING)
data MountOperationIsTcryptHiddenVolumePropertyInfo
instance AttrInfo MountOperationIsTcryptHiddenVolumePropertyInfo where
type AttrAllowedOps MountOperationIsTcryptHiddenVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = (~) Bool
type AttrTransferTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = (~) Bool
type AttrTransferType MountOperationIsTcryptHiddenVolumePropertyInfo = Bool
type AttrGetType MountOperationIsTcryptHiddenVolumePropertyInfo = Bool
type AttrLabel MountOperationIsTcryptHiddenVolumePropertyInfo = "is-tcrypt-hidden-volume"
type AttrOrigin MountOperationIsTcryptHiddenVolumePropertyInfo = MountOperation
attrGet = getMountOperationIsTcryptHiddenVolume
attrSet = setMountOperationIsTcryptHiddenVolume
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationIsTcryptHiddenVolume
attrClear = undefined
#endif
getMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptSystemVolume obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-tcrypt-system-volume"
setMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptSystemVolume obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-tcrypt-system-volume" val
constructMountOperationIsTcryptSystemVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)
constructMountOperationIsTcryptSystemVolume val = B.Properties.constructObjectPropertyBool "is-tcrypt-system-volume" val
#if defined(ENABLE_OVERLOADING)
data MountOperationIsTcryptSystemVolumePropertyInfo
instance AttrInfo MountOperationIsTcryptSystemVolumePropertyInfo where
type AttrAllowedOps MountOperationIsTcryptSystemVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = (~) Bool
type AttrTransferTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = (~) Bool
type AttrTransferType MountOperationIsTcryptSystemVolumePropertyInfo = Bool
type AttrGetType MountOperationIsTcryptSystemVolumePropertyInfo = Bool
type AttrLabel MountOperationIsTcryptSystemVolumePropertyInfo = "is-tcrypt-system-volume"
type AttrOrigin MountOperationIsTcryptSystemVolumePropertyInfo = MountOperation
attrGet = getMountOperationIsTcryptSystemVolume
attrSet = setMountOperationIsTcryptSystemVolume
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationIsTcryptSystemVolume
attrClear = undefined
#endif
getMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationPassword obj = liftIO $ checkUnexpectedNothing "getMountOperationPassword" $ B.Properties.getObjectPropertyString obj "password"
setMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationPassword obj val = liftIO $ B.Properties.setObjectPropertyString obj "password" (Just val)
constructMountOperationPassword :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationPassword val = B.Properties.constructObjectPropertyString "password" (Just val)
#if defined(ENABLE_OVERLOADING)
data MountOperationPasswordPropertyInfo
instance AttrInfo MountOperationPasswordPropertyInfo where
type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrTransferType MountOperationPasswordPropertyInfo = T.Text
type AttrGetType MountOperationPasswordPropertyInfo = T.Text
type AttrLabel MountOperationPasswordPropertyInfo = "password"
type AttrOrigin MountOperationPasswordPropertyInfo = MountOperation
attrGet = getMountOperationPassword
attrSet = setMountOperationPassword
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationPassword
attrClear = undefined
#endif
getMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> m Gio.Enums.PasswordSave
getMountOperationPasswordSave obj = liftIO $ B.Properties.getObjectPropertyEnum obj "password-save"
setMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> Gio.Enums.PasswordSave -> m ()
setMountOperationPasswordSave obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "password-save" val
constructMountOperationPasswordSave :: (IsMountOperation o) => Gio.Enums.PasswordSave -> IO (GValueConstruct o)
constructMountOperationPasswordSave val = B.Properties.constructObjectPropertyEnum "password-save" val
#if defined(ENABLE_OVERLOADING)
data MountOperationPasswordSavePropertyInfo
instance AttrInfo MountOperationPasswordSavePropertyInfo where
type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) Gio.Enums.PasswordSave
type AttrTransferTypeConstraint MountOperationPasswordSavePropertyInfo = (~) Gio.Enums.PasswordSave
type AttrTransferType MountOperationPasswordSavePropertyInfo = Gio.Enums.PasswordSave
type AttrGetType MountOperationPasswordSavePropertyInfo = Gio.Enums.PasswordSave
type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save"
type AttrOrigin MountOperationPasswordSavePropertyInfo = MountOperation
attrGet = getMountOperationPasswordSave
attrSet = setMountOperationPasswordSave
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationPasswordSave
attrClear = undefined
#endif
getMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> m Word32
getMountOperationPim obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "pim"
setMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> Word32 -> m ()
setMountOperationPim obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "pim" val
constructMountOperationPim :: (IsMountOperation o) => Word32 -> IO (GValueConstruct o)
constructMountOperationPim val = B.Properties.constructObjectPropertyUInt32 "pim" val
#if defined(ENABLE_OVERLOADING)
data MountOperationPimPropertyInfo
instance AttrInfo MountOperationPimPropertyInfo where
type AttrAllowedOps MountOperationPimPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationPimPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationPimPropertyInfo = (~) Word32
type AttrTransferTypeConstraint MountOperationPimPropertyInfo = (~) Word32
type AttrTransferType MountOperationPimPropertyInfo = Word32
type AttrGetType MountOperationPimPropertyInfo = Word32
type AttrLabel MountOperationPimPropertyInfo = "pim"
type AttrOrigin MountOperationPimPropertyInfo = MountOperation
attrGet = getMountOperationPim
attrSet = setMountOperationPim
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationPim
attrClear = undefined
#endif
getMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m T.Text
getMountOperationUsername obj = liftIO $ checkUnexpectedNothing "getMountOperationUsername" $ B.Properties.getObjectPropertyString obj "username"
setMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationUsername obj val = liftIO $ B.Properties.setObjectPropertyString obj "username" (Just val)
constructMountOperationUsername :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)
constructMountOperationUsername val = B.Properties.constructObjectPropertyString "username" (Just val)
#if defined(ENABLE_OVERLOADING)
data MountOperationUsernamePropertyInfo
instance AttrInfo MountOperationUsernamePropertyInfo where
type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrTransferType MountOperationUsernamePropertyInfo = T.Text
type AttrGetType MountOperationUsernamePropertyInfo = T.Text
type AttrLabel MountOperationUsernamePropertyInfo = "username"
type AttrOrigin MountOperationUsernamePropertyInfo = MountOperation
attrGet = getMountOperationUsername
attrSet = setMountOperationUsername
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationUsername
attrClear = undefined
#endif
#if defined(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 defined(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 defined(ENABLE_OVERLOADING)
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 = liftIO $ do
result <- g_mount_operation_new
checkUnexpectedReturnNULL "mountOperationNew" result
result' <- (wrapObject MountOperation) result
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_anonymous op'
let result' = (/= 0) result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_choice op'
touchManagedPtr op
return result
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_domain op'
checkUnexpectedReturnNULL "mountOperationGetDomain" result
result' <- cstringToText result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_is_tcrypt_hidden_volume op'
let result' = (/= 0) result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_is_tcrypt_system_volume op'
let result' = (/= 0) result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_password op'
checkUnexpectedReturnNULL "mountOperationGetPassword" result
result' <- cstringToText result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_password_save op'
let result' = (toEnum . fromIntegral) result
touchManagedPtr op
return result'
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_pim op'
touchManagedPtr op
return result
#if defined(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 op = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
result <- g_mount_operation_get_username op'
checkUnexpectedReturnNULL "mountOperationGetUsername" result
result' <- cstringToText result
touchManagedPtr op
return result'
#if defined(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 op result_ = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let result_' = (fromIntegral . fromEnum) result_
g_mount_operation_reply op' result_'
touchManagedPtr op
return ()
#if defined(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 op anonymous = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let anonymous' = (fromIntegral . fromEnum) anonymous
g_mount_operation_set_anonymous op' anonymous'
touchManagedPtr op
return ()
#if defined(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 op choice = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
g_mount_operation_set_choice op' choice
touchManagedPtr op
return ()
#if defined(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 op domain = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
domain' <- textToCString domain
g_mount_operation_set_domain op' domain'
touchManagedPtr op
freeMem domain'
return ()
#if defined(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 op hiddenVolume = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let hiddenVolume' = (fromIntegral . fromEnum) hiddenVolume
g_mount_operation_set_is_tcrypt_hidden_volume op' hiddenVolume'
touchManagedPtr op
return ()
#if defined(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 op systemVolume = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let systemVolume' = (fromIntegral . fromEnum) systemVolume
g_mount_operation_set_is_tcrypt_system_volume op' systemVolume'
touchManagedPtr op
return ()
#if defined(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 op password = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
password' <- textToCString password
g_mount_operation_set_password op' password'
touchManagedPtr op
freeMem password'
return ()
#if defined(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 op save = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
let save' = (fromIntegral . fromEnum) save
g_mount_operation_set_password_save op' save'
touchManagedPtr op
return ()
#if defined(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 op pim = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
g_mount_operation_set_pim op' pim
touchManagedPtr op
return ()
#if defined(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 op username = liftIO $ do
op' <- unsafeManagedPtrCastPtr op
username' <- textToCString username
g_mount_operation_set_username op' username'
touchManagedPtr op
freeMem username'
return ()
#if defined(ENABLE_OVERLOADING)
data MountOperationSetUsernameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetUsernameMethodInfo a signature where
overloadedMethod = mountOperationSetUsername
#endif