{-# LANGUAGE ImplicitParams, RankNTypes, 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 ,
#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
clearMountOperationDomain ,
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
clearMountOperationPassword ,
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
clearMountOperationUsername ,
constructMountOperationUsername ,
getMountOperationUsername ,
#if defined(ENABLE_OVERLOADING)
mountOperationUsername ,
#endif
setMountOperationUsername ,
MountOperationAbortedCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAbortedSignalInfo ,
#endif
afterMountOperationAborted ,
onMountOperationAborted ,
MountOperationAskPasswordCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAskPasswordSignalInfo ,
#endif
afterMountOperationAskPassword ,
onMountOperationAskPassword ,
MountOperationAskQuestionCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationAskQuestionSignalInfo ,
#endif
afterMountOperationAskQuestion ,
onMountOperationAskQuestion ,
MountOperationReplyCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationReplySignalInfo ,
#endif
afterMountOperationReply ,
onMountOperationReply ,
MountOperationShowProcessesCallback ,
#if defined(ENABLE_OVERLOADING)
MountOperationShowProcessesSignalInfo ,
#endif
afterMountOperationShowProcesses ,
onMountOperationShowProcesses ,
MountOperationShowUnmountProgressCallback,
#if defined(ENABLE_OVERLOADING)
MountOperationShowUnmountProgressSignalInfo,
#endif
afterMountOperationShowUnmountProgress ,
onMountOperationShowUnmountProgress ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
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
#else
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
#endif
newtype MountOperation = MountOperation (SP.ManagedPtr MountOperation)
deriving (MountOperation -> MountOperation -> Bool
(MountOperation -> MountOperation -> Bool)
-> (MountOperation -> MountOperation -> Bool) -> Eq MountOperation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MountOperation -> MountOperation -> Bool
== :: MountOperation -> MountOperation -> Bool
$c/= :: MountOperation -> MountOperation -> Bool
/= :: MountOperation -> MountOperation -> Bool
Eq)
instance SP.ManagedPtrNewtype MountOperation where
toManagedPtr :: MountOperation -> ManagedPtr MountOperation
toManagedPtr (MountOperation ManagedPtr MountOperation
p) = ManagedPtr MountOperation
p
foreign import ccall "g_mount_operation_get_type"
c_g_mount_operation_get_type :: IO B.Types.GType
instance B.Types.TypedObject MountOperation where
glibType :: IO GType
glibType = IO GType
c_g_mount_operation_get_type
instance B.Types.GObject MountOperation
class (SP.GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o
instance (SP.GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o
instance O.HasParentTypes MountOperation
type instance O.ParentTypes MountOperation = '[GObject.Object.Object]
toMountOperation :: (MIO.MonadIO m, IsMountOperation o) => o -> m MountOperation
toMountOperation :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m MountOperation
toMountOperation = IO MountOperation -> m MountOperation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr MountOperation -> MountOperation
MountOperation
instance B.GValue.IsGValue (Maybe MountOperation) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_mount_operation_get_type
gvalueSet_ :: Ptr GValue -> Maybe MountOperation -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MountOperation
P.Nothing = Ptr GValue -> Ptr MountOperation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr MountOperation
forall a. Ptr a
FP.nullPtr :: FP.Ptr MountOperation)
gvalueSet_ Ptr GValue
gv (P.Just MountOperation
obj) = MountOperation -> (Ptr MountOperation -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MountOperation
obj (Ptr GValue -> Ptr MountOperation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MountOperation)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr MountOperation)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr MountOperation)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject MountOperation ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMountOperationMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveMountOperationMethod t MountOperation, O.OverloadedMethod info MountOperation p, R.HasField t MountOperation p) => R.HasField t MountOperation p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMountOperationMethod t MountOperation, O.OverloadedMethodInfo info MountOperation) => OL.IsLabel t (O.MethodProxy info MountOperation) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type MountOperationAbortedCallback =
IO ()
type C_MountOperationAbortedCallback =
Ptr MountOperation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAbortedCallback :: C_MountOperationAbortedCallback -> IO (FunPtr C_MountOperationAbortedCallback)
wrap_MountOperationAbortedCallback ::
GObject a => (a -> MountOperationAbortedCallback) ->
C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback a -> IO ()
gi'cb Ptr MountOperation
gi'selfPtr Ptr ()
_ = do
Ptr MountOperation -> (MountOperation -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr MountOperation
gi'selfPtr ((MountOperation -> IO ()) -> IO ())
-> (MountOperation -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \MountOperation
gi'self -> a -> IO ()
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self)
onMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAbortedCallback) -> m SignalHandlerId
onMountOperationAborted :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onMountOperationAborted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_MountOperationAbortedCallback
wrapped' = (a -> IO ()) -> C_MountOperationAbortedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback a -> IO ()
wrapped
wrapped'' <- C_MountOperationAbortedCallback
-> IO (FunPtr C_MountOperationAbortedCallback)
mk_MountOperationAbortedCallback C_MountOperationAbortedCallback
wrapped'
connectSignalFunPtr obj "aborted" wrapped'' SignalConnectBefore Nothing
afterMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAbortedCallback) -> m SignalHandlerId
afterMountOperationAborted :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterMountOperationAborted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_MountOperationAbortedCallback
wrapped' = (a -> IO ()) -> C_MountOperationAbortedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_MountOperationAbortedCallback
wrap_MountOperationAbortedCallback a -> IO ()
wrapped
wrapped'' <- C_MountOperationAbortedCallback
-> IO (FunPtr C_MountOperationAbortedCallback)
mk_MountOperationAbortedCallback C_MountOperationAbortedCallback
wrapped'
connectSignalFunPtr obj "aborted" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::aborted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:aborted"})
#endif
type MountOperationAskPasswordCallback =
T.Text
-> T.Text
-> T.Text
-> [Gio.Flags.AskPasswordFlags]
-> IO ()
type C_MountOperationAskPasswordCallback =
Ptr MountOperation ->
CString ->
CString ->
CString ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskPasswordCallback :: C_MountOperationAskPasswordCallback -> IO (FunPtr C_MountOperationAskPasswordCallback)
wrap_MountOperationAskPasswordCallback ::
GObject a => (a -> MountOperationAskPasswordCallback) ->
C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback :: forall a.
GObject a =>
(a -> MountOperationAskPasswordCallback)
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback a -> MountOperationAskPasswordCallback
gi'cb Ptr MountOperation
gi'selfPtr CString
message CString
defaultUser CString
defaultDomain CUInt
flags Ptr ()
_ = do
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
defaultUser' <- cstringToText defaultUser
defaultDomain' <- cstringToText defaultDomain
let flags' = CUInt -> [AskPasswordFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flags
B.ManagedPtr.withNewObject gi'selfPtr $ \MountOperation
gi'self -> a -> MountOperationAskPasswordCallback
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self) Text
message' Text
defaultUser' Text
defaultDomain' [AskPasswordFlags]
flags'
onMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAskPasswordCallback) -> m SignalHandlerId
onMountOperationAskPassword :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationAskPasswordCallback)
-> m SignalHandlerId
onMountOperationAskPassword a
obj (?self::a) => MountOperationAskPasswordCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationAskPasswordCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationAskPasswordCallback
MountOperationAskPasswordCallback
cb
let wrapped' :: C_MountOperationAskPasswordCallback
wrapped' = (a -> MountOperationAskPasswordCallback)
-> C_MountOperationAskPasswordCallback
forall a.
GObject a =>
(a -> MountOperationAskPasswordCallback)
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback a -> MountOperationAskPasswordCallback
wrapped
wrapped'' <- C_MountOperationAskPasswordCallback
-> IO (FunPtr C_MountOperationAskPasswordCallback)
mk_MountOperationAskPasswordCallback C_MountOperationAskPasswordCallback
wrapped'
connectSignalFunPtr obj "ask-password" wrapped'' SignalConnectBefore Nothing
afterMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAskPasswordCallback) -> m SignalHandlerId
afterMountOperationAskPassword :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationAskPasswordCallback)
-> m SignalHandlerId
afterMountOperationAskPassword a
obj (?self::a) => MountOperationAskPasswordCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationAskPasswordCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationAskPasswordCallback
MountOperationAskPasswordCallback
cb
let wrapped' :: C_MountOperationAskPasswordCallback
wrapped' = (a -> MountOperationAskPasswordCallback)
-> C_MountOperationAskPasswordCallback
forall a.
GObject a =>
(a -> MountOperationAskPasswordCallback)
-> C_MountOperationAskPasswordCallback
wrap_MountOperationAskPasswordCallback a -> MountOperationAskPasswordCallback
wrapped
wrapped'' <- C_MountOperationAskPasswordCallback
-> IO (FunPtr C_MountOperationAskPasswordCallback)
mk_MountOperationAskPasswordCallback C_MountOperationAskPasswordCallback
wrapped'
connectSignalFunPtr obj "ask-password" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::ask-password"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:askPassword"})
#endif
type MountOperationAskQuestionCallback =
T.Text
-> [T.Text]
-> IO ()
type C_MountOperationAskQuestionCallback =
Ptr MountOperation ->
CString ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationAskQuestionCallback :: C_MountOperationAskQuestionCallback -> IO (FunPtr C_MountOperationAskQuestionCallback)
wrap_MountOperationAskQuestionCallback ::
GObject a => (a -> MountOperationAskQuestionCallback) ->
C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback :: forall a.
GObject a =>
(a -> MountOperationAskQuestionCallback)
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback a -> MountOperationAskQuestionCallback
gi'cb Ptr MountOperation
gi'selfPtr CString
message Ptr CString
choices Ptr ()
_ = do
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
choices' <- unpackZeroTerminatedUTF8CArray choices
B.ManagedPtr.withNewObject gi'selfPtr $ \MountOperation
gi'self -> a -> MountOperationAskQuestionCallback
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self) Text
message' [Text]
choices'
onMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAskQuestionCallback) -> m SignalHandlerId
onMountOperationAskQuestion :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationAskQuestionCallback)
-> m SignalHandlerId
onMountOperationAskQuestion a
obj (?self::a) => MountOperationAskQuestionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationAskQuestionCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationAskQuestionCallback
MountOperationAskQuestionCallback
cb
let wrapped' :: C_MountOperationAskQuestionCallback
wrapped' = (a -> MountOperationAskQuestionCallback)
-> C_MountOperationAskQuestionCallback
forall a.
GObject a =>
(a -> MountOperationAskQuestionCallback)
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback a -> MountOperationAskQuestionCallback
wrapped
wrapped'' <- C_MountOperationAskQuestionCallback
-> IO (FunPtr C_MountOperationAskQuestionCallback)
mk_MountOperationAskQuestionCallback C_MountOperationAskQuestionCallback
wrapped'
connectSignalFunPtr obj "ask-question" wrapped'' SignalConnectBefore Nothing
afterMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationAskQuestionCallback) -> m SignalHandlerId
afterMountOperationAskQuestion :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationAskQuestionCallback)
-> m SignalHandlerId
afterMountOperationAskQuestion a
obj (?self::a) => MountOperationAskQuestionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationAskQuestionCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationAskQuestionCallback
MountOperationAskQuestionCallback
cb
let wrapped' :: C_MountOperationAskQuestionCallback
wrapped' = (a -> MountOperationAskQuestionCallback)
-> C_MountOperationAskQuestionCallback
forall a.
GObject a =>
(a -> MountOperationAskQuestionCallback)
-> C_MountOperationAskQuestionCallback
wrap_MountOperationAskQuestionCallback a -> MountOperationAskQuestionCallback
wrapped
wrapped'' <- C_MountOperationAskQuestionCallback
-> IO (FunPtr C_MountOperationAskQuestionCallback)
mk_MountOperationAskQuestionCallback C_MountOperationAskQuestionCallback
wrapped'
connectSignalFunPtr obj "ask-question" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::ask-question"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:askQuestion"})
#endif
type MountOperationReplyCallback =
Gio.Enums.MountOperationResult
-> IO ()
type C_MountOperationReplyCallback =
Ptr MountOperation ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationReplyCallback :: C_MountOperationReplyCallback -> IO (FunPtr C_MountOperationReplyCallback)
wrap_MountOperationReplyCallback ::
GObject a => (a -> MountOperationReplyCallback) ->
C_MountOperationReplyCallback
wrap_MountOperationReplyCallback :: forall a.
GObject a =>
(a -> MountOperationReplyCallback) -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback a -> MountOperationReplyCallback
gi'cb Ptr MountOperation
gi'selfPtr CUInt
result_ Ptr ()
_ = 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_
Ptr MountOperation -> (MountOperation -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr MountOperation
gi'selfPtr ((MountOperation -> IO ()) -> IO ())
-> (MountOperation -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \MountOperation
gi'self -> a -> MountOperationReplyCallback
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self) MountOperationResult
result_'
onMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationReplyCallback) -> m SignalHandlerId
onMountOperationReply :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationReplyCallback) -> m SignalHandlerId
onMountOperationReply a
obj (?self::a) => MountOperationReplyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationReplyCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationReplyCallback
MountOperationReplyCallback
cb
let wrapped' :: C_MountOperationReplyCallback
wrapped' = (a -> MountOperationReplyCallback) -> C_MountOperationReplyCallback
forall a.
GObject a =>
(a -> MountOperationReplyCallback) -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback a -> MountOperationReplyCallback
wrapped
wrapped'' <- C_MountOperationReplyCallback
-> IO (FunPtr C_MountOperationReplyCallback)
mk_MountOperationReplyCallback C_MountOperationReplyCallback
wrapped'
connectSignalFunPtr obj "reply" wrapped'' SignalConnectBefore Nothing
afterMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationReplyCallback) -> m SignalHandlerId
afterMountOperationReply :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationReplyCallback) -> m SignalHandlerId
afterMountOperationReply a
obj (?self::a) => MountOperationReplyCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationReplyCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationReplyCallback
MountOperationReplyCallback
cb
let wrapped' :: C_MountOperationReplyCallback
wrapped' = (a -> MountOperationReplyCallback) -> C_MountOperationReplyCallback
forall a.
GObject a =>
(a -> MountOperationReplyCallback) -> C_MountOperationReplyCallback
wrap_MountOperationReplyCallback a -> MountOperationReplyCallback
wrapped
wrapped'' <- C_MountOperationReplyCallback
-> IO (FunPtr C_MountOperationReplyCallback)
mk_MountOperationReplyCallback C_MountOperationReplyCallback
wrapped'
connectSignalFunPtr obj "reply" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::reply"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:reply"})
#endif
type MountOperationShowProcessesCallback =
T.Text
-> [Int32]
-> [T.Text]
-> IO ()
type C_MountOperationShowProcessesCallback =
Ptr MountOperation ->
CString ->
Ptr (GArray Int32) ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowProcessesCallback :: C_MountOperationShowProcessesCallback -> IO (FunPtr C_MountOperationShowProcessesCallback)
wrap_MountOperationShowProcessesCallback ::
GObject a => (a -> MountOperationShowProcessesCallback) ->
C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback :: forall a.
GObject a =>
(a -> MountOperationShowProcessesCallback)
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback a -> MountOperationShowProcessesCallback
gi'cb Ptr MountOperation
gi'selfPtr CString
message Ptr (GArray Int32)
processes Ptr CString
choices Ptr ()
_ = do
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
processes' <- unpackGArray processes
choices' <- unpackZeroTerminatedUTF8CArray choices
B.ManagedPtr.withNewObject gi'selfPtr $ \MountOperation
gi'self -> a -> MountOperationShowProcessesCallback
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self) Text
message' [Int32]
processes' [Text]
choices'
onMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationShowProcessesCallback) -> m SignalHandlerId
onMountOperationShowProcesses :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationShowProcessesCallback)
-> m SignalHandlerId
onMountOperationShowProcesses a
obj (?self::a) => MountOperationShowProcessesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationShowProcessesCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationShowProcessesCallback
MountOperationShowProcessesCallback
cb
let wrapped' :: C_MountOperationShowProcessesCallback
wrapped' = (a -> MountOperationShowProcessesCallback)
-> C_MountOperationShowProcessesCallback
forall a.
GObject a =>
(a -> MountOperationShowProcessesCallback)
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback a -> MountOperationShowProcessesCallback
wrapped
wrapped'' <- C_MountOperationShowProcessesCallback
-> IO (FunPtr C_MountOperationShowProcessesCallback)
mk_MountOperationShowProcessesCallback C_MountOperationShowProcessesCallback
wrapped'
connectSignalFunPtr obj "show-processes" wrapped'' SignalConnectBefore Nothing
afterMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationShowProcessesCallback) -> m SignalHandlerId
afterMountOperationShowProcesses :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationShowProcessesCallback)
-> m SignalHandlerId
afterMountOperationShowProcesses a
obj (?self::a) => MountOperationShowProcessesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationShowProcessesCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationShowProcessesCallback
MountOperationShowProcessesCallback
cb
let wrapped' :: C_MountOperationShowProcessesCallback
wrapped' = (a -> MountOperationShowProcessesCallback)
-> C_MountOperationShowProcessesCallback
forall a.
GObject a =>
(a -> MountOperationShowProcessesCallback)
-> C_MountOperationShowProcessesCallback
wrap_MountOperationShowProcessesCallback a -> MountOperationShowProcessesCallback
wrapped
wrapped'' <- C_MountOperationShowProcessesCallback
-> IO (FunPtr C_MountOperationShowProcessesCallback)
mk_MountOperationShowProcessesCallback C_MountOperationShowProcessesCallback
wrapped'
connectSignalFunPtr obj "show-processes" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::show-processes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:showProcesses"})
#endif
type MountOperationShowUnmountProgressCallback =
T.Text
-> Int64
-> Int64
-> IO ()
type C_MountOperationShowUnmountProgressCallback =
Ptr MountOperation ->
CString ->
Int64 ->
Int64 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MountOperationShowUnmountProgressCallback :: C_MountOperationShowUnmountProgressCallback -> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
wrap_MountOperationShowUnmountProgressCallback ::
GObject a => (a -> MountOperationShowUnmountProgressCallback) ->
C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback :: forall a.
GObject a =>
(a -> MountOperationShowUnmountProgressCallback)
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback a -> MountOperationShowUnmountProgressCallback
gi'cb Ptr MountOperation
gi'selfPtr CString
message Int64
timeLeft Int64
bytesLeft Ptr ()
_ = do
message' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
message
B.ManagedPtr.withNewObject gi'selfPtr $ \MountOperation
gi'self -> a -> MountOperationShowUnmountProgressCallback
gi'cb (MountOperation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce MountOperation
gi'self) Text
message' Int64
timeLeft Int64
bytesLeft
onMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationShowUnmountProgressCallback) -> m SignalHandlerId
onMountOperationShowUnmountProgress :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationShowUnmountProgressCallback)
-> m SignalHandlerId
onMountOperationShowUnmountProgress a
obj (?self::a) => MountOperationShowUnmountProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationShowUnmountProgressCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationShowUnmountProgressCallback
MountOperationShowUnmountProgressCallback
cb
let wrapped' :: C_MountOperationShowUnmountProgressCallback
wrapped' = (a -> MountOperationShowUnmountProgressCallback)
-> C_MountOperationShowUnmountProgressCallback
forall a.
GObject a =>
(a -> MountOperationShowUnmountProgressCallback)
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback a -> MountOperationShowUnmountProgressCallback
wrapped
wrapped'' <- C_MountOperationShowUnmountProgressCallback
-> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
mk_MountOperationShowUnmountProgressCallback C_MountOperationShowUnmountProgressCallback
wrapped'
connectSignalFunPtr obj "show-unmount-progress" wrapped'' SignalConnectBefore Nothing
afterMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> ((?self :: a) => MountOperationShowUnmountProgressCallback) -> m SignalHandlerId
afterMountOperationShowUnmountProgress :: forall a (m :: * -> *).
(IsMountOperation a, MonadIO m) =>
a
-> ((?self::a) => MountOperationShowUnmountProgressCallback)
-> m SignalHandlerId
afterMountOperationShowUnmountProgress a
obj (?self::a) => MountOperationShowUnmountProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> MountOperationShowUnmountProgressCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => MountOperationShowUnmountProgressCallback
MountOperationShowUnmountProgressCallback
cb
let wrapped' :: C_MountOperationShowUnmountProgressCallback
wrapped' = (a -> MountOperationShowUnmountProgressCallback)
-> C_MountOperationShowUnmountProgressCallback
forall a.
GObject a =>
(a -> MountOperationShowUnmountProgressCallback)
-> C_MountOperationShowUnmountProgressCallback
wrap_MountOperationShowUnmountProgressCallback a -> MountOperationShowUnmountProgressCallback
wrapped
wrapped'' <- C_MountOperationShowUnmountProgressCallback
-> IO (FunPtr C_MountOperationShowUnmountProgressCallback)
mk_MountOperationShowUnmountProgressCallback C_MountOperationShowUnmountProgressCallback
wrapped'
connectSignalFunPtr obj "show-unmount-progress" wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation::show-unmount-progress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:signal:showUnmountProgress"})
#endif
getMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationAnonymous :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m Bool
getMountOperationAnonymous o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyBool o
obj String
"anonymous"
setMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationAnonymous :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Bool -> m ()
setMountOperationAnonymous o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"anonymous" Bool
val
constructMountOperationAnonymous :: (IsMountOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructMountOperationAnonymous :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructMountOperationAnonymous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"anonymous" Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.anonymous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:anonymous"
})
#endif
getMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> m Int32
getMountOperationChoice :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m Int32
getMountOperationChoice o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyInt32 o
obj String
"choice"
setMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> Int32 -> m ()
setMountOperationChoice :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Int32 -> m ()
setMountOperationChoice o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"choice" Int32
val
constructMountOperationChoice :: (IsMountOperation o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructMountOperationChoice :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructMountOperationChoice Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"choice" Int32
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.choice"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:choice"
})
#endif
getMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m (Maybe T.Text)
getMountOperationDomain :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m (Maybe Text)
getMountOperationDomain o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"domain"
setMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationDomain :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Text -> m ()
setMountOperationDomain o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"domain" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationDomain :: (IsMountOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructMountOperationDomain :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructMountOperationDomain Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"domain" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m ()
clearMountOperationDomain :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m ()
clearMountOperationDomain o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"domain" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data MountOperationDomainPropertyInfo
instance AttrInfo MountOperationDomainPropertyInfo where
type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text
type AttrTransferType MountOperationDomainPropertyInfo = T.Text
type AttrGetType MountOperationDomainPropertyInfo = (Maybe T.Text)
type AttrLabel MountOperationDomainPropertyInfo = "domain"
type AttrOrigin MountOperationDomainPropertyInfo = MountOperation
attrGet = getMountOperationDomain
attrSet = setMountOperationDomain
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationDomain
attrClear = clearMountOperationDomain
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.domain"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:domain"
})
#endif
getMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptHiddenVolume :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m Bool
getMountOperationIsTcryptHiddenVolume o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyBool o
obj String
"is-tcrypt-hidden-volume"
setMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptHiddenVolume :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Bool -> m ()
setMountOperationIsTcryptHiddenVolume o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"is-tcrypt-hidden-volume" Bool
val
constructMountOperationIsTcryptHiddenVolume :: (IsMountOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructMountOperationIsTcryptHiddenVolume :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructMountOperationIsTcryptHiddenVolume Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"is-tcrypt-hidden-volume" Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.isTcryptHiddenVolume"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:isTcryptHiddenVolume"
})
#endif
getMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool
getMountOperationIsTcryptSystemVolume :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m Bool
getMountOperationIsTcryptSystemVolume o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyBool o
obj String
"is-tcrypt-system-volume"
setMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()
setMountOperationIsTcryptSystemVolume :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Bool -> m ()
setMountOperationIsTcryptSystemVolume o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"is-tcrypt-system-volume" Bool
val
constructMountOperationIsTcryptSystemVolume :: (IsMountOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructMountOperationIsTcryptSystemVolume :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructMountOperationIsTcryptSystemVolume Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"is-tcrypt-system-volume" Bool
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.isTcryptSystemVolume"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:isTcryptSystemVolume"
})
#endif
getMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m (Maybe T.Text)
getMountOperationPassword :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m (Maybe Text)
getMountOperationPassword o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"password"
setMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationPassword :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Text -> m ()
setMountOperationPassword o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"password" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationPassword :: (IsMountOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructMountOperationPassword :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructMountOperationPassword Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"password" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m ()
clearMountOperationPassword :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m ()
clearMountOperationPassword o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"password" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data MountOperationPasswordPropertyInfo
instance AttrInfo MountOperationPasswordPropertyInfo where
type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text
type AttrTransferType MountOperationPasswordPropertyInfo = T.Text
type AttrGetType MountOperationPasswordPropertyInfo = (Maybe T.Text)
type AttrLabel MountOperationPasswordPropertyInfo = "password"
type AttrOrigin MountOperationPasswordPropertyInfo = MountOperation
attrGet = getMountOperationPassword
attrSet = setMountOperationPassword
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationPassword
attrClear = clearMountOperationPassword
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.password"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:password"
})
#endif
getMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> m Gio.Enums.PasswordSave
getMountOperationPasswordSave :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m PasswordSave
getMountOperationPasswordSave o
obj = IO PasswordSave -> m PasswordSave
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyEnum o
obj String
"password-save"
setMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> Gio.Enums.PasswordSave -> m ()
setMountOperationPasswordSave :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> PasswordSave -> m ()
setMountOperationPasswordSave o
obj PasswordSave
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> PasswordSave -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"password-save" PasswordSave
val
constructMountOperationPasswordSave :: (IsMountOperation o, MIO.MonadIO m) => Gio.Enums.PasswordSave -> m (GValueConstruct o)
constructMountOperationPasswordSave :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
PasswordSave -> m (GValueConstruct o)
constructMountOperationPasswordSave PasswordSave
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> PasswordSave -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"password-save" PasswordSave
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.passwordSave"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:passwordSave"
})
#endif
getMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> m Word32
getMountOperationPim :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m Word32
getMountOperationPim o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
B.Properties.getObjectPropertyUInt32 o
obj String
"pim"
setMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> Word32 -> m ()
setMountOperationPim :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Word32 -> m ()
setMountOperationPim o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"pim" Word32
val
constructMountOperationPim :: (IsMountOperation o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructMountOperationPim :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructMountOperationPim Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"pim" Word32
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.pim"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:pim"
})
#endif
getMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m (Maybe T.Text)
getMountOperationUsername :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m (Maybe Text)
getMountOperationUsername o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"username"
setMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()
setMountOperationUsername :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> Text -> m ()
setMountOperationUsername o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"username" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMountOperationUsername :: (IsMountOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructMountOperationUsername :: forall o (m :: * -> *).
(IsMountOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructMountOperationUsername Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"username" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m ()
clearMountOperationUsername :: forall (m :: * -> *) o.
(MonadIO m, IsMountOperation o) =>
o -> m ()
clearMountOperationUsername o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"username" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data MountOperationUsernamePropertyInfo
instance AttrInfo MountOperationUsernamePropertyInfo where
type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = IsMountOperation
type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text
type AttrTransferType MountOperationUsernamePropertyInfo = T.Text
type AttrGetType MountOperationUsernamePropertyInfo = (Maybe T.Text)
type AttrLabel MountOperationUsernamePropertyInfo = "username"
type AttrOrigin MountOperationUsernamePropertyInfo = MountOperation
attrGet = getMountOperationUsername
attrSet = setMountOperationUsername
attrTransfer _ v = do
return v
attrConstruct = constructMountOperationUsername
attrClear = clearMountOperationUsername
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.username"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#g:attr:username"
})
#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, DK.Type)])
#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, DK.Type)])
#endif
foreign import ccall "g_mount_operation_new" g_mount_operation_new ::
IO (Ptr MountOperation)
mountOperationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MountOperation
mountOperationNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m MountOperation
mountOperationNew = IO MountOperation -> m MountOperation
forall a. IO a -> m a
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
result <- IO (Ptr MountOperation)
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m Bool
mountOperationGetAnonymous a
op = IO Bool -> m Bool
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_anonymous op'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr op
return result'
#if defined(ENABLE_OVERLOADING)
data MountOperationGetAnonymousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetAnonymousMethodInfo a signature where
overloadedMethod = mountOperationGetAnonymous
instance O.OverloadedMethodInfo MountOperationGetAnonymousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetAnonymous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m Int32
mountOperationGetChoice a
op = IO Int32 -> m Int32
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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.OverloadedMethod MountOperationGetChoiceMethodInfo a signature where
overloadedMethod = mountOperationGetChoice
instance O.OverloadedMethodInfo MountOperationGetChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 (Maybe T.Text)
mountOperationGetDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m (Maybe Text)
mountOperationGetDomain a
op = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_domain op'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr op
return maybeResult
#if defined(ENABLE_OVERLOADING)
data MountOperationGetDomainMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetDomainMethodInfo a signature where
overloadedMethod = mountOperationGetDomain
instance O.OverloadedMethodInfo MountOperationGetDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m Bool
mountOperationGetIsTcryptHiddenVolume a
op = IO Bool -> m Bool
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_is_tcrypt_hidden_volume op'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr op
return result'
#if defined(ENABLE_OVERLOADING)
data MountOperationGetIsTcryptHiddenVolumeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetIsTcryptHiddenVolumeMethodInfo a signature where
overloadedMethod = mountOperationGetIsTcryptHiddenVolume
instance O.OverloadedMethodInfo MountOperationGetIsTcryptHiddenVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetIsTcryptHiddenVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m Bool
mountOperationGetIsTcryptSystemVolume a
op = IO Bool -> m Bool
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_is_tcrypt_system_volume op'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr op
return result'
#if defined(ENABLE_OVERLOADING)
data MountOperationGetIsTcryptSystemVolumeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetIsTcryptSystemVolumeMethodInfo a signature where
overloadedMethod = mountOperationGetIsTcryptSystemVolume
instance O.OverloadedMethodInfo MountOperationGetIsTcryptSystemVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetIsTcryptSystemVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 (Maybe T.Text)
mountOperationGetPassword :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m (Maybe Text)
mountOperationGetPassword a
op = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_password op'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr op
return maybeResult
#if defined(ENABLE_OVERLOADING)
data MountOperationGetPasswordMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetPasswordMethodInfo a signature where
overloadedMethod = mountOperationGetPassword
instance O.OverloadedMethodInfo MountOperationGetPasswordMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m PasswordSave
mountOperationGetPasswordSave a
op = IO PasswordSave -> m PasswordSave
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_password_save op'
let 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
touchManagedPtr op
return result'
#if defined(ENABLE_OVERLOADING)
data MountOperationGetPasswordSaveMethodInfo
instance (signature ~ (m Gio.Enums.PasswordSave), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetPasswordSaveMethodInfo a signature where
overloadedMethod = mountOperationGetPasswordSave
instance O.OverloadedMethodInfo MountOperationGetPasswordSaveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetPasswordSave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m Word32
mountOperationGetPim a
op = IO Word32 -> m Word32
forall a. IO a -> m a
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
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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.OverloadedMethod MountOperationGetPimMethodInfo a signature where
overloadedMethod = mountOperationGetPim
instance O.OverloadedMethodInfo MountOperationGetPimMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetPim",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 (Maybe T.Text)
mountOperationGetUsername :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> m (Maybe Text)
mountOperationGetUsername a
op = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
result <- g_mount_operation_get_username op'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr op
return maybeResult
#if defined(ENABLE_OVERLOADING)
data MountOperationGetUsernameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationGetUsernameMethodInfo a signature where
overloadedMethod = mountOperationGetUsername
instance O.OverloadedMethodInfo MountOperationGetUsernameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationGetUsername",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> MountOperationResult -> m ()
mountOperationReply a
op MountOperationResult
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let 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_
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.OverloadedMethod MountOperationReplyMethodInfo a signature where
overloadedMethod = mountOperationReply
instance O.OverloadedMethodInfo MountOperationReplyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationReply",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Bool -> m ()
mountOperationSetAnonymous a
op Bool
anonymous = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let anonymous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
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.OverloadedMethod MountOperationSetAnonymousMethodInfo a signature where
overloadedMethod = mountOperationSetAnonymous
instance O.OverloadedMethodInfo MountOperationSetAnonymousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetAnonymous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Int32 -> m ()
mountOperationSetChoice a
op Int32
choice = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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.OverloadedMethod MountOperationSetChoiceMethodInfo a signature where
overloadedMethod = mountOperationSetChoice
instance O.OverloadedMethodInfo MountOperationSetChoiceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetChoice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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
-> Maybe (T.Text)
-> m ()
mountOperationSetDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Maybe Text -> m ()
mountOperationSetDomain a
op Maybe Text
domain = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
maybeDomain <- case domain of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jDomain -> do
jDomain' <- Text -> IO CString
textToCString Text
jDomain
return jDomain'
g_mount_operation_set_domain op' maybeDomain
touchManagedPtr op
freeMem maybeDomain
return ()
#if defined(ENABLE_OVERLOADING)
data MountOperationSetDomainMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationSetDomainMethodInfo a signature where
overloadedMethod = mountOperationSetDomain
instance O.OverloadedMethodInfo MountOperationSetDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Bool -> m ()
mountOperationSetIsTcryptHiddenVolume a
op Bool
hiddenVolume = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let hiddenVolume' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
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.OverloadedMethod MountOperationSetIsTcryptHiddenVolumeMethodInfo a signature where
overloadedMethod = mountOperationSetIsTcryptHiddenVolume
instance O.OverloadedMethodInfo MountOperationSetIsTcryptHiddenVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetIsTcryptHiddenVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Bool -> m ()
mountOperationSetIsTcryptSystemVolume a
op Bool
systemVolume = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let systemVolume' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
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.OverloadedMethod MountOperationSetIsTcryptSystemVolumeMethodInfo a signature where
overloadedMethod = mountOperationSetIsTcryptSystemVolume
instance O.OverloadedMethodInfo MountOperationSetIsTcryptSystemVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetIsTcryptSystemVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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
-> Maybe (T.Text)
-> m ()
mountOperationSetPassword :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Maybe Text -> m ()
mountOperationSetPassword a
op Maybe Text
password = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
maybePassword <- case password of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jPassword -> do
jPassword' <- Text -> IO CString
textToCString Text
jPassword
return jPassword'
g_mount_operation_set_password op' maybePassword
touchManagedPtr op
freeMem maybePassword
return ()
#if defined(ENABLE_OVERLOADING)
data MountOperationSetPasswordMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationSetPasswordMethodInfo a signature where
overloadedMethod = mountOperationSetPassword
instance O.OverloadedMethodInfo MountOperationSetPasswordMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> PasswordSave -> m ()
mountOperationSetPasswordSave a
op PasswordSave
save = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let 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
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.OverloadedMethod MountOperationSetPasswordSaveMethodInfo a signature where
overloadedMethod = mountOperationSetPasswordSave
instance O.OverloadedMethodInfo MountOperationSetPasswordSaveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetPasswordSave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Word32 -> m ()
mountOperationSetPim a
op Word32
pim = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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.OverloadedMethod MountOperationSetPimMethodInfo a signature where
overloadedMethod = mountOperationSetPim
instance O.OverloadedMethodInfo MountOperationSetPimMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetPim",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v: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
-> Maybe (T.Text)
-> m ()
mountOperationSetUsername :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMountOperation a) =>
a -> Maybe Text -> m ()
mountOperationSetUsername a
op Maybe Text
username = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
op' <- a -> IO (Ptr MountOperation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
maybeUsername <- case username of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jUsername -> do
jUsername' <- Text -> IO CString
textToCString Text
jUsername
return jUsername'
g_mount_operation_set_username op' maybeUsername
touchManagedPtr op
freeMem maybeUsername
return ()
#if defined(ENABLE_OVERLOADING)
data MountOperationSetUsernameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMountOperation a) => O.OverloadedMethod MountOperationSetUsernameMethodInfo a signature where
overloadedMethod = mountOperationSetUsername
instance O.OverloadedMethodInfo MountOperationSetUsernameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.MountOperation.mountOperationSetUsername",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-MountOperation.html#v:mountOperationSetUsername"
})
#endif