{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Interfaces.NetworkMonitor
(
NetworkMonitor(..) ,
noNetworkMonitor ,
IsNetworkMonitor ,
toNetworkMonitor ,
#if defined(ENABLE_OVERLOADING)
ResolveNetworkMonitorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NetworkMonitorCanReachMethodInfo ,
#endif
networkMonitorCanReach ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorCanReachAsyncMethodInfo ,
#endif
networkMonitorCanReachAsync ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorCanReachFinishMethodInfo ,
#endif
networkMonitorCanReachFinish ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorGetConnectivityMethodInfo ,
#endif
networkMonitorGetConnectivity ,
networkMonitorGetDefault ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorGetNetworkAvailableMethodInfo,
#endif
networkMonitorGetNetworkAvailable ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorGetNetworkMeteredMethodInfo,
#endif
networkMonitorGetNetworkMetered ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorConnectivityPropertyInfo ,
#endif
getNetworkMonitorConnectivity ,
#if defined(ENABLE_OVERLOADING)
networkMonitorConnectivity ,
#endif
#if defined(ENABLE_OVERLOADING)
NetworkMonitorNetworkAvailablePropertyInfo,
#endif
getNetworkMonitorNetworkAvailable ,
#if defined(ENABLE_OVERLOADING)
networkMonitorNetworkAvailable ,
#endif
#if defined(ENABLE_OVERLOADING)
NetworkMonitorNetworkMeteredPropertyInfo,
#endif
getNetworkMonitorNetworkMetered ,
#if defined(ENABLE_OVERLOADING)
networkMonitorNetworkMetered ,
#endif
C_NetworkMonitorNetworkChangedCallback ,
NetworkMonitorNetworkChangedCallback ,
#if defined(ENABLE_OVERLOADING)
NetworkMonitorNetworkChangedSignalInfo ,
#endif
afterNetworkMonitorNetworkChanged ,
genClosure_NetworkMonitorNetworkChanged ,
mk_NetworkMonitorNetworkChangedCallback ,
noNetworkMonitorNetworkChangedCallback ,
onNetworkMonitorNetworkChanged ,
wrap_NetworkMonitorNetworkChangedCallback,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
newtype NetworkMonitor = NetworkMonitor (ManagedPtr NetworkMonitor)
deriving (Eq)
noNetworkMonitor :: Maybe NetworkMonitor
noNetworkMonitor = Nothing
type NetworkMonitorNetworkChangedCallback =
Bool
-> IO ()
noNetworkMonitorNetworkChangedCallback :: Maybe NetworkMonitorNetworkChangedCallback
noNetworkMonitorNetworkChangedCallback = Nothing
type C_NetworkMonitorNetworkChangedCallback =
Ptr () ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_NetworkMonitorNetworkChangedCallback :: C_NetworkMonitorNetworkChangedCallback -> IO (FunPtr C_NetworkMonitorNetworkChangedCallback)
genClosure_NetworkMonitorNetworkChanged :: MonadIO m => NetworkMonitorNetworkChangedCallback -> m (GClosure C_NetworkMonitorNetworkChangedCallback)
genClosure_NetworkMonitorNetworkChanged cb = liftIO $ do
let cb' = wrap_NetworkMonitorNetworkChangedCallback cb
mk_NetworkMonitorNetworkChangedCallback cb' >>= B.GClosure.newGClosure
wrap_NetworkMonitorNetworkChangedCallback ::
NetworkMonitorNetworkChangedCallback ->
C_NetworkMonitorNetworkChangedCallback
wrap_NetworkMonitorNetworkChangedCallback _cb _ networkAvailable _ = do
let networkAvailable' = (/= 0) networkAvailable
_cb networkAvailable'
onNetworkMonitorNetworkChanged :: (IsNetworkMonitor a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId
onNetworkMonitorNetworkChanged obj cb = liftIO $ do
let cb' = wrap_NetworkMonitorNetworkChangedCallback cb
cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'
connectSignalFunPtr obj "network-changed" cb'' SignalConnectBefore Nothing
afterNetworkMonitorNetworkChanged :: (IsNetworkMonitor a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId
afterNetworkMonitorNetworkChanged obj cb = liftIO $ do
let cb' = wrap_NetworkMonitorNetworkChangedCallback cb
cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'
connectSignalFunPtr obj "network-changed" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorNetworkChangedSignalInfo
instance SignalInfo NetworkMonitorNetworkChangedSignalInfo where
type HaskellCallbackType NetworkMonitorNetworkChangedSignalInfo = NetworkMonitorNetworkChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NetworkMonitorNetworkChangedCallback cb
cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'
connectSignalFunPtr obj "network-changed" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList NetworkMonitor = NetworkMonitorSignalList
type NetworkMonitorSignalList = ('[ '("networkChanged", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_network_monitor_get_type"
c_g_network_monitor_get_type :: IO GType
instance GObject NetworkMonitor where
gobjectType = c_g_network_monitor_get_type
instance B.GValue.IsGValue NetworkMonitor where
toGValue o = do
gtype <- c_g_network_monitor_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr NetworkMonitor)
B.ManagedPtr.newObject NetworkMonitor ptr
class (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o
instance (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o
instance O.HasParentTypes NetworkMonitor
type instance O.ParentTypes NetworkMonitor = '[Gio.Initable.Initable, GObject.Object.Object]
toNetworkMonitor :: (MonadIO m, IsNetworkMonitor o) => o -> m NetworkMonitor
toNetworkMonitor = liftIO . unsafeCastTo NetworkMonitor
getNetworkMonitorConnectivity :: (MonadIO m, IsNetworkMonitor o) => o -> m Gio.Enums.NetworkConnectivity
getNetworkMonitorConnectivity obj = liftIO $ B.Properties.getObjectPropertyEnum obj "connectivity"
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorConnectivityPropertyInfo
instance AttrInfo NetworkMonitorConnectivityPropertyInfo where
type AttrAllowedOps NetworkMonitorConnectivityPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NetworkMonitorConnectivityPropertyInfo = IsNetworkMonitor
type AttrSetTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) ()
type AttrTransferTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) ()
type AttrTransferType NetworkMonitorConnectivityPropertyInfo = ()
type AttrGetType NetworkMonitorConnectivityPropertyInfo = Gio.Enums.NetworkConnectivity
type AttrLabel NetworkMonitorConnectivityPropertyInfo = "connectivity"
type AttrOrigin NetworkMonitorConnectivityPropertyInfo = NetworkMonitor
attrGet = getNetworkMonitorConnectivity
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getNetworkMonitorNetworkAvailable :: (MonadIO m, IsNetworkMonitor o) => o -> m Bool
getNetworkMonitorNetworkAvailable obj = liftIO $ B.Properties.getObjectPropertyBool obj "network-available"
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorNetworkAvailablePropertyInfo
instance AttrInfo NetworkMonitorNetworkAvailablePropertyInfo where
type AttrAllowedOps NetworkMonitorNetworkAvailablePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = IsNetworkMonitor
type AttrSetTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) ()
type AttrTransferTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) ()
type AttrTransferType NetworkMonitorNetworkAvailablePropertyInfo = ()
type AttrGetType NetworkMonitorNetworkAvailablePropertyInfo = Bool
type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "network-available"
type AttrOrigin NetworkMonitorNetworkAvailablePropertyInfo = NetworkMonitor
attrGet = getNetworkMonitorNetworkAvailable
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getNetworkMonitorNetworkMetered :: (MonadIO m, IsNetworkMonitor o) => o -> m Bool
getNetworkMonitorNetworkMetered obj = liftIO $ B.Properties.getObjectPropertyBool obj "network-metered"
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorNetworkMeteredPropertyInfo
instance AttrInfo NetworkMonitorNetworkMeteredPropertyInfo where
type AttrAllowedOps NetworkMonitorNetworkMeteredPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = IsNetworkMonitor
type AttrSetTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) ()
type AttrTransferTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) ()
type AttrTransferType NetworkMonitorNetworkMeteredPropertyInfo = ()
type AttrGetType NetworkMonitorNetworkMeteredPropertyInfo = Bool
type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "network-metered"
type AttrOrigin NetworkMonitorNetworkMeteredPropertyInfo = NetworkMonitor
attrGet = getNetworkMonitorNetworkMetered
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList NetworkMonitor
type instance O.AttributeList NetworkMonitor = NetworkMonitorAttributeList
type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("networkAvailable", NetworkMonitorNetworkAvailablePropertyInfo), '("networkMetered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
networkMonitorConnectivity :: AttrLabelProxy "connectivity"
networkMonitorConnectivity = AttrLabelProxy
networkMonitorNetworkAvailable :: AttrLabelProxy "networkAvailable"
networkMonitorNetworkAvailable = AttrLabelProxy
networkMonitorNetworkMetered :: AttrLabelProxy "networkMetered"
networkMonitorNetworkMetered = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveNetworkMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveNetworkMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNetworkMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNetworkMonitorMethod "canReach" o = NetworkMonitorCanReachMethodInfo
ResolveNetworkMonitorMethod "canReachAsync" o = NetworkMonitorCanReachAsyncMethodInfo
ResolveNetworkMonitorMethod "canReachFinish" o = NetworkMonitorCanReachFinishMethodInfo
ResolveNetworkMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNetworkMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNetworkMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveNetworkMonitorMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveNetworkMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNetworkMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNetworkMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNetworkMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNetworkMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNetworkMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNetworkMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNetworkMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNetworkMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNetworkMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNetworkMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNetworkMonitorMethod "getConnectivity" o = NetworkMonitorGetConnectivityMethodInfo
ResolveNetworkMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNetworkMonitorMethod "getNetworkAvailable" o = NetworkMonitorGetNetworkAvailableMethodInfo
ResolveNetworkMonitorMethod "getNetworkMetered" o = NetworkMonitorGetNetworkMeteredMethodInfo
ResolveNetworkMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNetworkMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNetworkMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNetworkMonitorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveNetworkMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNetworkMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, O.MethodInfo info NetworkMonitor p) => OL.IsLabel t (NetworkMonitor -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
foreign import ccall "g_network_monitor_can_reach" g_network_monitor_can_reach ::
Ptr NetworkMonitor ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
networkMonitorCanReach ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m ()
networkMonitorCanReach monitor connectable cancellable = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
connectable' <- unsafeManagedPtrCastPtr connectable
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_network_monitor_can_reach monitor' connectable' maybeCancellable
touchManagedPtr monitor
touchManagedPtr connectable
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorCanReachMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo NetworkMonitorCanReachMethodInfo a signature where
overloadedMethod = networkMonitorCanReach
#endif
foreign import ccall "g_network_monitor_can_reach_async" g_network_monitor_can_reach_async ::
Ptr NetworkMonitor ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
networkMonitorCanReachAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
networkMonitorCanReachAsync monitor connectable cancellable callback = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
connectable' <- unsafeManagedPtrCastPtr connectable
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_network_monitor_can_reach_async monitor' connectable' maybeCancellable maybeCallback userData
touchManagedPtr monitor
touchManagedPtr connectable
whenJust cancellable touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorCanReachAsyncMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo NetworkMonitorCanReachAsyncMethodInfo a signature where
overloadedMethod = networkMonitorCanReachAsync
#endif
foreign import ccall "g_network_monitor_can_reach_finish" g_network_monitor_can_reach_finish ::
Ptr NetworkMonitor ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
networkMonitorCanReachFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
networkMonitorCanReachFinish monitor result_ = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ g_network_monitor_can_reach_finish monitor' result_'
touchManagedPtr monitor
touchManagedPtr result_
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorCanReachFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsNetworkMonitor a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo NetworkMonitorCanReachFinishMethodInfo a signature where
overloadedMethod = networkMonitorCanReachFinish
#endif
foreign import ccall "g_network_monitor_get_connectivity" g_network_monitor_get_connectivity ::
Ptr NetworkMonitor ->
IO CUInt
networkMonitorGetConnectivity ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>
a
-> m Gio.Enums.NetworkConnectivity
networkMonitorGetConnectivity monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- g_network_monitor_get_connectivity monitor'
let result' = (toEnum . fromIntegral) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorGetConnectivityMethodInfo
instance (signature ~ (m Gio.Enums.NetworkConnectivity), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetConnectivityMethodInfo a signature where
overloadedMethod = networkMonitorGetConnectivity
#endif
foreign import ccall "g_network_monitor_get_network_available" g_network_monitor_get_network_available ::
Ptr NetworkMonitor ->
IO CInt
networkMonitorGetNetworkAvailable ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>
a
-> m Bool
networkMonitorGetNetworkAvailable monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- g_network_monitor_get_network_available monitor'
let result' = (/= 0) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorGetNetworkAvailableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetNetworkAvailableMethodInfo a signature where
overloadedMethod = networkMonitorGetNetworkAvailable
#endif
foreign import ccall "g_network_monitor_get_network_metered" g_network_monitor_get_network_metered ::
Ptr NetworkMonitor ->
IO CInt
networkMonitorGetNetworkMetered ::
(B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>
a
-> m Bool
networkMonitorGetNetworkMetered monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- g_network_monitor_get_network_metered monitor'
let result' = (/= 0) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data NetworkMonitorGetNetworkMeteredMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetNetworkMeteredMethodInfo a signature where
overloadedMethod = networkMonitorGetNetworkMetered
#endif
foreign import ccall "g_network_monitor_get_default" g_network_monitor_get_default ::
IO (Ptr NetworkMonitor)
networkMonitorGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m NetworkMonitor
networkMonitorGetDefault = liftIO $ do
result <- g_network_monitor_get_default
checkUnexpectedReturnNULL "networkMonitorGetDefault" result
result' <- (newObject NetworkMonitor) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif