{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Structs.TeamLinkWatcher
(
TeamLinkWatcher(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveTeamLinkWatcherMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherDupMethodInfo ,
#endif
teamLinkWatcherDup ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherEqualMethodInfo ,
#endif
teamLinkWatcherEqual ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetDelayDownMethodInfo ,
#endif
teamLinkWatcherGetDelayDown ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetDelayUpMethodInfo ,
#endif
teamLinkWatcherGetDelayUp ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetFlagsMethodInfo ,
#endif
teamLinkWatcherGetFlags ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetInitWaitMethodInfo ,
#endif
teamLinkWatcherGetInitWait ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetIntervalMethodInfo ,
#endif
teamLinkWatcherGetInterval ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetMissedMaxMethodInfo ,
#endif
teamLinkWatcherGetMissedMax ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetNameMethodInfo ,
#endif
teamLinkWatcherGetName ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetSourceHostMethodInfo ,
#endif
teamLinkWatcherGetSourceHost ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetTargetHostMethodInfo ,
#endif
teamLinkWatcherGetTargetHost ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherGetVlanidMethodInfo ,
#endif
teamLinkWatcherGetVlanid ,
teamLinkWatcherNewArpPing ,
teamLinkWatcherNewArpPing2 ,
teamLinkWatcherNewEthtool ,
teamLinkWatcherNewNsnaPing ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherRefMethodInfo ,
#endif
teamLinkWatcherRef ,
#if defined(ENABLE_OVERLOADING)
TeamLinkWatcherUnrefMethodInfo ,
#endif
teamLinkWatcherUnref ,
) 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.Kind as DK
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
#else
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
#endif
newtype TeamLinkWatcher = TeamLinkWatcher (SP.ManagedPtr TeamLinkWatcher)
deriving (TeamLinkWatcher -> TeamLinkWatcher -> Bool
(TeamLinkWatcher -> TeamLinkWatcher -> Bool)
-> (TeamLinkWatcher -> TeamLinkWatcher -> Bool)
-> Eq TeamLinkWatcher
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TeamLinkWatcher -> TeamLinkWatcher -> Bool
== :: TeamLinkWatcher -> TeamLinkWatcher -> Bool
$c/= :: TeamLinkWatcher -> TeamLinkWatcher -> Bool
/= :: TeamLinkWatcher -> TeamLinkWatcher -> Bool
Eq)
instance SP.ManagedPtrNewtype TeamLinkWatcher where
toManagedPtr :: TeamLinkWatcher -> ManagedPtr TeamLinkWatcher
toManagedPtr (TeamLinkWatcher ManagedPtr TeamLinkWatcher
p) = ManagedPtr TeamLinkWatcher
p
foreign import ccall "nm_team_link_watcher_get_type" c_nm_team_link_watcher_get_type ::
IO GType
type instance O.ParentTypes TeamLinkWatcher = '[]
instance O.HasParentTypes TeamLinkWatcher
instance B.Types.TypedObject TeamLinkWatcher where
glibType :: IO GType
glibType = IO GType
c_nm_team_link_watcher_get_type
instance B.Types.GBoxed TeamLinkWatcher
instance B.GValue.IsGValue (Maybe TeamLinkWatcher) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_team_link_watcher_get_type
gvalueSet_ :: Ptr GValue -> Maybe TeamLinkWatcher -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TeamLinkWatcher
P.Nothing = Ptr GValue -> Ptr TeamLinkWatcher -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr TeamLinkWatcher
forall a. Ptr a
FP.nullPtr :: FP.Ptr TeamLinkWatcher)
gvalueSet_ Ptr GValue
gv (P.Just TeamLinkWatcher
obj) = TeamLinkWatcher -> (Ptr TeamLinkWatcher -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TeamLinkWatcher
obj (Ptr GValue -> Ptr TeamLinkWatcher -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TeamLinkWatcher)
gvalueGet_ Ptr GValue
gv = do
Ptr TeamLinkWatcher
ptr <- Ptr GValue -> IO (Ptr TeamLinkWatcher)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr TeamLinkWatcher)
if Ptr TeamLinkWatcher
ptr Ptr TeamLinkWatcher -> Ptr TeamLinkWatcher -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TeamLinkWatcher
forall a. Ptr a
FP.nullPtr
then TeamLinkWatcher -> Maybe TeamLinkWatcher
forall a. a -> Maybe a
P.Just (TeamLinkWatcher -> Maybe TeamLinkWatcher)
-> IO TeamLinkWatcher -> IO (Maybe TeamLinkWatcher)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher Ptr TeamLinkWatcher
ptr
else Maybe TeamLinkWatcher -> IO (Maybe TeamLinkWatcher)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TeamLinkWatcher
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TeamLinkWatcher
type instance O.AttributeList TeamLinkWatcher = TeamLinkWatcherAttributeList
type TeamLinkWatcherAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_team_link_watcher_new_arp_ping" nm_team_link_watcher_new_arp_ping ::
Int32 ->
Int32 ->
Int32 ->
CString ->
CString ->
CUInt ->
Ptr (Ptr GError) ->
IO (Ptr TeamLinkWatcher)
teamLinkWatcherNewArpPing ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> Int32
-> T.Text
-> T.Text
-> [NM.Flags.TeamLinkWatcherArpPingFlags]
-> m TeamLinkWatcher
teamLinkWatcherNewArpPing :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Int32
-> Int32
-> Int32
-> Text
-> Text
-> [TeamLinkWatcherArpPingFlags]
-> m TeamLinkWatcher
teamLinkWatcherNewArpPing Int32
initWait Int32
interval Int32
missedMax Text
targetHost Text
sourceHost [TeamLinkWatcherArpPingFlags]
flags = IO TeamLinkWatcher -> m TeamLinkWatcher
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TeamLinkWatcher -> m TeamLinkWatcher)
-> IO TeamLinkWatcher -> m TeamLinkWatcher
forall a b. (a -> b) -> a -> b
$ do
CString
targetHost' <- Text -> IO CString
textToCString Text
targetHost
CString
sourceHost' <- Text -> IO CString
textToCString Text
sourceHost
let flags' :: CUInt
flags' = [TeamLinkWatcherArpPingFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TeamLinkWatcherArpPingFlags]
flags
IO TeamLinkWatcher -> IO () -> IO TeamLinkWatcher
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TeamLinkWatcher
result <- (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher))
-> (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a b. (a -> b) -> a -> b
$ Int32
-> Int32
-> Int32
-> CString
-> CString
-> CUInt
-> Ptr (Ptr GError)
-> IO (Ptr TeamLinkWatcher)
nm_team_link_watcher_new_arp_ping Int32
initWait Int32
interval Int32
missedMax CString
targetHost' CString
sourceHost' CUInt
flags'
Text -> Ptr TeamLinkWatcher -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherNewArpPing" Ptr TeamLinkWatcher
result
TeamLinkWatcher
result' <- ((ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher) Ptr TeamLinkWatcher
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
sourceHost'
TeamLinkWatcher -> IO TeamLinkWatcher
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TeamLinkWatcher
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
sourceHost'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_team_link_watcher_new_arp_ping2" nm_team_link_watcher_new_arp_ping2 ::
Int32 ->
Int32 ->
Int32 ->
Int32 ->
CString ->
CString ->
CUInt ->
Ptr (Ptr GError) ->
IO (Ptr TeamLinkWatcher)
teamLinkWatcherNewArpPing2 ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> Int32
-> Int32
-> T.Text
-> T.Text
-> [NM.Flags.TeamLinkWatcherArpPingFlags]
-> m TeamLinkWatcher
teamLinkWatcherNewArpPing2 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Int32
-> Int32
-> Int32
-> Int32
-> Text
-> Text
-> [TeamLinkWatcherArpPingFlags]
-> m TeamLinkWatcher
teamLinkWatcherNewArpPing2 Int32
initWait Int32
interval Int32
missedMax Int32
vlanid Text
targetHost Text
sourceHost [TeamLinkWatcherArpPingFlags]
flags = IO TeamLinkWatcher -> m TeamLinkWatcher
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TeamLinkWatcher -> m TeamLinkWatcher)
-> IO TeamLinkWatcher -> m TeamLinkWatcher
forall a b. (a -> b) -> a -> b
$ do
CString
targetHost' <- Text -> IO CString
textToCString Text
targetHost
CString
sourceHost' <- Text -> IO CString
textToCString Text
sourceHost
let flags' :: CUInt
flags' = [TeamLinkWatcherArpPingFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TeamLinkWatcherArpPingFlags]
flags
IO TeamLinkWatcher -> IO () -> IO TeamLinkWatcher
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TeamLinkWatcher
result <- (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher))
-> (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a b. (a -> b) -> a -> b
$ Int32
-> Int32
-> Int32
-> Int32
-> CString
-> CString
-> CUInt
-> Ptr (Ptr GError)
-> IO (Ptr TeamLinkWatcher)
nm_team_link_watcher_new_arp_ping2 Int32
initWait Int32
interval Int32
missedMax Int32
vlanid CString
targetHost' CString
sourceHost' CUInt
flags'
Text -> Ptr TeamLinkWatcher -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherNewArpPing2" Ptr TeamLinkWatcher
result
TeamLinkWatcher
result' <- ((ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher) Ptr TeamLinkWatcher
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
sourceHost'
TeamLinkWatcher -> IO TeamLinkWatcher
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TeamLinkWatcher
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
sourceHost'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_team_link_watcher_new_ethtool" nm_team_link_watcher_new_ethtool ::
Int32 ->
Int32 ->
Ptr (Ptr GError) ->
IO (Ptr TeamLinkWatcher)
teamLinkWatcherNewEthtool ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> m TeamLinkWatcher
teamLinkWatcherNewEthtool :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Int32 -> Int32 -> m TeamLinkWatcher
teamLinkWatcherNewEthtool Int32
delayUp Int32
delayDown = IO TeamLinkWatcher -> m TeamLinkWatcher
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TeamLinkWatcher -> m TeamLinkWatcher)
-> IO TeamLinkWatcher -> m TeamLinkWatcher
forall a b. (a -> b) -> a -> b
$ do
IO TeamLinkWatcher -> IO () -> IO TeamLinkWatcher
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TeamLinkWatcher
result <- (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher))
-> (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a b. (a -> b) -> a -> b
$ Int32 -> Int32 -> Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher)
nm_team_link_watcher_new_ethtool Int32
delayUp Int32
delayDown
Text -> Ptr TeamLinkWatcher -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherNewEthtool" Ptr TeamLinkWatcher
result
TeamLinkWatcher
result' <- ((ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher) Ptr TeamLinkWatcher
result
TeamLinkWatcher -> IO TeamLinkWatcher
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TeamLinkWatcher
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_team_link_watcher_new_nsna_ping" nm_team_link_watcher_new_nsna_ping ::
Int32 ->
Int32 ->
Int32 ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr TeamLinkWatcher)
teamLinkWatcherNewNsnaPing ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> Int32
-> T.Text
-> m TeamLinkWatcher
teamLinkWatcherNewNsnaPing :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Int32 -> Int32 -> Int32 -> Text -> m TeamLinkWatcher
teamLinkWatcherNewNsnaPing Int32
initWait Int32
interval Int32
missedMax Text
targetHost = IO TeamLinkWatcher -> m TeamLinkWatcher
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TeamLinkWatcher -> m TeamLinkWatcher)
-> IO TeamLinkWatcher -> m TeamLinkWatcher
forall a b. (a -> b) -> a -> b
$ do
CString
targetHost' <- Text -> IO CString
textToCString Text
targetHost
IO TeamLinkWatcher -> IO () -> IO TeamLinkWatcher
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TeamLinkWatcher
result <- (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher))
-> (Ptr (Ptr GError) -> IO (Ptr TeamLinkWatcher))
-> IO (Ptr TeamLinkWatcher)
forall a b. (a -> b) -> a -> b
$ Int32
-> Int32
-> Int32
-> CString
-> Ptr (Ptr GError)
-> IO (Ptr TeamLinkWatcher)
nm_team_link_watcher_new_nsna_ping Int32
initWait Int32
interval Int32
missedMax CString
targetHost'
Text -> Ptr TeamLinkWatcher -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherNewNsnaPing" Ptr TeamLinkWatcher
result
TeamLinkWatcher
result' <- ((ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher) Ptr TeamLinkWatcher
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
TeamLinkWatcher -> IO TeamLinkWatcher
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TeamLinkWatcher
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetHost'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_team_link_watcher_dup" nm_team_link_watcher_dup ::
Ptr TeamLinkWatcher ->
IO (Ptr TeamLinkWatcher)
teamLinkWatcherDup ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m TeamLinkWatcher
teamLinkWatcherDup :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m TeamLinkWatcher
teamLinkWatcherDup TeamLinkWatcher
watcher = IO TeamLinkWatcher -> m TeamLinkWatcher
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TeamLinkWatcher -> m TeamLinkWatcher)
-> IO TeamLinkWatcher -> m TeamLinkWatcher
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Ptr TeamLinkWatcher
result <- Ptr TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
nm_team_link_watcher_dup Ptr TeamLinkWatcher
watcher'
Text -> Ptr TeamLinkWatcher -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherDup" Ptr TeamLinkWatcher
result
TeamLinkWatcher
result' <- ((ManagedPtr TeamLinkWatcher -> TeamLinkWatcher)
-> Ptr TeamLinkWatcher -> IO TeamLinkWatcher
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TeamLinkWatcher -> TeamLinkWatcher
TeamLinkWatcher) Ptr TeamLinkWatcher
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
TeamLinkWatcher -> IO TeamLinkWatcher
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TeamLinkWatcher
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherDupMethodInfo
instance (signature ~ (m TeamLinkWatcher), MonadIO m) => O.OverloadedMethod TeamLinkWatcherDupMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherDup
instance O.OverloadedMethodInfo TeamLinkWatcherDupMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherDup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherDup"
})
#endif
foreign import ccall "nm_team_link_watcher_equal" nm_team_link_watcher_equal ::
Ptr TeamLinkWatcher ->
Ptr TeamLinkWatcher ->
IO CInt
teamLinkWatcherEqual ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> TeamLinkWatcher
-> m Bool
teamLinkWatcherEqual :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> TeamLinkWatcher -> m Bool
teamLinkWatcherEqual TeamLinkWatcher
watcher TeamLinkWatcher
other = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Ptr TeamLinkWatcher
other' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
other
CInt
result <- Ptr TeamLinkWatcher -> Ptr TeamLinkWatcher -> IO CInt
nm_team_link_watcher_equal Ptr TeamLinkWatcher
watcher' Ptr TeamLinkWatcher
other'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
other
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherEqualMethodInfo
instance (signature ~ (TeamLinkWatcher -> m Bool), MonadIO m) => O.OverloadedMethod TeamLinkWatcherEqualMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherEqual
instance O.OverloadedMethodInfo TeamLinkWatcherEqualMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherEqual",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherEqual"
})
#endif
foreign import ccall "nm_team_link_watcher_get_delay_down" nm_team_link_watcher_get_delay_down ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetDelayDown ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetDelayDown :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetDelayDown TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_delay_down Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetDelayDownMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetDelayDownMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetDelayDown
instance O.OverloadedMethodInfo TeamLinkWatcherGetDelayDownMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetDelayDown",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetDelayDown"
})
#endif
foreign import ccall "nm_team_link_watcher_get_delay_up" nm_team_link_watcher_get_delay_up ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetDelayUp ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetDelayUp :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetDelayUp TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_delay_up Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetDelayUpMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetDelayUpMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetDelayUp
instance O.OverloadedMethodInfo TeamLinkWatcherGetDelayUpMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetDelayUp",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetDelayUp"
})
#endif
foreign import ccall "nm_team_link_watcher_get_flags" nm_team_link_watcher_get_flags ::
Ptr TeamLinkWatcher ->
IO CUInt
teamLinkWatcherGetFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m [NM.Flags.TeamLinkWatcherArpPingFlags]
teamLinkWatcherGetFlags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m [TeamLinkWatcherArpPingFlags]
teamLinkWatcherGetFlags TeamLinkWatcher
watcher = IO [TeamLinkWatcherArpPingFlags] -> m [TeamLinkWatcherArpPingFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TeamLinkWatcherArpPingFlags]
-> m [TeamLinkWatcherArpPingFlags])
-> IO [TeamLinkWatcherArpPingFlags]
-> m [TeamLinkWatcherArpPingFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
CUInt
result <- Ptr TeamLinkWatcher -> IO CUInt
nm_team_link_watcher_get_flags Ptr TeamLinkWatcher
watcher'
let result' :: [TeamLinkWatcherArpPingFlags]
result' = CUInt -> [TeamLinkWatcherArpPingFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
[TeamLinkWatcherArpPingFlags] -> IO [TeamLinkWatcherArpPingFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [TeamLinkWatcherArpPingFlags]
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetFlagsMethodInfo
instance (signature ~ (m [NM.Flags.TeamLinkWatcherArpPingFlags]), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetFlagsMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetFlags
instance O.OverloadedMethodInfo TeamLinkWatcherGetFlagsMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetFlags"
})
#endif
foreign import ccall "nm_team_link_watcher_get_init_wait" nm_team_link_watcher_get_init_wait ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetInitWait ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetInitWait :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetInitWait TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_init_wait Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetInitWaitMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetInitWaitMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetInitWait
instance O.OverloadedMethodInfo TeamLinkWatcherGetInitWaitMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetInitWait",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetInitWait"
})
#endif
foreign import ccall "nm_team_link_watcher_get_interval" nm_team_link_watcher_get_interval ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetInterval ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetInterval :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetInterval TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_interval Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetIntervalMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetIntervalMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetInterval
instance O.OverloadedMethodInfo TeamLinkWatcherGetIntervalMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetInterval"
})
#endif
foreign import ccall "nm_team_link_watcher_get_missed_max" nm_team_link_watcher_get_missed_max ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetMissedMax ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetMissedMax :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetMissedMax TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_missed_max Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetMissedMaxMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetMissedMaxMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetMissedMax
instance O.OverloadedMethodInfo TeamLinkWatcherGetMissedMaxMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetMissedMax",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetMissedMax"
})
#endif
foreign import ccall "nm_team_link_watcher_get_name" nm_team_link_watcher_get_name ::
Ptr TeamLinkWatcher ->
IO CString
teamLinkWatcherGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m T.Text
teamLinkWatcherGetName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Text
teamLinkWatcherGetName TeamLinkWatcher
watcher = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
CString
result <- Ptr TeamLinkWatcher -> IO CString
nm_team_link_watcher_get_name Ptr TeamLinkWatcher
watcher'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetNameMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetName
instance O.OverloadedMethodInfo TeamLinkWatcherGetNameMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetName"
})
#endif
foreign import ccall "nm_team_link_watcher_get_source_host" nm_team_link_watcher_get_source_host ::
Ptr TeamLinkWatcher ->
IO CString
teamLinkWatcherGetSourceHost ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m T.Text
teamLinkWatcherGetSourceHost :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Text
teamLinkWatcherGetSourceHost TeamLinkWatcher
watcher = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
CString
result <- Ptr TeamLinkWatcher -> IO CString
nm_team_link_watcher_get_source_host Ptr TeamLinkWatcher
watcher'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherGetSourceHost" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetSourceHostMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetSourceHostMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetSourceHost
instance O.OverloadedMethodInfo TeamLinkWatcherGetSourceHostMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetSourceHost",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetSourceHost"
})
#endif
foreign import ccall "nm_team_link_watcher_get_target_host" nm_team_link_watcher_get_target_host ::
Ptr TeamLinkWatcher ->
IO CString
teamLinkWatcherGetTargetHost ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m T.Text
teamLinkWatcherGetTargetHost :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Text
teamLinkWatcherGetTargetHost TeamLinkWatcher
watcher = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
CString
result <- Ptr TeamLinkWatcher -> IO CString
nm_team_link_watcher_get_target_host Ptr TeamLinkWatcher
watcher'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"teamLinkWatcherGetTargetHost" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetTargetHostMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetTargetHostMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetTargetHost
instance O.OverloadedMethodInfo TeamLinkWatcherGetTargetHostMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetTargetHost",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetTargetHost"
})
#endif
foreign import ccall "nm_team_link_watcher_get_vlanid" nm_team_link_watcher_get_vlanid ::
Ptr TeamLinkWatcher ->
IO Int32
teamLinkWatcherGetVlanid ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m Int32
teamLinkWatcherGetVlanid :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m Int32
teamLinkWatcherGetVlanid TeamLinkWatcher
watcher = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Int32
result <- Ptr TeamLinkWatcher -> IO Int32
nm_team_link_watcher_get_vlanid Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherGetVlanidMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TeamLinkWatcherGetVlanidMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherGetVlanid
instance O.OverloadedMethodInfo TeamLinkWatcherGetVlanidMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherGetVlanid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherGetVlanid"
})
#endif
foreign import ccall "nm_team_link_watcher_ref" nm_team_link_watcher_ref ::
Ptr TeamLinkWatcher ->
IO ()
teamLinkWatcherRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m ()
teamLinkWatcherRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m ()
teamLinkWatcherRef TeamLinkWatcher
watcher = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Ptr TeamLinkWatcher -> IO ()
nm_team_link_watcher_ref Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherRefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod TeamLinkWatcherRefMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherRef
instance O.OverloadedMethodInfo TeamLinkWatcherRefMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherRef"
})
#endif
foreign import ccall "nm_team_link_watcher_unref" nm_team_link_watcher_unref ::
Ptr TeamLinkWatcher ->
IO ()
teamLinkWatcherUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
TeamLinkWatcher
-> m ()
teamLinkWatcherUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TeamLinkWatcher -> m ()
teamLinkWatcherUnref TeamLinkWatcher
watcher = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TeamLinkWatcher
watcher' <- TeamLinkWatcher -> IO (Ptr TeamLinkWatcher)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TeamLinkWatcher
watcher
Ptr TeamLinkWatcher -> IO ()
nm_team_link_watcher_unref Ptr TeamLinkWatcher
watcher'
TeamLinkWatcher -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TeamLinkWatcher
watcher
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TeamLinkWatcherUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod TeamLinkWatcherUnrefMethodInfo TeamLinkWatcher signature where
overloadedMethod = teamLinkWatcherUnref
instance O.OverloadedMethodInfo TeamLinkWatcherUnrefMethodInfo TeamLinkWatcher where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Structs.TeamLinkWatcher.teamLinkWatcherUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Structs-TeamLinkWatcher.html#v:teamLinkWatcherUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveTeamLinkWatcherMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTeamLinkWatcherMethod "dup" o = TeamLinkWatcherDupMethodInfo
ResolveTeamLinkWatcherMethod "equal" o = TeamLinkWatcherEqualMethodInfo
ResolveTeamLinkWatcherMethod "ref" o = TeamLinkWatcherRefMethodInfo
ResolveTeamLinkWatcherMethod "unref" o = TeamLinkWatcherUnrefMethodInfo
ResolveTeamLinkWatcherMethod "getDelayDown" o = TeamLinkWatcherGetDelayDownMethodInfo
ResolveTeamLinkWatcherMethod "getDelayUp" o = TeamLinkWatcherGetDelayUpMethodInfo
ResolveTeamLinkWatcherMethod "getFlags" o = TeamLinkWatcherGetFlagsMethodInfo
ResolveTeamLinkWatcherMethod "getInitWait" o = TeamLinkWatcherGetInitWaitMethodInfo
ResolveTeamLinkWatcherMethod "getInterval" o = TeamLinkWatcherGetIntervalMethodInfo
ResolveTeamLinkWatcherMethod "getMissedMax" o = TeamLinkWatcherGetMissedMaxMethodInfo
ResolveTeamLinkWatcherMethod "getName" o = TeamLinkWatcherGetNameMethodInfo
ResolveTeamLinkWatcherMethod "getSourceHost" o = TeamLinkWatcherGetSourceHostMethodInfo
ResolveTeamLinkWatcherMethod "getTargetHost" o = TeamLinkWatcherGetTargetHostMethodInfo
ResolveTeamLinkWatcherMethod "getVlanid" o = TeamLinkWatcherGetVlanidMethodInfo
ResolveTeamLinkWatcherMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTeamLinkWatcherMethod t TeamLinkWatcher, O.OverloadedMethod info TeamLinkWatcher p) => OL.IsLabel t (TeamLinkWatcher -> 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 ~ ResolveTeamLinkWatcherMethod t TeamLinkWatcher, O.OverloadedMethod info TeamLinkWatcher p, R.HasField t TeamLinkWatcher p) => R.HasField t TeamLinkWatcher p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTeamLinkWatcherMethod t TeamLinkWatcher, O.OverloadedMethodInfo info TeamLinkWatcher) => OL.IsLabel t (O.MethodProxy info TeamLinkWatcher) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif