{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.SettingOvsBridge
(
SettingOvsBridge(..) ,
IsSettingOvsBridge ,
toSettingOvsBridge ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingOvsBridgeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeGetDatapathTypeMethodInfo,
#endif
settingOvsBridgeGetDatapathType ,
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeGetFailModeMethodInfo ,
#endif
settingOvsBridgeGetFailMode ,
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeGetMcastSnoopingEnableMethodInfo,
#endif
settingOvsBridgeGetMcastSnoopingEnable ,
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeGetRstpEnableMethodInfo ,
#endif
settingOvsBridgeGetRstpEnable ,
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeGetStpEnableMethodInfo ,
#endif
settingOvsBridgeGetStpEnable ,
settingOvsBridgeNew ,
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeDatapathTypePropertyInfo,
#endif
clearSettingOvsBridgeDatapathType ,
constructSettingOvsBridgeDatapathType ,
getSettingOvsBridgeDatapathType ,
setSettingOvsBridgeDatapathType ,
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeDatapathType ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeFailModePropertyInfo ,
#endif
clearSettingOvsBridgeFailMode ,
constructSettingOvsBridgeFailMode ,
getSettingOvsBridgeFailMode ,
setSettingOvsBridgeFailMode ,
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeFailMode ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeMcastSnoopingEnablePropertyInfo,
#endif
constructSettingOvsBridgeMcastSnoopingEnable,
getSettingOvsBridgeMcastSnoopingEnable ,
setSettingOvsBridgeMcastSnoopingEnable ,
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeMcastSnoopingEnable ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeRstpEnablePropertyInfo ,
#endif
constructSettingOvsBridgeRstpEnable ,
getSettingOvsBridgeRstpEnable ,
setSettingOvsBridgeRstpEnable ,
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeRstpEnable ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingOvsBridgeStpEnablePropertyInfo ,
#endif
constructSettingOvsBridgeStpEnable ,
getSettingOvsBridgeStpEnable ,
setSettingOvsBridgeStpEnable ,
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeStpEnable ,
#endif
) 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 qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.NM.Callbacks as NM.Callbacks
import {-# SOURCE #-} qualified GI.NM.Enums as NM.Enums
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
import {-# SOURCE #-} qualified GI.NM.Interfaces.Connection as NM.Connection
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
import {-# SOURCE #-} qualified GI.NM.Objects.Setting8021x as NM.Setting8021x
import {-# SOURCE #-} qualified GI.NM.Objects.SettingAdsl as NM.SettingAdsl
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBluetooth as NM.SettingBluetooth
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBond as NM.SettingBond
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridge as NM.SettingBridge
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridgePort as NM.SettingBridgePort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingCdma as NM.SettingCdma
import {-# SOURCE #-} qualified GI.NM.Objects.SettingConnection as NM.SettingConnection
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDcb as NM.SettingDcb
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDummy as NM.SettingDummy
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGeneric as NM.SettingGeneric
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGsm as NM.SettingGsm
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP4Config as NM.SettingIP4Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP6Config as NM.SettingIP6Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPConfig as NM.SettingIPConfig
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPTunnel as NM.SettingIPTunnel
import {-# SOURCE #-} qualified GI.NM.Objects.SettingInfiniband as NM.SettingInfiniband
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacsec as NM.SettingMacsec
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacvlan as NM.SettingMacvlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOlpcMesh as NM.SettingOlpcMesh
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsInterface as NM.SettingOvsInterface
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsPatch as NM.SettingOvsPatch
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsPort as NM.SettingOvsPort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingPpp as NM.SettingPpp
import {-# SOURCE #-} qualified GI.NM.Objects.SettingPppoe as NM.SettingPppoe
import {-# SOURCE #-} qualified GI.NM.Objects.SettingProxy as NM.SettingProxy
import {-# SOURCE #-} qualified GI.NM.Objects.SettingSerial as NM.SettingSerial
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTCConfig as NM.SettingTCConfig
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTeam as NM.SettingTeam
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTeamPort as NM.SettingTeamPort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTun as NM.SettingTun
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVlan as NM.SettingVlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVpn as NM.SettingVpn
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVxlan as NM.SettingVxlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWimax as NM.SettingWimax
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWired as NM.SettingWired
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWireless as NM.SettingWireless
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWirelessSecurity as NM.SettingWirelessSecurity
import {-# SOURCE #-} qualified GI.NM.Structs.BridgeVlan as NM.BridgeVlan
import {-# SOURCE #-} qualified GI.NM.Structs.IPAddress as NM.IPAddress
import {-# SOURCE #-} qualified GI.NM.Structs.IPRoute as NM.IPRoute
import {-# SOURCE #-} qualified GI.NM.Structs.IPRoutingRule as NM.IPRoutingRule
import {-# SOURCE #-} qualified GI.NM.Structs.Range as NM.Range
import {-# SOURCE #-} qualified GI.NM.Structs.TCAction as NM.TCAction
import {-# SOURCE #-} qualified GI.NM.Structs.TCQdisc as NM.TCQdisc
import {-# SOURCE #-} qualified GI.NM.Structs.TCTfilter as NM.TCTfilter
import {-# SOURCE #-} qualified GI.NM.Structs.TeamLinkWatcher as NM.TeamLinkWatcher
import {-# SOURCE #-} qualified GI.NM.Structs.VariantAttributeSpec as NM.VariantAttributeSpec
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
#endif
newtype SettingOvsBridge = SettingOvsBridge (SP.ManagedPtr SettingOvsBridge)
deriving (SettingOvsBridge -> SettingOvsBridge -> Bool
(SettingOvsBridge -> SettingOvsBridge -> Bool)
-> (SettingOvsBridge -> SettingOvsBridge -> Bool)
-> Eq SettingOvsBridge
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingOvsBridge -> SettingOvsBridge -> Bool
== :: SettingOvsBridge -> SettingOvsBridge -> Bool
$c/= :: SettingOvsBridge -> SettingOvsBridge -> Bool
/= :: SettingOvsBridge -> SettingOvsBridge -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingOvsBridge where
toManagedPtr :: SettingOvsBridge -> ManagedPtr SettingOvsBridge
toManagedPtr (SettingOvsBridge ManagedPtr SettingOvsBridge
p) = ManagedPtr SettingOvsBridge
p
foreign import ccall "nm_setting_ovs_bridge_get_type"
c_nm_setting_ovs_bridge_get_type :: IO B.Types.GType
instance B.Types.TypedObject SettingOvsBridge where
glibType :: IO GType
glibType = IO GType
c_nm_setting_ovs_bridge_get_type
instance B.Types.GObject SettingOvsBridge
class (SP.GObject o, O.IsDescendantOf SettingOvsBridge o) => IsSettingOvsBridge o
instance (SP.GObject o, O.IsDescendantOf SettingOvsBridge o) => IsSettingOvsBridge o
instance O.HasParentTypes SettingOvsBridge
type instance O.ParentTypes SettingOvsBridge = '[NM.Setting.Setting, GObject.Object.Object]
toSettingOvsBridge :: (MIO.MonadIO m, IsSettingOvsBridge o) => o -> m SettingOvsBridge
toSettingOvsBridge :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m SettingOvsBridge
toSettingOvsBridge = IO SettingOvsBridge -> m SettingOvsBridge
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SettingOvsBridge -> m SettingOvsBridge)
-> (o -> IO SettingOvsBridge) -> o -> m SettingOvsBridge
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SettingOvsBridge -> SettingOvsBridge)
-> o -> IO SettingOvsBridge
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SettingOvsBridge -> SettingOvsBridge
SettingOvsBridge
instance B.GValue.IsGValue (Maybe SettingOvsBridge) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_setting_ovs_bridge_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingOvsBridge -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingOvsBridge
P.Nothing = Ptr GValue -> Ptr SettingOvsBridge -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SettingOvsBridge
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingOvsBridge)
gvalueSet_ Ptr GValue
gv (P.Just SettingOvsBridge
obj) = SettingOvsBridge -> (Ptr SettingOvsBridge -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingOvsBridge
obj (Ptr GValue -> Ptr SettingOvsBridge -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingOvsBridge)
gvalueGet_ Ptr GValue
gv = do
Ptr SettingOvsBridge
ptr <- Ptr GValue -> IO (Ptr SettingOvsBridge)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SettingOvsBridge)
if Ptr SettingOvsBridge
ptr Ptr SettingOvsBridge -> Ptr SettingOvsBridge -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingOvsBridge
forall a. Ptr a
FP.nullPtr
then SettingOvsBridge -> Maybe SettingOvsBridge
forall a. a -> Maybe a
P.Just (SettingOvsBridge -> Maybe SettingOvsBridge)
-> IO SettingOvsBridge -> IO (Maybe SettingOvsBridge)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingOvsBridge -> SettingOvsBridge)
-> Ptr SettingOvsBridge -> IO SettingOvsBridge
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SettingOvsBridge -> SettingOvsBridge
SettingOvsBridge Ptr SettingOvsBridge
ptr
else Maybe SettingOvsBridge -> IO (Maybe SettingOvsBridge)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingOvsBridge
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingOvsBridgeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingOvsBridgeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingOvsBridgeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingOvsBridgeMethod "compare" o = NM.Setting.SettingCompareMethodInfo
ResolveSettingOvsBridgeMethod "diff" o = NM.Setting.SettingDiffMethodInfo
ResolveSettingOvsBridgeMethod "duplicate" o = NM.Setting.SettingDuplicateMethodInfo
ResolveSettingOvsBridgeMethod "enumerateValues" o = NM.Setting.SettingEnumerateValuesMethodInfo
ResolveSettingOvsBridgeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingOvsBridgeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingOvsBridgeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingOvsBridgeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingOvsBridgeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingOvsBridgeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingOvsBridgeMethod "optionClearByName" o = NM.Setting.SettingOptionClearByNameMethodInfo
ResolveSettingOvsBridgeMethod "optionGet" o = NM.Setting.SettingOptionGetMethodInfo
ResolveSettingOvsBridgeMethod "optionGetAllNames" o = NM.Setting.SettingOptionGetAllNamesMethodInfo
ResolveSettingOvsBridgeMethod "optionGetBoolean" o = NM.Setting.SettingOptionGetBooleanMethodInfo
ResolveSettingOvsBridgeMethod "optionGetUint32" o = NM.Setting.SettingOptionGetUint32MethodInfo
ResolveSettingOvsBridgeMethod "optionSet" o = NM.Setting.SettingOptionSetMethodInfo
ResolveSettingOvsBridgeMethod "optionSetBoolean" o = NM.Setting.SettingOptionSetBooleanMethodInfo
ResolveSettingOvsBridgeMethod "optionSetUint32" o = NM.Setting.SettingOptionSetUint32MethodInfo
ResolveSettingOvsBridgeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingOvsBridgeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingOvsBridgeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingOvsBridgeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingOvsBridgeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingOvsBridgeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingOvsBridgeMethod "toString" o = NM.Setting.SettingToStringMethodInfo
ResolveSettingOvsBridgeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingOvsBridgeMethod "verify" o = NM.Setting.SettingVerifyMethodInfo
ResolveSettingOvsBridgeMethod "verifySecrets" o = NM.Setting.SettingVerifySecretsMethodInfo
ResolveSettingOvsBridgeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingOvsBridgeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingOvsBridgeMethod "getDatapathType" o = SettingOvsBridgeGetDatapathTypeMethodInfo
ResolveSettingOvsBridgeMethod "getDbusPropertyType" o = NM.Setting.SettingGetDbusPropertyTypeMethodInfo
ResolveSettingOvsBridgeMethod "getFailMode" o = SettingOvsBridgeGetFailModeMethodInfo
ResolveSettingOvsBridgeMethod "getMcastSnoopingEnable" o = SettingOvsBridgeGetMcastSnoopingEnableMethodInfo
ResolveSettingOvsBridgeMethod "getName" o = NM.Setting.SettingGetNameMethodInfo
ResolveSettingOvsBridgeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingOvsBridgeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingOvsBridgeMethod "getRstpEnable" o = SettingOvsBridgeGetRstpEnableMethodInfo
ResolveSettingOvsBridgeMethod "getSecretFlags" o = NM.Setting.SettingGetSecretFlagsMethodInfo
ResolveSettingOvsBridgeMethod "getStpEnable" o = SettingOvsBridgeGetStpEnableMethodInfo
ResolveSettingOvsBridgeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingOvsBridgeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingOvsBridgeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingOvsBridgeMethod "setSecretFlags" o = NM.Setting.SettingSetSecretFlagsMethodInfo
ResolveSettingOvsBridgeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingOvsBridgeMethod t SettingOvsBridge, O.OverloadedMethod info SettingOvsBridge p) => OL.IsLabel t (SettingOvsBridge -> 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 ~ ResolveSettingOvsBridgeMethod t SettingOvsBridge, O.OverloadedMethod info SettingOvsBridge p, R.HasField t SettingOvsBridge p) => R.HasField t SettingOvsBridge p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingOvsBridgeMethod t SettingOvsBridge, O.OverloadedMethodInfo info SettingOvsBridge) => OL.IsLabel t (O.MethodProxy info SettingOvsBridge) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingOvsBridgeDatapathType :: (MonadIO m, IsSettingOvsBridge o) => o -> m T.Text
getSettingOvsBridgeDatapathType :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m Text
getSettingOvsBridgeDatapathType o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSettingOvsBridgeDatapathType" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"datapath-type"
setSettingOvsBridgeDatapathType :: (MonadIO m, IsSettingOvsBridge o) => o -> T.Text -> m ()
setSettingOvsBridgeDatapathType :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> Text -> m ()
setSettingOvsBridgeDatapathType o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"datapath-type" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingOvsBridgeDatapathType :: (IsSettingOvsBridge o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingOvsBridgeDatapathType :: forall o (m :: * -> *).
(IsSettingOvsBridge o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingOvsBridgeDatapathType Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"datapath-type" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingOvsBridgeDatapathType :: (MonadIO m, IsSettingOvsBridge o) => o -> m ()
clearSettingOvsBridgeDatapathType :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m ()
clearSettingOvsBridgeDatapathType o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"datapath-type" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeDatapathTypePropertyInfo
instance AttrInfo SettingOvsBridgeDatapathTypePropertyInfo where
type AttrAllowedOps SettingOvsBridgeDatapathTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingOvsBridgeDatapathTypePropertyInfo = IsSettingOvsBridge
type AttrSetTypeConstraint SettingOvsBridgeDatapathTypePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingOvsBridgeDatapathTypePropertyInfo = (~) T.Text
type AttrTransferType SettingOvsBridgeDatapathTypePropertyInfo = T.Text
type AttrGetType SettingOvsBridgeDatapathTypePropertyInfo = T.Text
type AttrLabel SettingOvsBridgeDatapathTypePropertyInfo = "datapath-type"
type AttrOrigin SettingOvsBridgeDatapathTypePropertyInfo = SettingOvsBridge
attrGet = getSettingOvsBridgeDatapathType
attrSet = setSettingOvsBridgeDatapathType
attrTransfer _ v = do
return v
attrConstruct = constructSettingOvsBridgeDatapathType
attrClear = clearSettingOvsBridgeDatapathType
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.datapathType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#g:attr:datapathType"
})
#endif
getSettingOvsBridgeFailMode :: (MonadIO m, IsSettingOvsBridge o) => o -> m T.Text
getSettingOvsBridgeFailMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m Text
getSettingOvsBridgeFailMode o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSettingOvsBridgeFailMode" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"fail-mode"
setSettingOvsBridgeFailMode :: (MonadIO m, IsSettingOvsBridge o) => o -> T.Text -> m ()
setSettingOvsBridgeFailMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> Text -> m ()
setSettingOvsBridgeFailMode o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"fail-mode" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingOvsBridgeFailMode :: (IsSettingOvsBridge o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingOvsBridgeFailMode :: forall o (m :: * -> *).
(IsSettingOvsBridge o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingOvsBridgeFailMode Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"fail-mode" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingOvsBridgeFailMode :: (MonadIO m, IsSettingOvsBridge o) => o -> m ()
clearSettingOvsBridgeFailMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m ()
clearSettingOvsBridgeFailMode o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"fail-mode" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeFailModePropertyInfo
instance AttrInfo SettingOvsBridgeFailModePropertyInfo where
type AttrAllowedOps SettingOvsBridgeFailModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingOvsBridgeFailModePropertyInfo = IsSettingOvsBridge
type AttrSetTypeConstraint SettingOvsBridgeFailModePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingOvsBridgeFailModePropertyInfo = (~) T.Text
type AttrTransferType SettingOvsBridgeFailModePropertyInfo = T.Text
type AttrGetType SettingOvsBridgeFailModePropertyInfo = T.Text
type AttrLabel SettingOvsBridgeFailModePropertyInfo = "fail-mode"
type AttrOrigin SettingOvsBridgeFailModePropertyInfo = SettingOvsBridge
attrGet = getSettingOvsBridgeFailMode
attrSet = setSettingOvsBridgeFailMode
attrTransfer _ v = do
return v
attrConstruct = constructSettingOvsBridgeFailMode
attrClear = clearSettingOvsBridgeFailMode
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.failMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#g:attr:failMode"
})
#endif
getSettingOvsBridgeMcastSnoopingEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> m Bool
getSettingOvsBridgeMcastSnoopingEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m Bool
getSettingOvsBridgeMcastSnoopingEnable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"mcast-snooping-enable"
setSettingOvsBridgeMcastSnoopingEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> Bool -> m ()
setSettingOvsBridgeMcastSnoopingEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> Bool -> m ()
setSettingOvsBridgeMcastSnoopingEnable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"mcast-snooping-enable" Bool
val
constructSettingOvsBridgeMcastSnoopingEnable :: (IsSettingOvsBridge o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingOvsBridgeMcastSnoopingEnable :: forall o (m :: * -> *).
(IsSettingOvsBridge o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingOvsBridgeMcastSnoopingEnable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"mcast-snooping-enable" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeMcastSnoopingEnablePropertyInfo
instance AttrInfo SettingOvsBridgeMcastSnoopingEnablePropertyInfo where
type AttrAllowedOps SettingOvsBridgeMcastSnoopingEnablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingOvsBridgeMcastSnoopingEnablePropertyInfo = IsSettingOvsBridge
type AttrSetTypeConstraint SettingOvsBridgeMcastSnoopingEnablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingOvsBridgeMcastSnoopingEnablePropertyInfo = (~) Bool
type AttrTransferType SettingOvsBridgeMcastSnoopingEnablePropertyInfo = Bool
type AttrGetType SettingOvsBridgeMcastSnoopingEnablePropertyInfo = Bool
type AttrLabel SettingOvsBridgeMcastSnoopingEnablePropertyInfo = "mcast-snooping-enable"
type AttrOrigin SettingOvsBridgeMcastSnoopingEnablePropertyInfo = SettingOvsBridge
attrGet = getSettingOvsBridgeMcastSnoopingEnable
attrSet = setSettingOvsBridgeMcastSnoopingEnable
attrTransfer _ v = do
return v
attrConstruct = constructSettingOvsBridgeMcastSnoopingEnable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.mcastSnoopingEnable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#g:attr:mcastSnoopingEnable"
})
#endif
getSettingOvsBridgeRstpEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> m Bool
getSettingOvsBridgeRstpEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m Bool
getSettingOvsBridgeRstpEnable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"rstp-enable"
setSettingOvsBridgeRstpEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> Bool -> m ()
setSettingOvsBridgeRstpEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> Bool -> m ()
setSettingOvsBridgeRstpEnable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rstp-enable" Bool
val
constructSettingOvsBridgeRstpEnable :: (IsSettingOvsBridge o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingOvsBridgeRstpEnable :: forall o (m :: * -> *).
(IsSettingOvsBridge o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingOvsBridgeRstpEnable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"rstp-enable" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeRstpEnablePropertyInfo
instance AttrInfo SettingOvsBridgeRstpEnablePropertyInfo where
type AttrAllowedOps SettingOvsBridgeRstpEnablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingOvsBridgeRstpEnablePropertyInfo = IsSettingOvsBridge
type AttrSetTypeConstraint SettingOvsBridgeRstpEnablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingOvsBridgeRstpEnablePropertyInfo = (~) Bool
type AttrTransferType SettingOvsBridgeRstpEnablePropertyInfo = Bool
type AttrGetType SettingOvsBridgeRstpEnablePropertyInfo = Bool
type AttrLabel SettingOvsBridgeRstpEnablePropertyInfo = "rstp-enable"
type AttrOrigin SettingOvsBridgeRstpEnablePropertyInfo = SettingOvsBridge
attrGet = getSettingOvsBridgeRstpEnable
attrSet = setSettingOvsBridgeRstpEnable
attrTransfer _ v = do
return v
attrConstruct = constructSettingOvsBridgeRstpEnable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.rstpEnable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#g:attr:rstpEnable"
})
#endif
getSettingOvsBridgeStpEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> m Bool
getSettingOvsBridgeStpEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> m Bool
getSettingOvsBridgeStpEnable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"stp-enable"
setSettingOvsBridgeStpEnable :: (MonadIO m, IsSettingOvsBridge o) => o -> Bool -> m ()
setSettingOvsBridgeStpEnable :: forall (m :: * -> *) o.
(MonadIO m, IsSettingOvsBridge o) =>
o -> Bool -> m ()
setSettingOvsBridgeStpEnable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"stp-enable" Bool
val
constructSettingOvsBridgeStpEnable :: (IsSettingOvsBridge o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingOvsBridgeStpEnable :: forall o (m :: * -> *).
(IsSettingOvsBridge o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingOvsBridgeStpEnable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"stp-enable" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeStpEnablePropertyInfo
instance AttrInfo SettingOvsBridgeStpEnablePropertyInfo where
type AttrAllowedOps SettingOvsBridgeStpEnablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingOvsBridgeStpEnablePropertyInfo = IsSettingOvsBridge
type AttrSetTypeConstraint SettingOvsBridgeStpEnablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingOvsBridgeStpEnablePropertyInfo = (~) Bool
type AttrTransferType SettingOvsBridgeStpEnablePropertyInfo = Bool
type AttrGetType SettingOvsBridgeStpEnablePropertyInfo = Bool
type AttrLabel SettingOvsBridgeStpEnablePropertyInfo = "stp-enable"
type AttrOrigin SettingOvsBridgeStpEnablePropertyInfo = SettingOvsBridge
attrGet = getSettingOvsBridgeStpEnable
attrSet = setSettingOvsBridgeStpEnable
attrTransfer _ v = do
return v
attrConstruct = constructSettingOvsBridgeStpEnable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.stpEnable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#g:attr:stpEnable"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingOvsBridge
type instance O.AttributeList SettingOvsBridge = SettingOvsBridgeAttributeList
type SettingOvsBridgeAttributeList = ('[ '("datapathType", SettingOvsBridgeDatapathTypePropertyInfo), '("failMode", SettingOvsBridgeFailModePropertyInfo), '("mcastSnoopingEnable", SettingOvsBridgeMcastSnoopingEnablePropertyInfo), '("name", NM.Setting.SettingNamePropertyInfo), '("rstpEnable", SettingOvsBridgeRstpEnablePropertyInfo), '("stpEnable", SettingOvsBridgeStpEnablePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingOvsBridgeDatapathType :: AttrLabelProxy "datapathType"
settingOvsBridgeDatapathType = AttrLabelProxy
settingOvsBridgeFailMode :: AttrLabelProxy "failMode"
settingOvsBridgeFailMode = AttrLabelProxy
settingOvsBridgeMcastSnoopingEnable :: AttrLabelProxy "mcastSnoopingEnable"
settingOvsBridgeMcastSnoopingEnable = AttrLabelProxy
settingOvsBridgeRstpEnable :: AttrLabelProxy "rstpEnable"
settingOvsBridgeRstpEnable = AttrLabelProxy
settingOvsBridgeStpEnable :: AttrLabelProxy "stpEnable"
settingOvsBridgeStpEnable = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SettingOvsBridge = SettingOvsBridgeSignalList
type SettingOvsBridgeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_setting_ovs_bridge_new" nm_setting_ovs_bridge_new ::
IO (Ptr SettingOvsBridge)
settingOvsBridgeNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SettingOvsBridge
settingOvsBridgeNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m SettingOvsBridge
settingOvsBridgeNew = IO SettingOvsBridge -> m SettingOvsBridge
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingOvsBridge -> m SettingOvsBridge)
-> IO SettingOvsBridge -> m SettingOvsBridge
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingOvsBridge
result <- IO (Ptr SettingOvsBridge)
nm_setting_ovs_bridge_new
Text -> Ptr SettingOvsBridge -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingOvsBridgeNew" Ptr SettingOvsBridge
result
SettingOvsBridge
result' <- ((ManagedPtr SettingOvsBridge -> SettingOvsBridge)
-> Ptr SettingOvsBridge -> IO SettingOvsBridge
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SettingOvsBridge -> SettingOvsBridge
SettingOvsBridge) Ptr SettingOvsBridge
result
SettingOvsBridge -> IO SettingOvsBridge
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingOvsBridge
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_setting_ovs_bridge_get_datapath_type" nm_setting_ovs_bridge_get_datapath_type ::
Ptr SettingOvsBridge ->
IO CString
settingOvsBridgeGetDatapathType ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a
-> m T.Text
settingOvsBridgeGetDatapathType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a -> m Text
settingOvsBridgeGetDatapathType a
self = 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 SettingOvsBridge
self' <- a -> IO (Ptr SettingOvsBridge)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr SettingOvsBridge -> IO CString
nm_setting_ovs_bridge_get_datapath_type Ptr SettingOvsBridge
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingOvsBridgeGetDatapathType" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeGetDatapathTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingOvsBridge a) => O.OverloadedMethod SettingOvsBridgeGetDatapathTypeMethodInfo a signature where
overloadedMethod = settingOvsBridgeGetDatapathType
instance O.OverloadedMethodInfo SettingOvsBridgeGetDatapathTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.settingOvsBridgeGetDatapathType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#v:settingOvsBridgeGetDatapathType"
})
#endif
foreign import ccall "nm_setting_ovs_bridge_get_fail_mode" nm_setting_ovs_bridge_get_fail_mode ::
Ptr SettingOvsBridge ->
IO CString
settingOvsBridgeGetFailMode ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a
-> m T.Text
settingOvsBridgeGetFailMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a -> m Text
settingOvsBridgeGetFailMode a
self = 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 SettingOvsBridge
self' <- a -> IO (Ptr SettingOvsBridge)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr SettingOvsBridge -> IO CString
nm_setting_ovs_bridge_get_fail_mode Ptr SettingOvsBridge
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingOvsBridgeGetFailMode" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeGetFailModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingOvsBridge a) => O.OverloadedMethod SettingOvsBridgeGetFailModeMethodInfo a signature where
overloadedMethod = settingOvsBridgeGetFailMode
instance O.OverloadedMethodInfo SettingOvsBridgeGetFailModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.settingOvsBridgeGetFailMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#v:settingOvsBridgeGetFailMode"
})
#endif
foreign import ccall "nm_setting_ovs_bridge_get_mcast_snooping_enable" nm_setting_ovs_bridge_get_mcast_snooping_enable ::
Ptr SettingOvsBridge ->
IO CInt
settingOvsBridgeGetMcastSnoopingEnable ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a
-> m Bool
settingOvsBridgeGetMcastSnoopingEnable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a -> m Bool
settingOvsBridgeGetMcastSnoopingEnable a
self = 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 SettingOvsBridge
self' <- a -> IO (Ptr SettingOvsBridge)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SettingOvsBridge -> IO CInt
nm_setting_ovs_bridge_get_mcast_snooping_enable Ptr SettingOvsBridge
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeGetMcastSnoopingEnableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingOvsBridge a) => O.OverloadedMethod SettingOvsBridgeGetMcastSnoopingEnableMethodInfo a signature where
overloadedMethod = settingOvsBridgeGetMcastSnoopingEnable
instance O.OverloadedMethodInfo SettingOvsBridgeGetMcastSnoopingEnableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.settingOvsBridgeGetMcastSnoopingEnable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#v:settingOvsBridgeGetMcastSnoopingEnable"
})
#endif
foreign import ccall "nm_setting_ovs_bridge_get_rstp_enable" nm_setting_ovs_bridge_get_rstp_enable ::
Ptr SettingOvsBridge ->
IO CInt
settingOvsBridgeGetRstpEnable ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a
-> m Bool
settingOvsBridgeGetRstpEnable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a -> m Bool
settingOvsBridgeGetRstpEnable a
self = 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 SettingOvsBridge
self' <- a -> IO (Ptr SettingOvsBridge)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SettingOvsBridge -> IO CInt
nm_setting_ovs_bridge_get_rstp_enable Ptr SettingOvsBridge
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeGetRstpEnableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingOvsBridge a) => O.OverloadedMethod SettingOvsBridgeGetRstpEnableMethodInfo a signature where
overloadedMethod = settingOvsBridgeGetRstpEnable
instance O.OverloadedMethodInfo SettingOvsBridgeGetRstpEnableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.settingOvsBridgeGetRstpEnable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#v:settingOvsBridgeGetRstpEnable"
})
#endif
foreign import ccall "nm_setting_ovs_bridge_get_stp_enable" nm_setting_ovs_bridge_get_stp_enable ::
Ptr SettingOvsBridge ->
IO CInt
settingOvsBridgeGetStpEnable ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a
-> m Bool
settingOvsBridgeGetStpEnable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingOvsBridge a) =>
a -> m Bool
settingOvsBridgeGetStpEnable a
self = 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 SettingOvsBridge
self' <- a -> IO (Ptr SettingOvsBridge)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SettingOvsBridge -> IO CInt
nm_setting_ovs_bridge_get_stp_enable Ptr SettingOvsBridge
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingOvsBridgeGetStpEnableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingOvsBridge a) => O.OverloadedMethod SettingOvsBridgeGetStpEnableMethodInfo a signature where
overloadedMethod = settingOvsBridgeGetStpEnable
instance O.OverloadedMethodInfo SettingOvsBridgeGetStpEnableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingOvsBridge.settingOvsBridgeGetStpEnable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingOvsBridge.html#v:settingOvsBridgeGetStpEnable"
})
#endif