{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.FileMonitor
(
FileMonitor(..) ,
IsFileMonitor ,
toFileMonitor ,
#if defined(ENABLE_OVERLOADING)
ResolveFileMonitorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FileMonitorCancelMethodInfo ,
#endif
fileMonitorCancel ,
#if defined(ENABLE_OVERLOADING)
FileMonitorEmitEventMethodInfo ,
#endif
fileMonitorEmitEvent ,
#if defined(ENABLE_OVERLOADING)
FileMonitorIsCancelledMethodInfo ,
#endif
fileMonitorIsCancelled ,
#if defined(ENABLE_OVERLOADING)
FileMonitorSetRateLimitMethodInfo ,
#endif
fileMonitorSetRateLimit ,
#if defined(ENABLE_OVERLOADING)
FileMonitorCancelledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
fileMonitorCancelled ,
#endif
getFileMonitorCancelled ,
#if defined(ENABLE_OVERLOADING)
FileMonitorRateLimitPropertyInfo ,
#endif
constructFileMonitorRateLimit ,
#if defined(ENABLE_OVERLOADING)
fileMonitorRateLimit ,
#endif
getFileMonitorRateLimit ,
setFileMonitorRateLimit ,
FileMonitorChangedCallback ,
#if defined(ENABLE_OVERLOADING)
FileMonitorChangedSignalInfo ,
#endif
afterFileMonitorChanged ,
onFileMonitorChanged ,
) 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.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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
newtype FileMonitor = FileMonitor (SP.ManagedPtr FileMonitor)
deriving (FileMonitor -> FileMonitor -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileMonitor -> FileMonitor -> Bool
$c/= :: FileMonitor -> FileMonitor -> Bool
== :: FileMonitor -> FileMonitor -> Bool
$c== :: FileMonitor -> FileMonitor -> Bool
Eq)
instance SP.ManagedPtrNewtype FileMonitor where
toManagedPtr :: FileMonitor -> ManagedPtr FileMonitor
toManagedPtr (FileMonitor ManagedPtr FileMonitor
p) = ManagedPtr FileMonitor
p
foreign import ccall "g_file_monitor_get_type"
c_g_file_monitor_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileMonitor where
glibType :: IO GType
glibType = IO GType
c_g_file_monitor_get_type
instance B.Types.GObject FileMonitor
class (SP.GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o
instance (SP.GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o
instance O.HasParentTypes FileMonitor
type instance O.ParentTypes FileMonitor = '[GObject.Object.Object]
toFileMonitor :: (MIO.MonadIO m, IsFileMonitor o) => o -> m FileMonitor
toFileMonitor :: forall (m :: * -> *) o.
(MonadIO m, IsFileMonitor o) =>
o -> m FileMonitor
toFileMonitor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileMonitor -> FileMonitor
FileMonitor
instance B.GValue.IsGValue (Maybe FileMonitor) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_file_monitor_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileMonitor -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileMonitor
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr FileMonitor)
gvalueSet_ Ptr GValue
gv (P.Just FileMonitor
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileMonitor
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileMonitor)
gvalueGet_ Ptr GValue
gv = do
Ptr FileMonitor
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileMonitor)
if Ptr FileMonitor
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FileMonitor -> FileMonitor
FileMonitor Ptr FileMonitor
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFileMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveFileMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileMonitorMethod "cancel" o = FileMonitorCancelMethodInfo
ResolveFileMonitorMethod "emitEvent" o = FileMonitorEmitEventMethodInfo
ResolveFileMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFileMonitorMethod "isCancelled" o = FileMonitorIsCancelledMethodInfo
ResolveFileMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileMonitorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFileMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileMonitorMethod "setRateLimit" o = FileMonitorSetRateLimitMethodInfo
ResolveFileMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileMonitorMethod t FileMonitor, O.OverloadedMethod info FileMonitor p) => OL.IsLabel t (FileMonitor -> 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 ~ ResolveFileMonitorMethod t FileMonitor, O.OverloadedMethod info FileMonitor p, R.HasField t FileMonitor p) => R.HasField t FileMonitor p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileMonitorMethod t FileMonitor, O.OverloadedMethodInfo info FileMonitor) => OL.IsLabel t (O.MethodProxy info FileMonitor) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type FileMonitorChangedCallback =
Gio.File.File
-> Maybe Gio.File.File
-> Gio.Enums.FileMonitorEvent
-> IO ()
type C_FileMonitorChangedCallback =
Ptr FileMonitor ->
Ptr Gio.File.File ->
Ptr Gio.File.File ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FileMonitorChangedCallback :: C_FileMonitorChangedCallback -> IO (FunPtr C_FileMonitorChangedCallback)
wrap_FileMonitorChangedCallback ::
GObject a => (a -> FileMonitorChangedCallback) ->
C_FileMonitorChangedCallback
wrap_FileMonitorChangedCallback :: forall a.
GObject a =>
(a -> FileMonitorChangedCallback) -> C_FileMonitorChangedCallback
wrap_FileMonitorChangedCallback a -> FileMonitorChangedCallback
gi'cb Ptr FileMonitor
gi'selfPtr Ptr File
file Ptr File
otherFile CUInt
eventType Ptr ()
_ = do
File
file' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
file
Maybe File
maybeOtherFile <-
if Ptr File
otherFile forall a. Eq a => a -> a -> Bool
== forall a. Ptr a
nullPtr
then forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
Nothing
else do
File
otherFile' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) Ptr File
otherFile
forall (m :: * -> *) a. Monad m => a -> m a
return forall a b. (a -> b) -> a -> b
$ forall a. a -> Maybe a
Just File
otherFile'
let eventType' :: FileMonitorEvent
eventType' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
eventType
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr FileMonitor
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \FileMonitor
gi'self -> a -> FileMonitorChangedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce FileMonitor
gi'self) File
file' Maybe File
maybeOtherFile FileMonitorEvent
eventType'
onFileMonitorChanged :: (IsFileMonitor a, MonadIO m) => a -> ((?self :: a) => FileMonitorChangedCallback) -> m SignalHandlerId
onFileMonitorChanged :: forall a (m :: * -> *).
(IsFileMonitor a, MonadIO m) =>
a
-> ((?self::a) => FileMonitorChangedCallback) -> m SignalHandlerId
onFileMonitorChanged a
obj (?self::a) => FileMonitorChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileMonitorChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => FileMonitorChangedCallback
cb
let wrapped' :: C_FileMonitorChangedCallback
wrapped' = forall a.
GObject a =>
(a -> FileMonitorChangedCallback) -> C_FileMonitorChangedCallback
wrap_FileMonitorChangedCallback a -> FileMonitorChangedCallback
wrapped
FunPtr C_FileMonitorChangedCallback
wrapped'' <- C_FileMonitorChangedCallback
-> IO (FunPtr C_FileMonitorChangedCallback)
mk_FileMonitorChangedCallback C_FileMonitorChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_FileMonitorChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterFileMonitorChanged :: (IsFileMonitor a, MonadIO m) => a -> ((?self :: a) => FileMonitorChangedCallback) -> m SignalHandlerId
afterFileMonitorChanged :: forall a (m :: * -> *).
(IsFileMonitor a, MonadIO m) =>
a
-> ((?self::a) => FileMonitorChangedCallback) -> m SignalHandlerId
afterFileMonitorChanged a
obj (?self::a) => FileMonitorChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> FileMonitorChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => FileMonitorChangedCallback
cb
let wrapped' :: C_FileMonitorChangedCallback
wrapped' = forall a.
GObject a =>
(a -> FileMonitorChangedCallback) -> C_FileMonitorChangedCallback
wrap_FileMonitorChangedCallback a -> FileMonitorChangedCallback
wrapped
FunPtr C_FileMonitorChangedCallback
wrapped'' <- C_FileMonitorChangedCallback
-> IO (FunPtr C_FileMonitorChangedCallback)
mk_FileMonitorChangedCallback C_FileMonitorChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_FileMonitorChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FileMonitorChangedSignalInfo
instance SignalInfo FileMonitorChangedSignalInfo where
type HaskellCallbackType FileMonitorChangedSignalInfo = FileMonitorChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FileMonitorChangedCallback cb
cb'' <- mk_FileMonitorChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#g:signal:changed"})
#endif
getFileMonitorCancelled :: (MonadIO m, IsFileMonitor o) => o -> m Bool
getFileMonitorCancelled :: forall (m :: * -> *) o. (MonadIO m, IsFileMonitor o) => o -> m Bool
getFileMonitorCancelled o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"cancelled"
#if defined(ENABLE_OVERLOADING)
data FileMonitorCancelledPropertyInfo
instance AttrInfo FileMonitorCancelledPropertyInfo where
type AttrAllowedOps FileMonitorCancelledPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint FileMonitorCancelledPropertyInfo = IsFileMonitor
type AttrSetTypeConstraint FileMonitorCancelledPropertyInfo = (~) ()
type AttrTransferTypeConstraint FileMonitorCancelledPropertyInfo = (~) ()
type AttrTransferType FileMonitorCancelledPropertyInfo = ()
type AttrGetType FileMonitorCancelledPropertyInfo = Bool
type AttrLabel FileMonitorCancelledPropertyInfo = "cancelled"
type AttrOrigin FileMonitorCancelledPropertyInfo = FileMonitor
attrGet = getFileMonitorCancelled
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.cancelled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#g:attr:cancelled"
})
#endif
getFileMonitorRateLimit :: (MonadIO m, IsFileMonitor o) => o -> m Int32
getFileMonitorRateLimit :: forall (m :: * -> *) o.
(MonadIO m, IsFileMonitor o) =>
o -> m Int32
getFileMonitorRateLimit o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"rate-limit"
setFileMonitorRateLimit :: (MonadIO m, IsFileMonitor o) => o -> Int32 -> m ()
setFileMonitorRateLimit :: forall (m :: * -> *) o.
(MonadIO m, IsFileMonitor o) =>
o -> Int32 -> m ()
setFileMonitorRateLimit o
obj Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"rate-limit" Int32
val
constructFileMonitorRateLimit :: (IsFileMonitor o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructFileMonitorRateLimit :: forall o (m :: * -> *).
(IsFileMonitor o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructFileMonitorRateLimit Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"rate-limit" Int32
val
#if defined(ENABLE_OVERLOADING)
data FileMonitorRateLimitPropertyInfo
instance AttrInfo FileMonitorRateLimitPropertyInfo where
type AttrAllowedOps FileMonitorRateLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FileMonitorRateLimitPropertyInfo = IsFileMonitor
type AttrSetTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32
type AttrTransferTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32
type AttrTransferType FileMonitorRateLimitPropertyInfo = Int32
type AttrGetType FileMonitorRateLimitPropertyInfo = Int32
type AttrLabel FileMonitorRateLimitPropertyInfo = "rate-limit"
type AttrOrigin FileMonitorRateLimitPropertyInfo = FileMonitor
attrGet = getFileMonitorRateLimit
attrSet = setFileMonitorRateLimit
attrTransfer _ v = do
return v
attrConstruct = constructFileMonitorRateLimit
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.rateLimit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#g:attr:rateLimit"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FileMonitor
type instance O.AttributeList FileMonitor = FileMonitorAttributeList
type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rateLimit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
fileMonitorCancelled :: AttrLabelProxy "cancelled"
fileMonitorCancelled = AttrLabelProxy
fileMonitorRateLimit :: AttrLabelProxy "rateLimit"
fileMonitorRateLimit = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileMonitor = FileMonitorSignalList
type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_file_monitor_cancel" g_file_monitor_cancel ::
Ptr FileMonitor ->
IO CInt
fileMonitorCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>
a
-> m Bool
fileMonitorCancel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileMonitor a) =>
a -> m Bool
fileMonitorCancel a
monitor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr FileMonitor
monitor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
monitor
CInt
result <- Ptr FileMonitor -> IO CInt
g_file_monitor_cancel Ptr FileMonitor
monitor'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
monitor
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FileMonitorCancelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileMonitor a) => O.OverloadedMethod FileMonitorCancelMethodInfo a signature where
overloadedMethod = fileMonitorCancel
instance O.OverloadedMethodInfo FileMonitorCancelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.fileMonitorCancel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#v:fileMonitorCancel"
})
#endif
foreign import ccall "g_file_monitor_emit_event" g_file_monitor_emit_event ::
Ptr FileMonitor ->
Ptr Gio.File.File ->
Ptr Gio.File.File ->
CUInt ->
IO ()
fileMonitorEmitEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a, Gio.File.IsFile b, Gio.File.IsFile c) =>
a
-> b
-> c
-> Gio.Enums.FileMonitorEvent
-> m ()
fileMonitorEmitEvent :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsFileMonitor a, IsFile b, IsFile c) =>
a -> b -> c -> FileMonitorEvent -> m ()
fileMonitorEmitEvent a
monitor b
child c
otherFile FileMonitorEvent
eventType = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr FileMonitor
monitor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
monitor
Ptr File
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr File
otherFile' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
otherFile
let eventType' :: CUInt
eventType' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) FileMonitorEvent
eventType
Ptr FileMonitor -> Ptr File -> Ptr File -> CUInt -> IO ()
g_file_monitor_emit_event Ptr FileMonitor
monitor' Ptr File
child' Ptr File
otherFile' CUInt
eventType'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
monitor
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
otherFile
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileMonitorEmitEventMethodInfo
instance (signature ~ (b -> c -> Gio.Enums.FileMonitorEvent -> m ()), MonadIO m, IsFileMonitor a, Gio.File.IsFile b, Gio.File.IsFile c) => O.OverloadedMethod FileMonitorEmitEventMethodInfo a signature where
overloadedMethod = fileMonitorEmitEvent
instance O.OverloadedMethodInfo FileMonitorEmitEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.fileMonitorEmitEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#v:fileMonitorEmitEvent"
})
#endif
foreign import ccall "g_file_monitor_is_cancelled" g_file_monitor_is_cancelled ::
Ptr FileMonitor ->
IO CInt
fileMonitorIsCancelled ::
(B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>
a
-> m Bool
fileMonitorIsCancelled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileMonitor a) =>
a -> m Bool
fileMonitorIsCancelled a
monitor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr FileMonitor
monitor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
monitor
CInt
result <- Ptr FileMonitor -> IO CInt
g_file_monitor_is_cancelled Ptr FileMonitor
monitor'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
monitor
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FileMonitorIsCancelledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFileMonitor a) => O.OverloadedMethod FileMonitorIsCancelledMethodInfo a signature where
overloadedMethod = fileMonitorIsCancelled
instance O.OverloadedMethodInfo FileMonitorIsCancelledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.fileMonitorIsCancelled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#v:fileMonitorIsCancelled"
})
#endif
foreign import ccall "g_file_monitor_set_rate_limit" g_file_monitor_set_rate_limit ::
Ptr FileMonitor ->
Int32 ->
IO ()
fileMonitorSetRateLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>
a
-> Int32
-> m ()
fileMonitorSetRateLimit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileMonitor a) =>
a -> Int32 -> m ()
fileMonitorSetRateLimit a
monitor Int32
limitMsecs = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr FileMonitor
monitor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
monitor
Ptr FileMonitor -> Int32 -> IO ()
g_file_monitor_set_rate_limit Ptr FileMonitor
monitor' Int32
limitMsecs
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
monitor
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileMonitorSetRateLimitMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsFileMonitor a) => O.OverloadedMethod FileMonitorSetRateLimitMethodInfo a signature where
overloadedMethod = fileMonitorSetRateLimit
instance O.OverloadedMethodInfo FileMonitorSetRateLimitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.FileMonitor.fileMonitorSetRateLimit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-FileMonitor.html#v:fileMonitorSetRateLimit"
})
#endif