module GI.Gio.Objects.UnixMountMonitor
(
UnixMountMonitor(..) ,
IsUnixMountMonitor ,
toUnixMountMonitor ,
noUnixMountMonitor ,
unixMountMonitorGet ,
unixMountMonitorNew ,
UnixMountMonitorSetRateLimitMethodInfo ,
unixMountMonitorSetRateLimit ,
C_UnixMountMonitorMountpointsChangedCallback,
UnixMountMonitorMountpointsChangedCallback,
UnixMountMonitorMountpointsChangedSignalInfo,
afterUnixMountMonitorMountpointsChanged ,
genClosure_UnixMountMonitorMountpointsChanged,
mk_UnixMountMonitorMountpointsChangedCallback,
noUnixMountMonitorMountpointsChangedCallback,
onUnixMountMonitorMountpointsChanged ,
wrap_UnixMountMonitorMountpointsChangedCallback,
C_UnixMountMonitorMountsChangedCallback ,
UnixMountMonitorMountsChangedCallback ,
UnixMountMonitorMountsChangedSignalInfo ,
afterUnixMountMonitorMountsChanged ,
genClosure_UnixMountMonitorMountsChanged,
mk_UnixMountMonitorMountsChangedCallback,
noUnixMountMonitorMountsChangedCallback ,
onUnixMountMonitorMountsChanged ,
wrap_UnixMountMonitorMountsChangedCallback,
) 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
newtype UnixMountMonitor = UnixMountMonitor (ManagedPtr UnixMountMonitor)
foreign import ccall "g_unix_mount_monitor_get_type"
c_g_unix_mount_monitor_get_type :: IO GType
instance GObject UnixMountMonitor where
gobjectType _ = c_g_unix_mount_monitor_get_type
class GObject o => IsUnixMountMonitor o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError UnixMountMonitor a) =>
IsUnixMountMonitor a
#endif
instance IsUnixMountMonitor UnixMountMonitor
instance GObject.Object.IsObject UnixMountMonitor
toUnixMountMonitor :: IsUnixMountMonitor o => o -> IO UnixMountMonitor
toUnixMountMonitor = unsafeCastTo UnixMountMonitor
noUnixMountMonitor :: Maybe UnixMountMonitor
noUnixMountMonitor = Nothing
type family ResolveUnixMountMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveUnixMountMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveUnixMountMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveUnixMountMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveUnixMountMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveUnixMountMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveUnixMountMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveUnixMountMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveUnixMountMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveUnixMountMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveUnixMountMonitorMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveUnixMountMonitorMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveUnixMountMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveUnixMountMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveUnixMountMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveUnixMountMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveUnixMountMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveUnixMountMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveUnixMountMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveUnixMountMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveUnixMountMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveUnixMountMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveUnixMountMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveUnixMountMonitorMethod "setRateLimit" o = UnixMountMonitorSetRateLimitMethodInfo
ResolveUnixMountMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, O.MethodInfo info UnixMountMonitor p) => O.IsLabelProxy t (UnixMountMonitor -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, O.MethodInfo info UnixMountMonitor p) => O.IsLabel t (UnixMountMonitor -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type UnixMountMonitorMountpointsChangedCallback =
IO ()
noUnixMountMonitorMountpointsChangedCallback :: Maybe UnixMountMonitorMountpointsChangedCallback
noUnixMountMonitorMountpointsChangedCallback = Nothing
type C_UnixMountMonitorMountpointsChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_UnixMountMonitorMountpointsChangedCallback :: C_UnixMountMonitorMountpointsChangedCallback -> IO (FunPtr C_UnixMountMonitorMountpointsChangedCallback)
genClosure_UnixMountMonitorMountpointsChanged :: UnixMountMonitorMountpointsChangedCallback -> IO Closure
genClosure_UnixMountMonitorMountpointsChanged cb = do
let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb
mk_UnixMountMonitorMountpointsChangedCallback cb' >>= newCClosure
wrap_UnixMountMonitorMountpointsChangedCallback ::
UnixMountMonitorMountpointsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_UnixMountMonitorMountpointsChangedCallback _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
let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb
cb'' <- mk_UnixMountMonitorMountpointsChangedCallback cb'
connectSignalFunPtr obj "mountpoints-changed" cb'' after
type UnixMountMonitorMountsChangedCallback =
IO ()
noUnixMountMonitorMountsChangedCallback :: Maybe UnixMountMonitorMountsChangedCallback
noUnixMountMonitorMountsChangedCallback = Nothing
type C_UnixMountMonitorMountsChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_UnixMountMonitorMountsChangedCallback :: C_UnixMountMonitorMountsChangedCallback -> IO (FunPtr C_UnixMountMonitorMountsChangedCallback)
genClosure_UnixMountMonitorMountsChanged :: UnixMountMonitorMountsChangedCallback -> IO Closure
genClosure_UnixMountMonitorMountsChanged cb = do
let cb' = wrap_UnixMountMonitorMountsChangedCallback cb
mk_UnixMountMonitorMountsChangedCallback cb' >>= newCClosure
wrap_UnixMountMonitorMountsChangedCallback ::
UnixMountMonitorMountsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_UnixMountMonitorMountsChangedCallback _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
let cb' = wrap_UnixMountMonitorMountsChangedCallback cb
cb'' <- mk_UnixMountMonitorMountsChangedCallback cb'
connectSignalFunPtr obj "mounts-changed" cb'' after
instance O.HasAttributeList UnixMountMonitor
type instance O.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 O.SignalList UnixMountMonitor = UnixMountMonitorSignalList
type UnixMountMonitorSignalList = ('[ '("mountpointsChanged", UnixMountMonitorMountpointsChangedSignalInfo), '("mountsChanged", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_unix_mount_monitor_new" g_unix_mount_monitor_new ::
IO (Ptr UnixMountMonitor)
unixMountMonitorNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m UnixMountMonitor
unixMountMonitorNew = liftIO $ do
result <- g_unix_mount_monitor_new
checkUnexpectedReturnNULL "unixMountMonitorNew" 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 ::
(B.CallStack.HasCallStack, MonadIO m, IsUnixMountMonitor a) =>
a
-> Int32
-> m ()
unixMountMonitorSetRateLimit mountMonitor limitMsec = liftIO $ do
mountMonitor' <- unsafeManagedPtrCastPtr mountMonitor
g_unix_mount_monitor_set_rate_limit mountMonitor' limitMsec
touchManagedPtr mountMonitor
return ()
data UnixMountMonitorSetRateLimitMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsUnixMountMonitor a) => O.MethodInfo UnixMountMonitorSetRateLimitMethodInfo a signature where
overloadedMethod _ = unixMountMonitorSetRateLimit
foreign import ccall "g_unix_mount_monitor_get" g_unix_mount_monitor_get ::
IO (Ptr UnixMountMonitor)
unixMountMonitorGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
m UnixMountMonitor
unixMountMonitorGet = liftIO $ do
result <- g_unix_mount_monitor_get
checkUnexpectedReturnNULL "unixMountMonitorGet" result
result' <- (wrapObject UnixMountMonitor) result
return result'