module GI.Gio.Objects.VolumeMonitor
(
VolumeMonitor(..) ,
IsVolumeMonitor ,
toVolumeMonitor ,
noVolumeMonitor ,
volumeMonitorAdoptOrphanMount ,
volumeMonitorGet ,
VolumeMonitorGetConnectedDrivesMethodInfo,
volumeMonitorGetConnectedDrives ,
VolumeMonitorGetMountForUuidMethodInfo ,
volumeMonitorGetMountForUuid ,
VolumeMonitorGetMountsMethodInfo ,
volumeMonitorGetMounts ,
VolumeMonitorGetVolumeForUuidMethodInfo ,
volumeMonitorGetVolumeForUuid ,
VolumeMonitorGetVolumesMethodInfo ,
volumeMonitorGetVolumes ,
C_VolumeMonitorDriveChangedCallback ,
VolumeMonitorDriveChangedCallback ,
VolumeMonitorDriveChangedSignalInfo ,
afterVolumeMonitorDriveChanged ,
genClosure_VolumeMonitorDriveChanged ,
mk_VolumeMonitorDriveChangedCallback ,
noVolumeMonitorDriveChangedCallback ,
onVolumeMonitorDriveChanged ,
wrap_VolumeMonitorDriveChangedCallback ,
C_VolumeMonitorDriveConnectedCallback ,
VolumeMonitorDriveConnectedCallback ,
VolumeMonitorDriveConnectedSignalInfo ,
afterVolumeMonitorDriveConnected ,
genClosure_VolumeMonitorDriveConnected ,
mk_VolumeMonitorDriveConnectedCallback ,
noVolumeMonitorDriveConnectedCallback ,
onVolumeMonitorDriveConnected ,
wrap_VolumeMonitorDriveConnectedCallback,
C_VolumeMonitorDriveDisconnectedCallback,
VolumeMonitorDriveDisconnectedCallback ,
VolumeMonitorDriveDisconnectedSignalInfo,
afterVolumeMonitorDriveDisconnected ,
genClosure_VolumeMonitorDriveDisconnected,
mk_VolumeMonitorDriveDisconnectedCallback,
noVolumeMonitorDriveDisconnectedCallback,
onVolumeMonitorDriveDisconnected ,
wrap_VolumeMonitorDriveDisconnectedCallback,
C_VolumeMonitorDriveEjectButtonCallback ,
VolumeMonitorDriveEjectButtonCallback ,
VolumeMonitorDriveEjectButtonSignalInfo ,
afterVolumeMonitorDriveEjectButton ,
genClosure_VolumeMonitorDriveEjectButton,
mk_VolumeMonitorDriveEjectButtonCallback,
noVolumeMonitorDriveEjectButtonCallback ,
onVolumeMonitorDriveEjectButton ,
wrap_VolumeMonitorDriveEjectButtonCallback,
C_VolumeMonitorDriveStopButtonCallback ,
VolumeMonitorDriveStopButtonCallback ,
VolumeMonitorDriveStopButtonSignalInfo ,
afterVolumeMonitorDriveStopButton ,
genClosure_VolumeMonitorDriveStopButton ,
mk_VolumeMonitorDriveStopButtonCallback ,
noVolumeMonitorDriveStopButtonCallback ,
onVolumeMonitorDriveStopButton ,
wrap_VolumeMonitorDriveStopButtonCallback,
C_VolumeMonitorMountAddedCallback ,
VolumeMonitorMountAddedCallback ,
VolumeMonitorMountAddedSignalInfo ,
afterVolumeMonitorMountAdded ,
genClosure_VolumeMonitorMountAdded ,
mk_VolumeMonitorMountAddedCallback ,
noVolumeMonitorMountAddedCallback ,
onVolumeMonitorMountAdded ,
wrap_VolumeMonitorMountAddedCallback ,
C_VolumeMonitorMountChangedCallback ,
VolumeMonitorMountChangedCallback ,
VolumeMonitorMountChangedSignalInfo ,
afterVolumeMonitorMountChanged ,
genClosure_VolumeMonitorMountChanged ,
mk_VolumeMonitorMountChangedCallback ,
noVolumeMonitorMountChangedCallback ,
onVolumeMonitorMountChanged ,
wrap_VolumeMonitorMountChangedCallback ,
C_VolumeMonitorMountPreUnmountCallback ,
VolumeMonitorMountPreUnmountCallback ,
VolumeMonitorMountPreUnmountSignalInfo ,
afterVolumeMonitorMountPreUnmount ,
genClosure_VolumeMonitorMountPreUnmount ,
mk_VolumeMonitorMountPreUnmountCallback ,
noVolumeMonitorMountPreUnmountCallback ,
onVolumeMonitorMountPreUnmount ,
wrap_VolumeMonitorMountPreUnmountCallback,
C_VolumeMonitorMountRemovedCallback ,
VolumeMonitorMountRemovedCallback ,
VolumeMonitorMountRemovedSignalInfo ,
afterVolumeMonitorMountRemoved ,
genClosure_VolumeMonitorMountRemoved ,
mk_VolumeMonitorMountRemovedCallback ,
noVolumeMonitorMountRemovedCallback ,
onVolumeMonitorMountRemoved ,
wrap_VolumeMonitorMountRemovedCallback ,
C_VolumeMonitorVolumeAddedCallback ,
VolumeMonitorVolumeAddedCallback ,
VolumeMonitorVolumeAddedSignalInfo ,
afterVolumeMonitorVolumeAdded ,
genClosure_VolumeMonitorVolumeAdded ,
mk_VolumeMonitorVolumeAddedCallback ,
noVolumeMonitorVolumeAddedCallback ,
onVolumeMonitorVolumeAdded ,
wrap_VolumeMonitorVolumeAddedCallback ,
C_VolumeMonitorVolumeChangedCallback ,
VolumeMonitorVolumeChangedCallback ,
VolumeMonitorVolumeChangedSignalInfo ,
afterVolumeMonitorVolumeChanged ,
genClosure_VolumeMonitorVolumeChanged ,
mk_VolumeMonitorVolumeChangedCallback ,
noVolumeMonitorVolumeChangedCallback ,
onVolumeMonitorVolumeChanged ,
wrap_VolumeMonitorVolumeChangedCallback ,
C_VolumeMonitorVolumeRemovedCallback ,
VolumeMonitorVolumeRemovedCallback ,
VolumeMonitorVolumeRemovedSignalInfo ,
afterVolumeMonitorVolumeRemoved ,
genClosure_VolumeMonitorVolumeRemoved ,
mk_VolumeMonitorVolumeRemovedCallback ,
noVolumeMonitorVolumeRemovedCallback ,
onVolumeMonitorVolumeRemoved ,
wrap_VolumeMonitorVolumeRemovedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Drive as Gio.Drive
import qualified GI.Gio.Interfaces.Mount as Gio.Mount
import qualified GI.Gio.Interfaces.Volume as Gio.Volume
newtype VolumeMonitor = VolumeMonitor (ManagedPtr VolumeMonitor)
foreign import ccall "g_volume_monitor_get_type"
c_g_volume_monitor_get_type :: IO GType
instance GObject VolumeMonitor where
gobjectType _ = c_g_volume_monitor_get_type
class GObject o => IsVolumeMonitor o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError VolumeMonitor a) =>
IsVolumeMonitor a
#endif
instance IsVolumeMonitor VolumeMonitor
instance GObject.Object.IsObject VolumeMonitor
toVolumeMonitor :: IsVolumeMonitor o => o -> IO VolumeMonitor
toVolumeMonitor = unsafeCastTo VolumeMonitor
noVolumeMonitor :: Maybe VolumeMonitor
noVolumeMonitor = Nothing
type family ResolveVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveVolumeMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveVolumeMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveVolumeMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveVolumeMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveVolumeMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveVolumeMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveVolumeMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveVolumeMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveVolumeMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveVolumeMonitorMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveVolumeMonitorMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveVolumeMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveVolumeMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveVolumeMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveVolumeMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveVolumeMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveVolumeMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo
ResolveVolumeMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo
ResolveVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo
ResolveVolumeMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveVolumeMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo
ResolveVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo
ResolveVolumeMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveVolumeMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveVolumeMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, O.MethodInfo info VolumeMonitor p) => O.IsLabelProxy t (VolumeMonitor -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, O.MethodInfo info VolumeMonitor p) => O.IsLabel t (VolumeMonitor -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type VolumeMonitorDriveChangedCallback =
Gio.Drive.Drive ->
IO ()
noVolumeMonitorDriveChangedCallback :: Maybe VolumeMonitorDriveChangedCallback
noVolumeMonitorDriveChangedCallback = Nothing
type C_VolumeMonitorDriveChangedCallback =
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorDriveChangedCallback :: C_VolumeMonitorDriveChangedCallback -> IO (FunPtr C_VolumeMonitorDriveChangedCallback)
genClosure_VolumeMonitorDriveChanged :: VolumeMonitorDriveChangedCallback -> IO Closure
genClosure_VolumeMonitorDriveChanged cb = do
let cb' = wrap_VolumeMonitorDriveChangedCallback cb
mk_VolumeMonitorDriveChangedCallback cb' >>= newCClosure
wrap_VolumeMonitorDriveChangedCallback ::
VolumeMonitorDriveChangedCallback ->
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
wrap_VolumeMonitorDriveChangedCallback _cb _ drive _ = do
drive' <- (newObject Gio.Drive.Drive) drive
_cb drive'
onVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId
onVolumeMonitorDriveChanged obj cb = liftIO $ connectVolumeMonitorDriveChanged obj cb SignalConnectBefore
afterVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId
afterVolumeMonitorDriveChanged obj cb = connectVolumeMonitorDriveChanged obj cb SignalConnectAfter
connectVolumeMonitorDriveChanged :: (GObject a, MonadIO m) =>
a -> VolumeMonitorDriveChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorDriveChanged obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorDriveChangedCallback cb
cb'' <- mk_VolumeMonitorDriveChangedCallback cb'
connectSignalFunPtr obj "drive-changed" cb'' after
type VolumeMonitorDriveConnectedCallback =
Gio.Drive.Drive ->
IO ()
noVolumeMonitorDriveConnectedCallback :: Maybe VolumeMonitorDriveConnectedCallback
noVolumeMonitorDriveConnectedCallback = Nothing
type C_VolumeMonitorDriveConnectedCallback =
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorDriveConnectedCallback :: C_VolumeMonitorDriveConnectedCallback -> IO (FunPtr C_VolumeMonitorDriveConnectedCallback)
genClosure_VolumeMonitorDriveConnected :: VolumeMonitorDriveConnectedCallback -> IO Closure
genClosure_VolumeMonitorDriveConnected cb = do
let cb' = wrap_VolumeMonitorDriveConnectedCallback cb
mk_VolumeMonitorDriveConnectedCallback cb' >>= newCClosure
wrap_VolumeMonitorDriveConnectedCallback ::
VolumeMonitorDriveConnectedCallback ->
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
wrap_VolumeMonitorDriveConnectedCallback _cb _ drive _ = do
drive' <- (newObject Gio.Drive.Drive) drive
_cb drive'
onVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId
onVolumeMonitorDriveConnected obj cb = liftIO $ connectVolumeMonitorDriveConnected obj cb SignalConnectBefore
afterVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId
afterVolumeMonitorDriveConnected obj cb = connectVolumeMonitorDriveConnected obj cb SignalConnectAfter
connectVolumeMonitorDriveConnected :: (GObject a, MonadIO m) =>
a -> VolumeMonitorDriveConnectedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorDriveConnected obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorDriveConnectedCallback cb
cb'' <- mk_VolumeMonitorDriveConnectedCallback cb'
connectSignalFunPtr obj "drive-connected" cb'' after
type VolumeMonitorDriveDisconnectedCallback =
Gio.Drive.Drive ->
IO ()
noVolumeMonitorDriveDisconnectedCallback :: Maybe VolumeMonitorDriveDisconnectedCallback
noVolumeMonitorDriveDisconnectedCallback = Nothing
type C_VolumeMonitorDriveDisconnectedCallback =
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorDriveDisconnectedCallback :: C_VolumeMonitorDriveDisconnectedCallback -> IO (FunPtr C_VolumeMonitorDriveDisconnectedCallback)
genClosure_VolumeMonitorDriveDisconnected :: VolumeMonitorDriveDisconnectedCallback -> IO Closure
genClosure_VolumeMonitorDriveDisconnected cb = do
let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb
mk_VolumeMonitorDriveDisconnectedCallback cb' >>= newCClosure
wrap_VolumeMonitorDriveDisconnectedCallback ::
VolumeMonitorDriveDisconnectedCallback ->
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
wrap_VolumeMonitorDriveDisconnectedCallback _cb _ drive _ = do
drive' <- (newObject Gio.Drive.Drive) drive
_cb drive'
onVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId
onVolumeMonitorDriveDisconnected obj cb = liftIO $ connectVolumeMonitorDriveDisconnected obj cb SignalConnectBefore
afterVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId
afterVolumeMonitorDriveDisconnected obj cb = connectVolumeMonitorDriveDisconnected obj cb SignalConnectAfter
connectVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) =>
a -> VolumeMonitorDriveDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorDriveDisconnected obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb
cb'' <- mk_VolumeMonitorDriveDisconnectedCallback cb'
connectSignalFunPtr obj "drive-disconnected" cb'' after
type VolumeMonitorDriveEjectButtonCallback =
Gio.Drive.Drive ->
IO ()
noVolumeMonitorDriveEjectButtonCallback :: Maybe VolumeMonitorDriveEjectButtonCallback
noVolumeMonitorDriveEjectButtonCallback = Nothing
type C_VolumeMonitorDriveEjectButtonCallback =
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorDriveEjectButtonCallback :: C_VolumeMonitorDriveEjectButtonCallback -> IO (FunPtr C_VolumeMonitorDriveEjectButtonCallback)
genClosure_VolumeMonitorDriveEjectButton :: VolumeMonitorDriveEjectButtonCallback -> IO Closure
genClosure_VolumeMonitorDriveEjectButton cb = do
let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb
mk_VolumeMonitorDriveEjectButtonCallback cb' >>= newCClosure
wrap_VolumeMonitorDriveEjectButtonCallback ::
VolumeMonitorDriveEjectButtonCallback ->
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
wrap_VolumeMonitorDriveEjectButtonCallback _cb _ drive _ = do
drive' <- (newObject Gio.Drive.Drive) drive
_cb drive'
onVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId
onVolumeMonitorDriveEjectButton obj cb = liftIO $ connectVolumeMonitorDriveEjectButton obj cb SignalConnectBefore
afterVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId
afterVolumeMonitorDriveEjectButton obj cb = connectVolumeMonitorDriveEjectButton obj cb SignalConnectAfter
connectVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) =>
a -> VolumeMonitorDriveEjectButtonCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorDriveEjectButton obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb
cb'' <- mk_VolumeMonitorDriveEjectButtonCallback cb'
connectSignalFunPtr obj "drive-eject-button" cb'' after
type VolumeMonitorDriveStopButtonCallback =
Gio.Drive.Drive ->
IO ()
noVolumeMonitorDriveStopButtonCallback :: Maybe VolumeMonitorDriveStopButtonCallback
noVolumeMonitorDriveStopButtonCallback = Nothing
type C_VolumeMonitorDriveStopButtonCallback =
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorDriveStopButtonCallback :: C_VolumeMonitorDriveStopButtonCallback -> IO (FunPtr C_VolumeMonitorDriveStopButtonCallback)
genClosure_VolumeMonitorDriveStopButton :: VolumeMonitorDriveStopButtonCallback -> IO Closure
genClosure_VolumeMonitorDriveStopButton cb = do
let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb
mk_VolumeMonitorDriveStopButtonCallback cb' >>= newCClosure
wrap_VolumeMonitorDriveStopButtonCallback ::
VolumeMonitorDriveStopButtonCallback ->
Ptr () ->
Ptr Gio.Drive.Drive ->
Ptr () ->
IO ()
wrap_VolumeMonitorDriveStopButtonCallback _cb _ drive _ = do
drive' <- (newObject Gio.Drive.Drive) drive
_cb drive'
onVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId
onVolumeMonitorDriveStopButton obj cb = liftIO $ connectVolumeMonitorDriveStopButton obj cb SignalConnectBefore
afterVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId
afterVolumeMonitorDriveStopButton obj cb = connectVolumeMonitorDriveStopButton obj cb SignalConnectAfter
connectVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) =>
a -> VolumeMonitorDriveStopButtonCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorDriveStopButton obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb
cb'' <- mk_VolumeMonitorDriveStopButtonCallback cb'
connectSignalFunPtr obj "drive-stop-button" cb'' after
type VolumeMonitorMountAddedCallback =
Gio.Mount.Mount ->
IO ()
noVolumeMonitorMountAddedCallback :: Maybe VolumeMonitorMountAddedCallback
noVolumeMonitorMountAddedCallback = Nothing
type C_VolumeMonitorMountAddedCallback =
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorMountAddedCallback :: C_VolumeMonitorMountAddedCallback -> IO (FunPtr C_VolumeMonitorMountAddedCallback)
genClosure_VolumeMonitorMountAdded :: VolumeMonitorMountAddedCallback -> IO Closure
genClosure_VolumeMonitorMountAdded cb = do
let cb' = wrap_VolumeMonitorMountAddedCallback cb
mk_VolumeMonitorMountAddedCallback cb' >>= newCClosure
wrap_VolumeMonitorMountAddedCallback ::
VolumeMonitorMountAddedCallback ->
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
wrap_VolumeMonitorMountAddedCallback _cb _ mount _ = do
mount' <- (newObject Gio.Mount.Mount) mount
_cb mount'
onVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId
onVolumeMonitorMountAdded obj cb = liftIO $ connectVolumeMonitorMountAdded obj cb SignalConnectBefore
afterVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId
afterVolumeMonitorMountAdded obj cb = connectVolumeMonitorMountAdded obj cb SignalConnectAfter
connectVolumeMonitorMountAdded :: (GObject a, MonadIO m) =>
a -> VolumeMonitorMountAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorMountAdded obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorMountAddedCallback cb
cb'' <- mk_VolumeMonitorMountAddedCallback cb'
connectSignalFunPtr obj "mount-added" cb'' after
type VolumeMonitorMountChangedCallback =
Gio.Mount.Mount ->
IO ()
noVolumeMonitorMountChangedCallback :: Maybe VolumeMonitorMountChangedCallback
noVolumeMonitorMountChangedCallback = Nothing
type C_VolumeMonitorMountChangedCallback =
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorMountChangedCallback :: C_VolumeMonitorMountChangedCallback -> IO (FunPtr C_VolumeMonitorMountChangedCallback)
genClosure_VolumeMonitorMountChanged :: VolumeMonitorMountChangedCallback -> IO Closure
genClosure_VolumeMonitorMountChanged cb = do
let cb' = wrap_VolumeMonitorMountChangedCallback cb
mk_VolumeMonitorMountChangedCallback cb' >>= newCClosure
wrap_VolumeMonitorMountChangedCallback ::
VolumeMonitorMountChangedCallback ->
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
wrap_VolumeMonitorMountChangedCallback _cb _ mount _ = do
mount' <- (newObject Gio.Mount.Mount) mount
_cb mount'
onVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId
onVolumeMonitorMountChanged obj cb = liftIO $ connectVolumeMonitorMountChanged obj cb SignalConnectBefore
afterVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId
afterVolumeMonitorMountChanged obj cb = connectVolumeMonitorMountChanged obj cb SignalConnectAfter
connectVolumeMonitorMountChanged :: (GObject a, MonadIO m) =>
a -> VolumeMonitorMountChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorMountChanged obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorMountChangedCallback cb
cb'' <- mk_VolumeMonitorMountChangedCallback cb'
connectSignalFunPtr obj "mount-changed" cb'' after
type VolumeMonitorMountPreUnmountCallback =
Gio.Mount.Mount ->
IO ()
noVolumeMonitorMountPreUnmountCallback :: Maybe VolumeMonitorMountPreUnmountCallback
noVolumeMonitorMountPreUnmountCallback = Nothing
type C_VolumeMonitorMountPreUnmountCallback =
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorMountPreUnmountCallback :: C_VolumeMonitorMountPreUnmountCallback -> IO (FunPtr C_VolumeMonitorMountPreUnmountCallback)
genClosure_VolumeMonitorMountPreUnmount :: VolumeMonitorMountPreUnmountCallback -> IO Closure
genClosure_VolumeMonitorMountPreUnmount cb = do
let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb
mk_VolumeMonitorMountPreUnmountCallback cb' >>= newCClosure
wrap_VolumeMonitorMountPreUnmountCallback ::
VolumeMonitorMountPreUnmountCallback ->
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
wrap_VolumeMonitorMountPreUnmountCallback _cb _ mount _ = do
mount' <- (newObject Gio.Mount.Mount) mount
_cb mount'
onVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId
onVolumeMonitorMountPreUnmount obj cb = liftIO $ connectVolumeMonitorMountPreUnmount obj cb SignalConnectBefore
afterVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId
afterVolumeMonitorMountPreUnmount obj cb = connectVolumeMonitorMountPreUnmount obj cb SignalConnectAfter
connectVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) =>
a -> VolumeMonitorMountPreUnmountCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorMountPreUnmount obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb
cb'' <- mk_VolumeMonitorMountPreUnmountCallback cb'
connectSignalFunPtr obj "mount-pre-unmount" cb'' after
type VolumeMonitorMountRemovedCallback =
Gio.Mount.Mount ->
IO ()
noVolumeMonitorMountRemovedCallback :: Maybe VolumeMonitorMountRemovedCallback
noVolumeMonitorMountRemovedCallback = Nothing
type C_VolumeMonitorMountRemovedCallback =
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorMountRemovedCallback :: C_VolumeMonitorMountRemovedCallback -> IO (FunPtr C_VolumeMonitorMountRemovedCallback)
genClosure_VolumeMonitorMountRemoved :: VolumeMonitorMountRemovedCallback -> IO Closure
genClosure_VolumeMonitorMountRemoved cb = do
let cb' = wrap_VolumeMonitorMountRemovedCallback cb
mk_VolumeMonitorMountRemovedCallback cb' >>= newCClosure
wrap_VolumeMonitorMountRemovedCallback ::
VolumeMonitorMountRemovedCallback ->
Ptr () ->
Ptr Gio.Mount.Mount ->
Ptr () ->
IO ()
wrap_VolumeMonitorMountRemovedCallback _cb _ mount _ = do
mount' <- (newObject Gio.Mount.Mount) mount
_cb mount'
onVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId
onVolumeMonitorMountRemoved obj cb = liftIO $ connectVolumeMonitorMountRemoved obj cb SignalConnectBefore
afterVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId
afterVolumeMonitorMountRemoved obj cb = connectVolumeMonitorMountRemoved obj cb SignalConnectAfter
connectVolumeMonitorMountRemoved :: (GObject a, MonadIO m) =>
a -> VolumeMonitorMountRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorMountRemoved obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorMountRemovedCallback cb
cb'' <- mk_VolumeMonitorMountRemovedCallback cb'
connectSignalFunPtr obj "mount-removed" cb'' after
type VolumeMonitorVolumeAddedCallback =
Gio.Volume.Volume ->
IO ()
noVolumeMonitorVolumeAddedCallback :: Maybe VolumeMonitorVolumeAddedCallback
noVolumeMonitorVolumeAddedCallback = Nothing
type C_VolumeMonitorVolumeAddedCallback =
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorVolumeAddedCallback :: C_VolumeMonitorVolumeAddedCallback -> IO (FunPtr C_VolumeMonitorVolumeAddedCallback)
genClosure_VolumeMonitorVolumeAdded :: VolumeMonitorVolumeAddedCallback -> IO Closure
genClosure_VolumeMonitorVolumeAdded cb = do
let cb' = wrap_VolumeMonitorVolumeAddedCallback cb
mk_VolumeMonitorVolumeAddedCallback cb' >>= newCClosure
wrap_VolumeMonitorVolumeAddedCallback ::
VolumeMonitorVolumeAddedCallback ->
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
wrap_VolumeMonitorVolumeAddedCallback _cb _ volume _ = do
volume' <- (newObject Gio.Volume.Volume) volume
_cb volume'
onVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId
onVolumeMonitorVolumeAdded obj cb = liftIO $ connectVolumeMonitorVolumeAdded obj cb SignalConnectBefore
afterVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId
afterVolumeMonitorVolumeAdded obj cb = connectVolumeMonitorVolumeAdded obj cb SignalConnectAfter
connectVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) =>
a -> VolumeMonitorVolumeAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorVolumeAdded obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorVolumeAddedCallback cb
cb'' <- mk_VolumeMonitorVolumeAddedCallback cb'
connectSignalFunPtr obj "volume-added" cb'' after
type VolumeMonitorVolumeChangedCallback =
Gio.Volume.Volume ->
IO ()
noVolumeMonitorVolumeChangedCallback :: Maybe VolumeMonitorVolumeChangedCallback
noVolumeMonitorVolumeChangedCallback = Nothing
type C_VolumeMonitorVolumeChangedCallback =
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorVolumeChangedCallback :: C_VolumeMonitorVolumeChangedCallback -> IO (FunPtr C_VolumeMonitorVolumeChangedCallback)
genClosure_VolumeMonitorVolumeChanged :: VolumeMonitorVolumeChangedCallback -> IO Closure
genClosure_VolumeMonitorVolumeChanged cb = do
let cb' = wrap_VolumeMonitorVolumeChangedCallback cb
mk_VolumeMonitorVolumeChangedCallback cb' >>= newCClosure
wrap_VolumeMonitorVolumeChangedCallback ::
VolumeMonitorVolumeChangedCallback ->
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
wrap_VolumeMonitorVolumeChangedCallback _cb _ volume _ = do
volume' <- (newObject Gio.Volume.Volume) volume
_cb volume'
onVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId
onVolumeMonitorVolumeChanged obj cb = liftIO $ connectVolumeMonitorVolumeChanged obj cb SignalConnectBefore
afterVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId
afterVolumeMonitorVolumeChanged obj cb = connectVolumeMonitorVolumeChanged obj cb SignalConnectAfter
connectVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) =>
a -> VolumeMonitorVolumeChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorVolumeChanged obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorVolumeChangedCallback cb
cb'' <- mk_VolumeMonitorVolumeChangedCallback cb'
connectSignalFunPtr obj "volume-changed" cb'' after
type VolumeMonitorVolumeRemovedCallback =
Gio.Volume.Volume ->
IO ()
noVolumeMonitorVolumeRemovedCallback :: Maybe VolumeMonitorVolumeRemovedCallback
noVolumeMonitorVolumeRemovedCallback = Nothing
type C_VolumeMonitorVolumeRemovedCallback =
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_VolumeMonitorVolumeRemovedCallback :: C_VolumeMonitorVolumeRemovedCallback -> IO (FunPtr C_VolumeMonitorVolumeRemovedCallback)
genClosure_VolumeMonitorVolumeRemoved :: VolumeMonitorVolumeRemovedCallback -> IO Closure
genClosure_VolumeMonitorVolumeRemoved cb = do
let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb
mk_VolumeMonitorVolumeRemovedCallback cb' >>= newCClosure
wrap_VolumeMonitorVolumeRemovedCallback ::
VolumeMonitorVolumeRemovedCallback ->
Ptr () ->
Ptr Gio.Volume.Volume ->
Ptr () ->
IO ()
wrap_VolumeMonitorVolumeRemovedCallback _cb _ volume _ = do
volume' <- (newObject Gio.Volume.Volume) volume
_cb volume'
onVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId
onVolumeMonitorVolumeRemoved obj cb = liftIO $ connectVolumeMonitorVolumeRemoved obj cb SignalConnectBefore
afterVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId
afterVolumeMonitorVolumeRemoved obj cb = connectVolumeMonitorVolumeRemoved obj cb SignalConnectAfter
connectVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) =>
a -> VolumeMonitorVolumeRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectVolumeMonitorVolumeRemoved obj cb after = liftIO $ do
let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb
cb'' <- mk_VolumeMonitorVolumeRemovedCallback cb'
connectSignalFunPtr obj "volume-removed" cb'' after
instance O.HasAttributeList VolumeMonitor
type instance O.AttributeList VolumeMonitor = VolumeMonitorAttributeList
type VolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)])
data VolumeMonitorDriveChangedSignalInfo
instance SignalInfo VolumeMonitorDriveChangedSignalInfo where
type HaskellCallbackType VolumeMonitorDriveChangedSignalInfo = VolumeMonitorDriveChangedCallback
connectSignal _ = connectVolumeMonitorDriveChanged
data VolumeMonitorDriveConnectedSignalInfo
instance SignalInfo VolumeMonitorDriveConnectedSignalInfo where
type HaskellCallbackType VolumeMonitorDriveConnectedSignalInfo = VolumeMonitorDriveConnectedCallback
connectSignal _ = connectVolumeMonitorDriveConnected
data VolumeMonitorDriveDisconnectedSignalInfo
instance SignalInfo VolumeMonitorDriveDisconnectedSignalInfo where
type HaskellCallbackType VolumeMonitorDriveDisconnectedSignalInfo = VolumeMonitorDriveDisconnectedCallback
connectSignal _ = connectVolumeMonitorDriveDisconnected
data VolumeMonitorDriveEjectButtonSignalInfo
instance SignalInfo VolumeMonitorDriveEjectButtonSignalInfo where
type HaskellCallbackType VolumeMonitorDriveEjectButtonSignalInfo = VolumeMonitorDriveEjectButtonCallback
connectSignal _ = connectVolumeMonitorDriveEjectButton
data VolumeMonitorDriveStopButtonSignalInfo
instance SignalInfo VolumeMonitorDriveStopButtonSignalInfo where
type HaskellCallbackType VolumeMonitorDriveStopButtonSignalInfo = VolumeMonitorDriveStopButtonCallback
connectSignal _ = connectVolumeMonitorDriveStopButton
data VolumeMonitorMountAddedSignalInfo
instance SignalInfo VolumeMonitorMountAddedSignalInfo where
type HaskellCallbackType VolumeMonitorMountAddedSignalInfo = VolumeMonitorMountAddedCallback
connectSignal _ = connectVolumeMonitorMountAdded
data VolumeMonitorMountChangedSignalInfo
instance SignalInfo VolumeMonitorMountChangedSignalInfo where
type HaskellCallbackType VolumeMonitorMountChangedSignalInfo = VolumeMonitorMountChangedCallback
connectSignal _ = connectVolumeMonitorMountChanged
data VolumeMonitorMountPreUnmountSignalInfo
instance SignalInfo VolumeMonitorMountPreUnmountSignalInfo where
type HaskellCallbackType VolumeMonitorMountPreUnmountSignalInfo = VolumeMonitorMountPreUnmountCallback
connectSignal _ = connectVolumeMonitorMountPreUnmount
data VolumeMonitorMountRemovedSignalInfo
instance SignalInfo VolumeMonitorMountRemovedSignalInfo where
type HaskellCallbackType VolumeMonitorMountRemovedSignalInfo = VolumeMonitorMountRemovedCallback
connectSignal _ = connectVolumeMonitorMountRemoved
data VolumeMonitorVolumeAddedSignalInfo
instance SignalInfo VolumeMonitorVolumeAddedSignalInfo where
type HaskellCallbackType VolumeMonitorVolumeAddedSignalInfo = VolumeMonitorVolumeAddedCallback
connectSignal _ = connectVolumeMonitorVolumeAdded
data VolumeMonitorVolumeChangedSignalInfo
instance SignalInfo VolumeMonitorVolumeChangedSignalInfo where
type HaskellCallbackType VolumeMonitorVolumeChangedSignalInfo = VolumeMonitorVolumeChangedCallback
connectSignal _ = connectVolumeMonitorVolumeChanged
data VolumeMonitorVolumeRemovedSignalInfo
instance SignalInfo VolumeMonitorVolumeRemovedSignalInfo where
type HaskellCallbackType VolumeMonitorVolumeRemovedSignalInfo = VolumeMonitorVolumeRemovedCallback
connectSignal _ = connectVolumeMonitorVolumeRemoved
type instance O.SignalList VolumeMonitor = VolumeMonitorSignalList
type VolumeMonitorSignalList = ('[ '("driveChanged", VolumeMonitorDriveChangedSignalInfo), '("driveConnected", VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", VolumeMonitorMountAddedSignalInfo), '("mountChanged", VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_volume_monitor_get_connected_drives" g_volume_monitor_get_connected_drives ::
Ptr VolumeMonitor ->
IO (Ptr (GList (Ptr Gio.Drive.Drive)))
volumeMonitorGetConnectedDrives ::
(B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>
a
-> m [Gio.Drive.Drive]
volumeMonitorGetConnectedDrives volumeMonitor = liftIO $ do
volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor
result <- g_volume_monitor_get_connected_drives volumeMonitor'
result' <- unpackGList result
result'' <- mapM (wrapObject Gio.Drive.Drive) result'
g_list_free result
touchManagedPtr volumeMonitor
return result''
data VolumeMonitorGetConnectedDrivesMethodInfo
instance (signature ~ (m [Gio.Drive.Drive]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetConnectedDrivesMethodInfo a signature where
overloadedMethod _ = volumeMonitorGetConnectedDrives
foreign import ccall "g_volume_monitor_get_mount_for_uuid" g_volume_monitor_get_mount_for_uuid ::
Ptr VolumeMonitor ->
CString ->
IO (Ptr Gio.Mount.Mount)
volumeMonitorGetMountForUuid ::
(B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>
a
-> T.Text
-> m Gio.Mount.Mount
volumeMonitorGetMountForUuid volumeMonitor uuid = liftIO $ do
volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor
uuid' <- textToCString uuid
result <- g_volume_monitor_get_mount_for_uuid volumeMonitor' uuid'
checkUnexpectedReturnNULL "volumeMonitorGetMountForUuid" result
result' <- (wrapObject Gio.Mount.Mount) result
touchManagedPtr volumeMonitor
freeMem uuid'
return result'
data VolumeMonitorGetMountForUuidMethodInfo
instance (signature ~ (T.Text -> m Gio.Mount.Mount), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetMountForUuidMethodInfo a signature where
overloadedMethod _ = volumeMonitorGetMountForUuid
foreign import ccall "g_volume_monitor_get_mounts" g_volume_monitor_get_mounts ::
Ptr VolumeMonitor ->
IO (Ptr (GList (Ptr Gio.Mount.Mount)))
volumeMonitorGetMounts ::
(B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>
a
-> m [Gio.Mount.Mount]
volumeMonitorGetMounts volumeMonitor = liftIO $ do
volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor
result <- g_volume_monitor_get_mounts volumeMonitor'
result' <- unpackGList result
result'' <- mapM (wrapObject Gio.Mount.Mount) result'
g_list_free result
touchManagedPtr volumeMonitor
return result''
data VolumeMonitorGetMountsMethodInfo
instance (signature ~ (m [Gio.Mount.Mount]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetMountsMethodInfo a signature where
overloadedMethod _ = volumeMonitorGetMounts
foreign import ccall "g_volume_monitor_get_volume_for_uuid" g_volume_monitor_get_volume_for_uuid ::
Ptr VolumeMonitor ->
CString ->
IO (Ptr Gio.Volume.Volume)
volumeMonitorGetVolumeForUuid ::
(B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>
a
-> T.Text
-> m Gio.Volume.Volume
volumeMonitorGetVolumeForUuid volumeMonitor uuid = liftIO $ do
volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor
uuid' <- textToCString uuid
result <- g_volume_monitor_get_volume_for_uuid volumeMonitor' uuid'
checkUnexpectedReturnNULL "volumeMonitorGetVolumeForUuid" result
result' <- (wrapObject Gio.Volume.Volume) result
touchManagedPtr volumeMonitor
freeMem uuid'
return result'
data VolumeMonitorGetVolumeForUuidMethodInfo
instance (signature ~ (T.Text -> m Gio.Volume.Volume), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetVolumeForUuidMethodInfo a signature where
overloadedMethod _ = volumeMonitorGetVolumeForUuid
foreign import ccall "g_volume_monitor_get_volumes" g_volume_monitor_get_volumes ::
Ptr VolumeMonitor ->
IO (Ptr (GList (Ptr Gio.Volume.Volume)))
volumeMonitorGetVolumes ::
(B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>
a
-> m [Gio.Volume.Volume]
volumeMonitorGetVolumes volumeMonitor = liftIO $ do
volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor
result <- g_volume_monitor_get_volumes volumeMonitor'
result' <- unpackGList result
result'' <- mapM (wrapObject Gio.Volume.Volume) result'
g_list_free result
touchManagedPtr volumeMonitor
return result''
data VolumeMonitorGetVolumesMethodInfo
instance (signature ~ (m [Gio.Volume.Volume]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetVolumesMethodInfo a signature where
overloadedMethod _ = volumeMonitorGetVolumes
foreign import ccall "g_volume_monitor_adopt_orphan_mount" g_volume_monitor_adopt_orphan_mount ::
Ptr Gio.Mount.Mount ->
IO (Ptr Gio.Volume.Volume)
volumeMonitorAdoptOrphanMount ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Mount.IsMount a) =>
a
-> m Gio.Volume.Volume
volumeMonitorAdoptOrphanMount mount = liftIO $ do
mount' <- unsafeManagedPtrCastPtr mount
result <- g_volume_monitor_adopt_orphan_mount mount'
checkUnexpectedReturnNULL "volumeMonitorAdoptOrphanMount" result
result' <- (wrapObject Gio.Volume.Volume) result
touchManagedPtr mount
return result'
foreign import ccall "g_volume_monitor_get" g_volume_monitor_get ::
IO (Ptr VolumeMonitor)
volumeMonitorGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
m VolumeMonitor
volumeMonitorGet = liftIO $ do
result <- g_volume_monitor_get
checkUnexpectedReturnNULL "volumeMonitorGet" result
result' <- (wrapObject VolumeMonitor) result
return result'