module GI.Gio.Objects.UnixMountMonitor
(
UnixMountMonitor(..) ,
UnixMountMonitorK ,
toUnixMountMonitor ,
noUnixMountMonitor ,
unixMountMonitorGet ,
unixMountMonitorNew ,
unixMountMonitorSetRateLimit ,
UnixMountMonitorMountpointsChangedCallback,
UnixMountMonitorMountpointsChangedCallbackC,
UnixMountMonitorMountpointsChangedSignalInfo,
afterUnixMountMonitorMountpointsChanged ,
mkUnixMountMonitorMountpointsChangedCallback,
noUnixMountMonitorMountpointsChangedCallback,
onUnixMountMonitorMountpointsChanged ,
unixMountMonitorMountpointsChangedCallbackWrapper,
unixMountMonitorMountpointsChangedClosure,
UnixMountMonitorMountsChangedCallback ,
UnixMountMonitorMountsChangedCallbackC ,
UnixMountMonitorMountsChangedSignalInfo ,
afterUnixMountMonitorMountsChanged ,
mkUnixMountMonitorMountsChangedCallback ,
noUnixMountMonitorMountsChangedCallback ,
onUnixMountMonitorMountsChanged ,
unixMountMonitorMountsChangedCallbackWrapper,
unixMountMonitorMountsChangedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype UnixMountMonitor = UnixMountMonitor (ForeignPtr UnixMountMonitor)
foreign import ccall "g_unix_mount_monitor_get_type"
c_g_unix_mount_monitor_get_type :: IO GType
type instance ParentTypes UnixMountMonitor = UnixMountMonitorParentTypes
type UnixMountMonitorParentTypes = '[GObject.Object]
instance GObject UnixMountMonitor where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_unix_mount_monitor_get_type
class GObject o => UnixMountMonitorK o
instance (GObject o, IsDescendantOf UnixMountMonitor o) => UnixMountMonitorK o
toUnixMountMonitor :: UnixMountMonitorK o => o -> IO UnixMountMonitor
toUnixMountMonitor = unsafeCastTo UnixMountMonitor
noUnixMountMonitor :: Maybe UnixMountMonitor
noUnixMountMonitor = Nothing
type UnixMountMonitorMountpointsChangedCallback =
IO ()
noUnixMountMonitorMountpointsChangedCallback :: Maybe UnixMountMonitorMountpointsChangedCallback
noUnixMountMonitorMountpointsChangedCallback = Nothing
type UnixMountMonitorMountpointsChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkUnixMountMonitorMountpointsChangedCallback :: UnixMountMonitorMountpointsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountpointsChangedCallbackC)
unixMountMonitorMountpointsChangedClosure :: UnixMountMonitorMountpointsChangedCallback -> IO Closure
unixMountMonitorMountpointsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountpointsChangedCallback wrapped
where wrapped = unixMountMonitorMountpointsChangedCallbackWrapper cb
unixMountMonitorMountpointsChangedCallbackWrapper ::
UnixMountMonitorMountpointsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
unixMountMonitorMountpointsChangedCallbackWrapper _cb _ _ = do
_cb
onUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId
onUnixMountMonitorMountpointsChanged obj cb = liftIO $ connectUnixMountMonitorMountpointsChanged obj cb SignalConnectBefore
afterUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId
afterUnixMountMonitorMountpointsChanged obj cb = connectUnixMountMonitorMountpointsChanged obj cb SignalConnectAfter
connectUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) =>
a -> UnixMountMonitorMountpointsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectUnixMountMonitorMountpointsChanged obj cb after = liftIO $ do
cb' <- mkUnixMountMonitorMountpointsChangedCallback (unixMountMonitorMountpointsChangedCallbackWrapper cb)
connectSignalFunPtr obj "mountpoints-changed" cb' after
type UnixMountMonitorMountsChangedCallback =
IO ()
noUnixMountMonitorMountsChangedCallback :: Maybe UnixMountMonitorMountsChangedCallback
noUnixMountMonitorMountsChangedCallback = Nothing
type UnixMountMonitorMountsChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkUnixMountMonitorMountsChangedCallback :: UnixMountMonitorMountsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountsChangedCallbackC)
unixMountMonitorMountsChangedClosure :: UnixMountMonitorMountsChangedCallback -> IO Closure
unixMountMonitorMountsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountsChangedCallback wrapped
where wrapped = unixMountMonitorMountsChangedCallbackWrapper cb
unixMountMonitorMountsChangedCallbackWrapper ::
UnixMountMonitorMountsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
unixMountMonitorMountsChangedCallbackWrapper _cb _ _ = do
_cb
onUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId
onUnixMountMonitorMountsChanged obj cb = liftIO $ connectUnixMountMonitorMountsChanged obj cb SignalConnectBefore
afterUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId
afterUnixMountMonitorMountsChanged obj cb = connectUnixMountMonitorMountsChanged obj cb SignalConnectAfter
connectUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) =>
a -> UnixMountMonitorMountsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectUnixMountMonitorMountsChanged obj cb after = liftIO $ do
cb' <- mkUnixMountMonitorMountsChangedCallback (unixMountMonitorMountsChangedCallbackWrapper cb)
connectSignalFunPtr obj "mounts-changed" cb' after
type instance AttributeList UnixMountMonitor = UnixMountMonitorAttributeList
type UnixMountMonitorAttributeList = ('[ ] :: [(Symbol, *)])
data UnixMountMonitorMountpointsChangedSignalInfo
instance SignalInfo UnixMountMonitorMountpointsChangedSignalInfo where
type HaskellCallbackType UnixMountMonitorMountpointsChangedSignalInfo = UnixMountMonitorMountpointsChangedCallback
connectSignal _ = connectUnixMountMonitorMountpointsChanged
data UnixMountMonitorMountsChangedSignalInfo
instance SignalInfo UnixMountMonitorMountsChangedSignalInfo where
type HaskellCallbackType UnixMountMonitorMountsChangedSignalInfo = UnixMountMonitorMountsChangedCallback
connectSignal _ = connectUnixMountMonitorMountsChanged
type instance SignalList UnixMountMonitor = UnixMountMonitorSignalList
type UnixMountMonitorSignalList = ('[ '("mountpoints-changed", UnixMountMonitorMountpointsChangedSignalInfo), '("mounts-changed", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_unix_mount_monitor_new" g_unix_mount_monitor_new ::
IO (Ptr UnixMountMonitor)
unixMountMonitorNew ::
(MonadIO m) =>
m UnixMountMonitor
unixMountMonitorNew = liftIO $ do
result <- g_unix_mount_monitor_new
checkUnexpectedReturnNULL "g_unix_mount_monitor_new" result
result' <- (wrapObject UnixMountMonitor) result
return result'
foreign import ccall "g_unix_mount_monitor_set_rate_limit" g_unix_mount_monitor_set_rate_limit ::
Ptr UnixMountMonitor ->
Int32 ->
IO ()
unixMountMonitorSetRateLimit ::
(MonadIO m, UnixMountMonitorK a) =>
a ->
Int32 ->
m ()
unixMountMonitorSetRateLimit _obj limit_msec = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_unix_mount_monitor_set_rate_limit _obj' limit_msec
touchManagedPtr _obj
return ()
foreign import ccall "g_unix_mount_monitor_get" g_unix_mount_monitor_get ::
IO (Ptr UnixMountMonitor)
unixMountMonitorGet ::
(MonadIO m) =>
m UnixMountMonitor
unixMountMonitorGet = liftIO $ do
result <- g_unix_mount_monitor_get
checkUnexpectedReturnNULL "g_unix_mount_monitor_get" result
result' <- (wrapObject UnixMountMonitor) result
return result'