{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.SettingIPTunnel
(
SettingIPTunnel(..) ,
IsSettingIPTunnel ,
toSettingIPTunnel ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingIPTunnelMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetEncapsulationLimitMethodInfo,
#endif
settingIPTunnelGetEncapsulationLimit ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetFlagsMethodInfo ,
#endif
settingIPTunnelGetFlags ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetFlowLabelMethodInfo ,
#endif
settingIPTunnelGetFlowLabel ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetFwmarkMethodInfo ,
#endif
settingIPTunnelGetFwmark ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetInputKeyMethodInfo ,
#endif
settingIPTunnelGetInputKey ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetLocalMethodInfo ,
#endif
settingIPTunnelGetLocal ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetModeMethodInfo ,
#endif
settingIPTunnelGetMode ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetMtuMethodInfo ,
#endif
settingIPTunnelGetMtu ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetOutputKeyMethodInfo ,
#endif
settingIPTunnelGetOutputKey ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetParentMethodInfo ,
#endif
settingIPTunnelGetParent ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetPathMtuDiscoveryMethodInfo,
#endif
settingIPTunnelGetPathMtuDiscovery ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetRemoteMethodInfo ,
#endif
settingIPTunnelGetRemote ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetTosMethodInfo ,
#endif
settingIPTunnelGetTos ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelGetTtlMethodInfo ,
#endif
settingIPTunnelGetTtl ,
settingIPTunnelNew ,
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelEncapsulationLimitPropertyInfo,
#endif
constructSettingIPTunnelEncapsulationLimit,
getSettingIPTunnelEncapsulationLimit ,
setSettingIPTunnelEncapsulationLimit ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelEncapsulationLimit ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelFlagsPropertyInfo ,
#endif
constructSettingIPTunnelFlags ,
getSettingIPTunnelFlags ,
setSettingIPTunnelFlags ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelFlags ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelFlowLabelPropertyInfo ,
#endif
constructSettingIPTunnelFlowLabel ,
getSettingIPTunnelFlowLabel ,
setSettingIPTunnelFlowLabel ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelFlowLabel ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelFwmarkPropertyInfo ,
#endif
constructSettingIPTunnelFwmark ,
getSettingIPTunnelFwmark ,
setSettingIPTunnelFwmark ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelFwmark ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelInputKeyPropertyInfo ,
#endif
clearSettingIPTunnelInputKey ,
constructSettingIPTunnelInputKey ,
getSettingIPTunnelInputKey ,
setSettingIPTunnelInputKey ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelInputKey ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelLocalPropertyInfo ,
#endif
clearSettingIPTunnelLocal ,
constructSettingIPTunnelLocal ,
getSettingIPTunnelLocal ,
setSettingIPTunnelLocal ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelLocal ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelModePropertyInfo ,
#endif
constructSettingIPTunnelMode ,
getSettingIPTunnelMode ,
setSettingIPTunnelMode ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelMode ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelMtuPropertyInfo ,
#endif
constructSettingIPTunnelMtu ,
getSettingIPTunnelMtu ,
setSettingIPTunnelMtu ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelMtu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelOutputKeyPropertyInfo ,
#endif
clearSettingIPTunnelOutputKey ,
constructSettingIPTunnelOutputKey ,
getSettingIPTunnelOutputKey ,
setSettingIPTunnelOutputKey ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelOutputKey ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelParentPropertyInfo ,
#endif
clearSettingIPTunnelParent ,
constructSettingIPTunnelParent ,
getSettingIPTunnelParent ,
setSettingIPTunnelParent ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelParent ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelPathMtuDiscoveryPropertyInfo,
#endif
constructSettingIPTunnelPathMtuDiscovery,
getSettingIPTunnelPathMtuDiscovery ,
setSettingIPTunnelPathMtuDiscovery ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelPathMtuDiscovery ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelRemotePropertyInfo ,
#endif
clearSettingIPTunnelRemote ,
constructSettingIPTunnelRemote ,
getSettingIPTunnelRemote ,
setSettingIPTunnelRemote ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelRemote ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelTosPropertyInfo ,
#endif
constructSettingIPTunnelTos ,
getSettingIPTunnelTos ,
setSettingIPTunnelTos ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelTos ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingIPTunnelTtlPropertyInfo ,
#endif
constructSettingIPTunnelTtl ,
getSettingIPTunnelTtl ,
setSettingIPTunnelTtl ,
#if defined(ENABLE_OVERLOADING)
settingIPTunnelTtl ,
#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.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.SettingOvsBridge as NM.SettingOvsBridge
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.Enums as NM.Enums
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
#endif
newtype SettingIPTunnel = SettingIPTunnel (SP.ManagedPtr SettingIPTunnel)
deriving (SettingIPTunnel -> SettingIPTunnel -> Bool
(SettingIPTunnel -> SettingIPTunnel -> Bool)
-> (SettingIPTunnel -> SettingIPTunnel -> Bool)
-> Eq SettingIPTunnel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingIPTunnel -> SettingIPTunnel -> Bool
== :: SettingIPTunnel -> SettingIPTunnel -> Bool
$c/= :: SettingIPTunnel -> SettingIPTunnel -> Bool
/= :: SettingIPTunnel -> SettingIPTunnel -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingIPTunnel where
toManagedPtr :: SettingIPTunnel -> ManagedPtr SettingIPTunnel
toManagedPtr (SettingIPTunnel ManagedPtr SettingIPTunnel
p) = ManagedPtr SettingIPTunnel
p
foreign import ccall "nm_setting_ip_tunnel_get_type"
c_nm_setting_ip_tunnel_get_type :: IO B.Types.GType
instance B.Types.TypedObject SettingIPTunnel where
glibType :: IO GType
glibType = IO GType
c_nm_setting_ip_tunnel_get_type
instance B.Types.GObject SettingIPTunnel
class (SP.GObject o, O.IsDescendantOf SettingIPTunnel o) => IsSettingIPTunnel o
instance (SP.GObject o, O.IsDescendantOf SettingIPTunnel o) => IsSettingIPTunnel o
instance O.HasParentTypes SettingIPTunnel
type instance O.ParentTypes SettingIPTunnel = '[NM.Setting.Setting, GObject.Object.Object]
toSettingIPTunnel :: (MIO.MonadIO m, IsSettingIPTunnel o) => o -> m SettingIPTunnel
toSettingIPTunnel :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m SettingIPTunnel
toSettingIPTunnel = IO SettingIPTunnel -> m SettingIPTunnel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SettingIPTunnel -> m SettingIPTunnel)
-> (o -> IO SettingIPTunnel) -> o -> m SettingIPTunnel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SettingIPTunnel -> SettingIPTunnel)
-> o -> IO SettingIPTunnel
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SettingIPTunnel -> SettingIPTunnel
SettingIPTunnel
instance B.GValue.IsGValue (Maybe SettingIPTunnel) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_setting_ip_tunnel_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingIPTunnel -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingIPTunnel
P.Nothing = Ptr GValue -> Ptr SettingIPTunnel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SettingIPTunnel
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingIPTunnel)
gvalueSet_ Ptr GValue
gv (P.Just SettingIPTunnel
obj) = SettingIPTunnel -> (Ptr SettingIPTunnel -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingIPTunnel
obj (Ptr GValue -> Ptr SettingIPTunnel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingIPTunnel)
gvalueGet_ Ptr GValue
gv = do
Ptr SettingIPTunnel
ptr <- Ptr GValue -> IO (Ptr SettingIPTunnel)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SettingIPTunnel)
if Ptr SettingIPTunnel
ptr Ptr SettingIPTunnel -> Ptr SettingIPTunnel -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingIPTunnel
forall a. Ptr a
FP.nullPtr
then SettingIPTunnel -> Maybe SettingIPTunnel
forall a. a -> Maybe a
P.Just (SettingIPTunnel -> Maybe SettingIPTunnel)
-> IO SettingIPTunnel -> IO (Maybe SettingIPTunnel)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingIPTunnel -> SettingIPTunnel)
-> Ptr SettingIPTunnel -> IO SettingIPTunnel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SettingIPTunnel -> SettingIPTunnel
SettingIPTunnel Ptr SettingIPTunnel
ptr
else Maybe SettingIPTunnel -> IO (Maybe SettingIPTunnel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingIPTunnel
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingIPTunnelMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingIPTunnelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingIPTunnelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingIPTunnelMethod "compare" o = NM.Setting.SettingCompareMethodInfo
ResolveSettingIPTunnelMethod "diff" o = NM.Setting.SettingDiffMethodInfo
ResolveSettingIPTunnelMethod "duplicate" o = NM.Setting.SettingDuplicateMethodInfo
ResolveSettingIPTunnelMethod "enumerateValues" o = NM.Setting.SettingEnumerateValuesMethodInfo
ResolveSettingIPTunnelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingIPTunnelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingIPTunnelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingIPTunnelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingIPTunnelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingIPTunnelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingIPTunnelMethod "optionClearByName" o = NM.Setting.SettingOptionClearByNameMethodInfo
ResolveSettingIPTunnelMethod "optionGet" o = NM.Setting.SettingOptionGetMethodInfo
ResolveSettingIPTunnelMethod "optionGetAllNames" o = NM.Setting.SettingOptionGetAllNamesMethodInfo
ResolveSettingIPTunnelMethod "optionGetBoolean" o = NM.Setting.SettingOptionGetBooleanMethodInfo
ResolveSettingIPTunnelMethod "optionGetUint32" o = NM.Setting.SettingOptionGetUint32MethodInfo
ResolveSettingIPTunnelMethod "optionSet" o = NM.Setting.SettingOptionSetMethodInfo
ResolveSettingIPTunnelMethod "optionSetBoolean" o = NM.Setting.SettingOptionSetBooleanMethodInfo
ResolveSettingIPTunnelMethod "optionSetUint32" o = NM.Setting.SettingOptionSetUint32MethodInfo
ResolveSettingIPTunnelMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingIPTunnelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingIPTunnelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingIPTunnelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingIPTunnelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingIPTunnelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingIPTunnelMethod "toString" o = NM.Setting.SettingToStringMethodInfo
ResolveSettingIPTunnelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingIPTunnelMethod "verify" o = NM.Setting.SettingVerifyMethodInfo
ResolveSettingIPTunnelMethod "verifySecrets" o = NM.Setting.SettingVerifySecretsMethodInfo
ResolveSettingIPTunnelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingIPTunnelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingIPTunnelMethod "getDbusPropertyType" o = NM.Setting.SettingGetDbusPropertyTypeMethodInfo
ResolveSettingIPTunnelMethod "getEncapsulationLimit" o = SettingIPTunnelGetEncapsulationLimitMethodInfo
ResolveSettingIPTunnelMethod "getFlags" o = SettingIPTunnelGetFlagsMethodInfo
ResolveSettingIPTunnelMethod "getFlowLabel" o = SettingIPTunnelGetFlowLabelMethodInfo
ResolveSettingIPTunnelMethod "getFwmark" o = SettingIPTunnelGetFwmarkMethodInfo
ResolveSettingIPTunnelMethod "getInputKey" o = SettingIPTunnelGetInputKeyMethodInfo
ResolveSettingIPTunnelMethod "getLocal" o = SettingIPTunnelGetLocalMethodInfo
ResolveSettingIPTunnelMethod "getMode" o = SettingIPTunnelGetModeMethodInfo
ResolveSettingIPTunnelMethod "getMtu" o = SettingIPTunnelGetMtuMethodInfo
ResolveSettingIPTunnelMethod "getName" o = NM.Setting.SettingGetNameMethodInfo
ResolveSettingIPTunnelMethod "getOutputKey" o = SettingIPTunnelGetOutputKeyMethodInfo
ResolveSettingIPTunnelMethod "getParent" o = SettingIPTunnelGetParentMethodInfo
ResolveSettingIPTunnelMethod "getPathMtuDiscovery" o = SettingIPTunnelGetPathMtuDiscoveryMethodInfo
ResolveSettingIPTunnelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingIPTunnelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingIPTunnelMethod "getRemote" o = SettingIPTunnelGetRemoteMethodInfo
ResolveSettingIPTunnelMethod "getSecretFlags" o = NM.Setting.SettingGetSecretFlagsMethodInfo
ResolveSettingIPTunnelMethod "getTos" o = SettingIPTunnelGetTosMethodInfo
ResolveSettingIPTunnelMethod "getTtl" o = SettingIPTunnelGetTtlMethodInfo
ResolveSettingIPTunnelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingIPTunnelMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingIPTunnelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingIPTunnelMethod "setSecretFlags" o = NM.Setting.SettingSetSecretFlagsMethodInfo
ResolveSettingIPTunnelMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingIPTunnelMethod t SettingIPTunnel, O.OverloadedMethod info SettingIPTunnel p) => OL.IsLabel t (SettingIPTunnel -> 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 ~ ResolveSettingIPTunnelMethod t SettingIPTunnel, O.OverloadedMethod info SettingIPTunnel p, R.HasField t SettingIPTunnel p) => R.HasField t SettingIPTunnel p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingIPTunnelMethod t SettingIPTunnel, O.OverloadedMethodInfo info SettingIPTunnel) => OL.IsLabel t (O.MethodProxy info SettingIPTunnel) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingIPTunnelEncapsulationLimit :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelEncapsulationLimit :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelEncapsulationLimit o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"encapsulation-limit"
setSettingIPTunnelEncapsulationLimit :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelEncapsulationLimit :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelEncapsulationLimit o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"encapsulation-limit" Word32
val
constructSettingIPTunnelEncapsulationLimit :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelEncapsulationLimit :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelEncapsulationLimit Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"encapsulation-limit" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelEncapsulationLimitPropertyInfo
instance AttrInfo SettingIPTunnelEncapsulationLimitPropertyInfo where
type AttrAllowedOps SettingIPTunnelEncapsulationLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelEncapsulationLimitPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelEncapsulationLimitPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelEncapsulationLimitPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelEncapsulationLimitPropertyInfo = Word32
type AttrGetType SettingIPTunnelEncapsulationLimitPropertyInfo = Word32
type AttrLabel SettingIPTunnelEncapsulationLimitPropertyInfo = "encapsulation-limit"
type AttrOrigin SettingIPTunnelEncapsulationLimitPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelEncapsulationLimit
attrSet = setSettingIPTunnelEncapsulationLimit
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelEncapsulationLimit
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.encapsulationLimit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:encapsulationLimit"
})
#endif
getSettingIPTunnelFlags :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelFlags o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"flags"
setSettingIPTunnelFlags :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelFlags o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"flags" Word32
val
constructSettingIPTunnelFlags :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFlags :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFlags Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"flags" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelFlagsPropertyInfo
instance AttrInfo SettingIPTunnelFlagsPropertyInfo where
type AttrAllowedOps SettingIPTunnelFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelFlagsPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelFlagsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelFlagsPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelFlagsPropertyInfo = Word32
type AttrGetType SettingIPTunnelFlagsPropertyInfo = Word32
type AttrLabel SettingIPTunnelFlagsPropertyInfo = "flags"
type AttrOrigin SettingIPTunnelFlagsPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelFlags
attrSet = setSettingIPTunnelFlags
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.flags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:flags"
})
#endif
getSettingIPTunnelFlowLabel :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelFlowLabel :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelFlowLabel o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"flow-label"
setSettingIPTunnelFlowLabel :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelFlowLabel :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelFlowLabel o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"flow-label" Word32
val
constructSettingIPTunnelFlowLabel :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFlowLabel :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFlowLabel Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"flow-label" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelFlowLabelPropertyInfo
instance AttrInfo SettingIPTunnelFlowLabelPropertyInfo where
type AttrAllowedOps SettingIPTunnelFlowLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelFlowLabelPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelFlowLabelPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelFlowLabelPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelFlowLabelPropertyInfo = Word32
type AttrGetType SettingIPTunnelFlowLabelPropertyInfo = Word32
type AttrLabel SettingIPTunnelFlowLabelPropertyInfo = "flow-label"
type AttrOrigin SettingIPTunnelFlowLabelPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelFlowLabel
attrSet = setSettingIPTunnelFlowLabel
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelFlowLabel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.flowLabel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:flowLabel"
})
#endif
getSettingIPTunnelFwmark :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelFwmark :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelFwmark o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"fwmark"
setSettingIPTunnelFwmark :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelFwmark :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelFwmark o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"fwmark" Word32
val
constructSettingIPTunnelFwmark :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFwmark :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelFwmark Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"fwmark" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelFwmarkPropertyInfo
instance AttrInfo SettingIPTunnelFwmarkPropertyInfo where
type AttrAllowedOps SettingIPTunnelFwmarkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelFwmarkPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelFwmarkPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelFwmarkPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelFwmarkPropertyInfo = Word32
type AttrGetType SettingIPTunnelFwmarkPropertyInfo = Word32
type AttrLabel SettingIPTunnelFwmarkPropertyInfo = "fwmark"
type AttrOrigin SettingIPTunnelFwmarkPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelFwmark
attrSet = setSettingIPTunnelFwmark
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelFwmark
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.fwmark"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:fwmark"
})
#endif
getSettingIPTunnelInputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> m T.Text
getSettingIPTunnelInputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Text
getSettingIPTunnelInputKey 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
"getSettingIPTunnelInputKey" (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
"input-key"
setSettingIPTunnelInputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> T.Text -> m ()
setSettingIPTunnelInputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Text -> m ()
setSettingIPTunnelInputKey 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
"input-key" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingIPTunnelInputKey :: (IsSettingIPTunnel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingIPTunnelInputKey :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingIPTunnelInputKey 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
"input-key" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingIPTunnelInputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> m ()
clearSettingIPTunnelInputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m ()
clearSettingIPTunnelInputKey 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
"input-key" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelInputKeyPropertyInfo
instance AttrInfo SettingIPTunnelInputKeyPropertyInfo where
type AttrAllowedOps SettingIPTunnelInputKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingIPTunnelInputKeyPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelInputKeyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingIPTunnelInputKeyPropertyInfo = (~) T.Text
type AttrTransferType SettingIPTunnelInputKeyPropertyInfo = T.Text
type AttrGetType SettingIPTunnelInputKeyPropertyInfo = T.Text
type AttrLabel SettingIPTunnelInputKeyPropertyInfo = "input-key"
type AttrOrigin SettingIPTunnelInputKeyPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelInputKey
attrSet = setSettingIPTunnelInputKey
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelInputKey
attrClear = clearSettingIPTunnelInputKey
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.inputKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:inputKey"
})
#endif
getSettingIPTunnelLocal :: (MonadIO m, IsSettingIPTunnel o) => o -> m T.Text
getSettingIPTunnelLocal :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Text
getSettingIPTunnelLocal 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
"getSettingIPTunnelLocal" (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
"local"
setSettingIPTunnelLocal :: (MonadIO m, IsSettingIPTunnel o) => o -> T.Text -> m ()
setSettingIPTunnelLocal :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Text -> m ()
setSettingIPTunnelLocal 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
"local" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingIPTunnelLocal :: (IsSettingIPTunnel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingIPTunnelLocal :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingIPTunnelLocal 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
"local" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingIPTunnelLocal :: (MonadIO m, IsSettingIPTunnel o) => o -> m ()
clearSettingIPTunnelLocal :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m ()
clearSettingIPTunnelLocal 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
"local" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelLocalPropertyInfo
instance AttrInfo SettingIPTunnelLocalPropertyInfo where
type AttrAllowedOps SettingIPTunnelLocalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingIPTunnelLocalPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelLocalPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingIPTunnelLocalPropertyInfo = (~) T.Text
type AttrTransferType SettingIPTunnelLocalPropertyInfo = T.Text
type AttrGetType SettingIPTunnelLocalPropertyInfo = T.Text
type AttrLabel SettingIPTunnelLocalPropertyInfo = "local"
type AttrOrigin SettingIPTunnelLocalPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelLocal
attrSet = setSettingIPTunnelLocal
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelLocal
attrClear = clearSettingIPTunnelLocal
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.local"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:local"
})
#endif
getSettingIPTunnelMode :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelMode o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"mode"
setSettingIPTunnelMode :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelMode o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"mode" Word32
val
constructSettingIPTunnelMode :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelMode :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelMode Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"mode" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelModePropertyInfo
instance AttrInfo SettingIPTunnelModePropertyInfo where
type AttrAllowedOps SettingIPTunnelModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelModePropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelModePropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelModePropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelModePropertyInfo = Word32
type AttrGetType SettingIPTunnelModePropertyInfo = Word32
type AttrLabel SettingIPTunnelModePropertyInfo = "mode"
type AttrOrigin SettingIPTunnelModePropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelMode
attrSet = setSettingIPTunnelMode
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.mode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:mode"
})
#endif
getSettingIPTunnelMtu :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelMtu o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"mtu"
setSettingIPTunnelMtu :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelMtu o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"mtu" Word32
val
constructSettingIPTunnelMtu :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelMtu :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelMtu Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"mtu" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelMtuPropertyInfo
instance AttrInfo SettingIPTunnelMtuPropertyInfo where
type AttrAllowedOps SettingIPTunnelMtuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelMtuPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelMtuPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelMtuPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelMtuPropertyInfo = Word32
type AttrGetType SettingIPTunnelMtuPropertyInfo = Word32
type AttrLabel SettingIPTunnelMtuPropertyInfo = "mtu"
type AttrOrigin SettingIPTunnelMtuPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelMtu
attrSet = setSettingIPTunnelMtu
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelMtu
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.mtu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:mtu"
})
#endif
getSettingIPTunnelOutputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> m T.Text
getSettingIPTunnelOutputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Text
getSettingIPTunnelOutputKey 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
"getSettingIPTunnelOutputKey" (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
"output-key"
setSettingIPTunnelOutputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> T.Text -> m ()
setSettingIPTunnelOutputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Text -> m ()
setSettingIPTunnelOutputKey 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
"output-key" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingIPTunnelOutputKey :: (IsSettingIPTunnel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingIPTunnelOutputKey :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingIPTunnelOutputKey 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
"output-key" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingIPTunnelOutputKey :: (MonadIO m, IsSettingIPTunnel o) => o -> m ()
clearSettingIPTunnelOutputKey :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m ()
clearSettingIPTunnelOutputKey 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
"output-key" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelOutputKeyPropertyInfo
instance AttrInfo SettingIPTunnelOutputKeyPropertyInfo where
type AttrAllowedOps SettingIPTunnelOutputKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingIPTunnelOutputKeyPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelOutputKeyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingIPTunnelOutputKeyPropertyInfo = (~) T.Text
type AttrTransferType SettingIPTunnelOutputKeyPropertyInfo = T.Text
type AttrGetType SettingIPTunnelOutputKeyPropertyInfo = T.Text
type AttrLabel SettingIPTunnelOutputKeyPropertyInfo = "output-key"
type AttrOrigin SettingIPTunnelOutputKeyPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelOutputKey
attrSet = setSettingIPTunnelOutputKey
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelOutputKey
attrClear = clearSettingIPTunnelOutputKey
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.outputKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:outputKey"
})
#endif
getSettingIPTunnelParent :: (MonadIO m, IsSettingIPTunnel o) => o -> m T.Text
getSettingIPTunnelParent :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Text
getSettingIPTunnelParent 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
"getSettingIPTunnelParent" (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
"parent"
setSettingIPTunnelParent :: (MonadIO m, IsSettingIPTunnel o) => o -> T.Text -> m ()
setSettingIPTunnelParent :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Text -> m ()
setSettingIPTunnelParent 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
"parent" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingIPTunnelParent :: (IsSettingIPTunnel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingIPTunnelParent :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingIPTunnelParent 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
"parent" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingIPTunnelParent :: (MonadIO m, IsSettingIPTunnel o) => o -> m ()
clearSettingIPTunnelParent :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m ()
clearSettingIPTunnelParent 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
"parent" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelParentPropertyInfo
instance AttrInfo SettingIPTunnelParentPropertyInfo where
type AttrAllowedOps SettingIPTunnelParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingIPTunnelParentPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelParentPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingIPTunnelParentPropertyInfo = (~) T.Text
type AttrTransferType SettingIPTunnelParentPropertyInfo = T.Text
type AttrGetType SettingIPTunnelParentPropertyInfo = T.Text
type AttrLabel SettingIPTunnelParentPropertyInfo = "parent"
type AttrOrigin SettingIPTunnelParentPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelParent
attrSet = setSettingIPTunnelParent
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelParent
attrClear = clearSettingIPTunnelParent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.parent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:parent"
})
#endif
getSettingIPTunnelPathMtuDiscovery :: (MonadIO m, IsSettingIPTunnel o) => o -> m Bool
getSettingIPTunnelPathMtuDiscovery :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Bool
getSettingIPTunnelPathMtuDiscovery 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
"path-mtu-discovery"
setSettingIPTunnelPathMtuDiscovery :: (MonadIO m, IsSettingIPTunnel o) => o -> Bool -> m ()
setSettingIPTunnelPathMtuDiscovery :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Bool -> m ()
setSettingIPTunnelPathMtuDiscovery 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
"path-mtu-discovery" Bool
val
constructSettingIPTunnelPathMtuDiscovery :: (IsSettingIPTunnel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingIPTunnelPathMtuDiscovery :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingIPTunnelPathMtuDiscovery 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
"path-mtu-discovery" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelPathMtuDiscoveryPropertyInfo
instance AttrInfo SettingIPTunnelPathMtuDiscoveryPropertyInfo where
type AttrAllowedOps SettingIPTunnelPathMtuDiscoveryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelPathMtuDiscoveryPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelPathMtuDiscoveryPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingIPTunnelPathMtuDiscoveryPropertyInfo = (~) Bool
type AttrTransferType SettingIPTunnelPathMtuDiscoveryPropertyInfo = Bool
type AttrGetType SettingIPTunnelPathMtuDiscoveryPropertyInfo = Bool
type AttrLabel SettingIPTunnelPathMtuDiscoveryPropertyInfo = "path-mtu-discovery"
type AttrOrigin SettingIPTunnelPathMtuDiscoveryPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelPathMtuDiscovery
attrSet = setSettingIPTunnelPathMtuDiscovery
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelPathMtuDiscovery
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.pathMtuDiscovery"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:pathMtuDiscovery"
})
#endif
getSettingIPTunnelRemote :: (MonadIO m, IsSettingIPTunnel o) => o -> m T.Text
getSettingIPTunnelRemote :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Text
getSettingIPTunnelRemote 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
"getSettingIPTunnelRemote" (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
"remote"
setSettingIPTunnelRemote :: (MonadIO m, IsSettingIPTunnel o) => o -> T.Text -> m ()
setSettingIPTunnelRemote :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Text -> m ()
setSettingIPTunnelRemote 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
"remote" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingIPTunnelRemote :: (IsSettingIPTunnel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingIPTunnelRemote :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingIPTunnelRemote 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
"remote" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingIPTunnelRemote :: (MonadIO m, IsSettingIPTunnel o) => o -> m ()
clearSettingIPTunnelRemote :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m ()
clearSettingIPTunnelRemote 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
"remote" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelRemotePropertyInfo
instance AttrInfo SettingIPTunnelRemotePropertyInfo where
type AttrAllowedOps SettingIPTunnelRemotePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingIPTunnelRemotePropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelRemotePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingIPTunnelRemotePropertyInfo = (~) T.Text
type AttrTransferType SettingIPTunnelRemotePropertyInfo = T.Text
type AttrGetType SettingIPTunnelRemotePropertyInfo = T.Text
type AttrLabel SettingIPTunnelRemotePropertyInfo = "remote"
type AttrOrigin SettingIPTunnelRemotePropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelRemote
attrSet = setSettingIPTunnelRemote
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelRemote
attrClear = clearSettingIPTunnelRemote
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.remote"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:remote"
})
#endif
getSettingIPTunnelTos :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelTos :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelTos o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"tos"
setSettingIPTunnelTos :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelTos :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelTos o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"tos" Word32
val
constructSettingIPTunnelTos :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelTos :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelTos Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"tos" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelTosPropertyInfo
instance AttrInfo SettingIPTunnelTosPropertyInfo where
type AttrAllowedOps SettingIPTunnelTosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelTosPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelTosPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelTosPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelTosPropertyInfo = Word32
type AttrGetType SettingIPTunnelTosPropertyInfo = Word32
type AttrLabel SettingIPTunnelTosPropertyInfo = "tos"
type AttrOrigin SettingIPTunnelTosPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelTos
attrSet = setSettingIPTunnelTos
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelTos
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.tos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:tos"
})
#endif
getSettingIPTunnelTtl :: (MonadIO m, IsSettingIPTunnel o) => o -> m Word32
getSettingIPTunnelTtl :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> m Word32
getSettingIPTunnelTtl o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"ttl"
setSettingIPTunnelTtl :: (MonadIO m, IsSettingIPTunnel o) => o -> Word32 -> m ()
setSettingIPTunnelTtl :: forall (m :: * -> *) o.
(MonadIO m, IsSettingIPTunnel o) =>
o -> Word32 -> m ()
setSettingIPTunnelTtl o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"ttl" Word32
val
constructSettingIPTunnelTtl :: (IsSettingIPTunnel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingIPTunnelTtl :: forall o (m :: * -> *).
(IsSettingIPTunnel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingIPTunnelTtl Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"ttl" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelTtlPropertyInfo
instance AttrInfo SettingIPTunnelTtlPropertyInfo where
type AttrAllowedOps SettingIPTunnelTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingIPTunnelTtlPropertyInfo = IsSettingIPTunnel
type AttrSetTypeConstraint SettingIPTunnelTtlPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingIPTunnelTtlPropertyInfo = (~) Word32
type AttrTransferType SettingIPTunnelTtlPropertyInfo = Word32
type AttrGetType SettingIPTunnelTtlPropertyInfo = Word32
type AttrLabel SettingIPTunnelTtlPropertyInfo = "ttl"
type AttrOrigin SettingIPTunnelTtlPropertyInfo = SettingIPTunnel
attrGet = getSettingIPTunnelTtl
attrSet = setSettingIPTunnelTtl
attrTransfer _ v = do
return v
attrConstruct = constructSettingIPTunnelTtl
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.ttl"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#g:attr:ttl"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingIPTunnel
type instance O.AttributeList SettingIPTunnel = SettingIPTunnelAttributeList
type SettingIPTunnelAttributeList = ('[ '("encapsulationLimit", SettingIPTunnelEncapsulationLimitPropertyInfo), '("flags", SettingIPTunnelFlagsPropertyInfo), '("flowLabel", SettingIPTunnelFlowLabelPropertyInfo), '("fwmark", SettingIPTunnelFwmarkPropertyInfo), '("inputKey", SettingIPTunnelInputKeyPropertyInfo), '("local", SettingIPTunnelLocalPropertyInfo), '("mode", SettingIPTunnelModePropertyInfo), '("mtu", SettingIPTunnelMtuPropertyInfo), '("name", NM.Setting.SettingNamePropertyInfo), '("outputKey", SettingIPTunnelOutputKeyPropertyInfo), '("parent", SettingIPTunnelParentPropertyInfo), '("pathMtuDiscovery", SettingIPTunnelPathMtuDiscoveryPropertyInfo), '("remote", SettingIPTunnelRemotePropertyInfo), '("tos", SettingIPTunnelTosPropertyInfo), '("ttl", SettingIPTunnelTtlPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingIPTunnelEncapsulationLimit :: AttrLabelProxy "encapsulationLimit"
settingIPTunnelEncapsulationLimit = AttrLabelProxy
settingIPTunnelFlags :: AttrLabelProxy "flags"
settingIPTunnelFlags = AttrLabelProxy
settingIPTunnelFlowLabel :: AttrLabelProxy "flowLabel"
settingIPTunnelFlowLabel = AttrLabelProxy
settingIPTunnelFwmark :: AttrLabelProxy "fwmark"
settingIPTunnelFwmark = AttrLabelProxy
settingIPTunnelInputKey :: AttrLabelProxy "inputKey"
settingIPTunnelInputKey = AttrLabelProxy
settingIPTunnelLocal :: AttrLabelProxy "local"
settingIPTunnelLocal = AttrLabelProxy
settingIPTunnelMode :: AttrLabelProxy "mode"
settingIPTunnelMode = AttrLabelProxy
settingIPTunnelMtu :: AttrLabelProxy "mtu"
settingIPTunnelMtu = AttrLabelProxy
settingIPTunnelOutputKey :: AttrLabelProxy "outputKey"
settingIPTunnelOutputKey = AttrLabelProxy
settingIPTunnelParent :: AttrLabelProxy "parent"
settingIPTunnelParent = AttrLabelProxy
settingIPTunnelPathMtuDiscovery :: AttrLabelProxy "pathMtuDiscovery"
settingIPTunnelPathMtuDiscovery = AttrLabelProxy
settingIPTunnelRemote :: AttrLabelProxy "remote"
settingIPTunnelRemote = AttrLabelProxy
settingIPTunnelTos :: AttrLabelProxy "tos"
settingIPTunnelTos = AttrLabelProxy
settingIPTunnelTtl :: AttrLabelProxy "ttl"
settingIPTunnelTtl = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SettingIPTunnel = SettingIPTunnelSignalList
type SettingIPTunnelSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_setting_ip_tunnel_new" nm_setting_ip_tunnel_new ::
IO (Ptr SettingIPTunnel)
settingIPTunnelNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SettingIPTunnel
settingIPTunnelNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m SettingIPTunnel
settingIPTunnelNew = IO SettingIPTunnel -> m SettingIPTunnel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingIPTunnel -> m SettingIPTunnel)
-> IO SettingIPTunnel -> m SettingIPTunnel
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
result <- IO (Ptr SettingIPTunnel)
nm_setting_ip_tunnel_new
Text -> Ptr SettingIPTunnel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelNew" Ptr SettingIPTunnel
result
SettingIPTunnel
result' <- ((ManagedPtr SettingIPTunnel -> SettingIPTunnel)
-> Ptr SettingIPTunnel -> IO SettingIPTunnel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SettingIPTunnel -> SettingIPTunnel
SettingIPTunnel) Ptr SettingIPTunnel
result
SettingIPTunnel -> IO SettingIPTunnel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingIPTunnel
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_setting_ip_tunnel_get_encapsulation_limit" nm_setting_ip_tunnel_get_encapsulation_limit ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetEncapsulationLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetEncapsulationLimit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetEncapsulationLimit a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_encapsulation_limit Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetEncapsulationLimitMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetEncapsulationLimitMethodInfo a signature where
overloadedMethod = settingIPTunnelGetEncapsulationLimit
instance O.OverloadedMethodInfo SettingIPTunnelGetEncapsulationLimitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetEncapsulationLimit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetEncapsulationLimit"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_flags" nm_setting_ip_tunnel_get_flags ::
Ptr SettingIPTunnel ->
IO CUInt
settingIPTunnelGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m [NM.Flags.IPTunnelFlags]
settingIPTunnelGetFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m [IPTunnelFlags]
settingIPTunnelGetFlags a
setting = IO [IPTunnelFlags] -> m [IPTunnelFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [IPTunnelFlags] -> m [IPTunnelFlags])
-> IO [IPTunnelFlags] -> m [IPTunnelFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingIPTunnel -> IO CUInt
nm_setting_ip_tunnel_get_flags Ptr SettingIPTunnel
setting'
let result' :: [IPTunnelFlags]
result' = CUInt -> [IPTunnelFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
[IPTunnelFlags] -> IO [IPTunnelFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [IPTunnelFlags]
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetFlagsMethodInfo
instance (signature ~ (m [NM.Flags.IPTunnelFlags]), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetFlagsMethodInfo a signature where
overloadedMethod = settingIPTunnelGetFlags
instance O.OverloadedMethodInfo SettingIPTunnelGetFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetFlags"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_flow_label" nm_setting_ip_tunnel_get_flow_label ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetFlowLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetFlowLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetFlowLabel a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_flow_label Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetFlowLabelMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetFlowLabelMethodInfo a signature where
overloadedMethod = settingIPTunnelGetFlowLabel
instance O.OverloadedMethodInfo SettingIPTunnelGetFlowLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetFlowLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetFlowLabel"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_fwmark" nm_setting_ip_tunnel_get_fwmark ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetFwmark ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetFwmark :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetFwmark a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_fwmark Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetFwmarkMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetFwmarkMethodInfo a signature where
overloadedMethod = settingIPTunnelGetFwmark
instance O.OverloadedMethodInfo SettingIPTunnelGetFwmarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetFwmark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetFwmark"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_input_key" nm_setting_ip_tunnel_get_input_key ::
Ptr SettingIPTunnel ->
IO CString
settingIPTunnelGetInputKey ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m T.Text
settingIPTunnelGetInputKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Text
settingIPTunnelGetInputKey a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingIPTunnel -> IO CString
nm_setting_ip_tunnel_get_input_key Ptr SettingIPTunnel
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelGetInputKey" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetInputKeyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetInputKeyMethodInfo a signature where
overloadedMethod = settingIPTunnelGetInputKey
instance O.OverloadedMethodInfo SettingIPTunnelGetInputKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetInputKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetInputKey"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_local" nm_setting_ip_tunnel_get_local ::
Ptr SettingIPTunnel ->
IO CString
settingIPTunnelGetLocal ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m T.Text
settingIPTunnelGetLocal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Text
settingIPTunnelGetLocal a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingIPTunnel -> IO CString
nm_setting_ip_tunnel_get_local Ptr SettingIPTunnel
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelGetLocal" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetLocalMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetLocalMethodInfo a signature where
overloadedMethod = settingIPTunnelGetLocal
instance O.OverloadedMethodInfo SettingIPTunnelGetLocalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetLocal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetLocal"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_mode" nm_setting_ip_tunnel_get_mode ::
Ptr SettingIPTunnel ->
IO CUInt
settingIPTunnelGetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m NM.Enums.IPTunnelMode
settingIPTunnelGetMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m IPTunnelMode
settingIPTunnelGetMode a
setting = IO IPTunnelMode -> m IPTunnelMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IPTunnelMode -> m IPTunnelMode)
-> IO IPTunnelMode -> m IPTunnelMode
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingIPTunnel -> IO CUInt
nm_setting_ip_tunnel_get_mode Ptr SettingIPTunnel
setting'
let result' :: IPTunnelMode
result' = (Int -> IPTunnelMode
forall a. Enum a => Int -> a
toEnum (Int -> IPTunnelMode) -> (CUInt -> Int) -> CUInt -> IPTunnelMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
IPTunnelMode -> IO IPTunnelMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return IPTunnelMode
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetModeMethodInfo
instance (signature ~ (m NM.Enums.IPTunnelMode), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetModeMethodInfo a signature where
overloadedMethod = settingIPTunnelGetMode
instance O.OverloadedMethodInfo SettingIPTunnelGetModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetMode"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_mtu" nm_setting_ip_tunnel_get_mtu ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetMtu ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetMtu :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetMtu a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_mtu Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetMtuMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetMtuMethodInfo a signature where
overloadedMethod = settingIPTunnelGetMtu
instance O.OverloadedMethodInfo SettingIPTunnelGetMtuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetMtu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetMtu"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_output_key" nm_setting_ip_tunnel_get_output_key ::
Ptr SettingIPTunnel ->
IO CString
settingIPTunnelGetOutputKey ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m T.Text
settingIPTunnelGetOutputKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Text
settingIPTunnelGetOutputKey a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingIPTunnel -> IO CString
nm_setting_ip_tunnel_get_output_key Ptr SettingIPTunnel
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelGetOutputKey" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetOutputKeyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetOutputKeyMethodInfo a signature where
overloadedMethod = settingIPTunnelGetOutputKey
instance O.OverloadedMethodInfo SettingIPTunnelGetOutputKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetOutputKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetOutputKey"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_parent" nm_setting_ip_tunnel_get_parent ::
Ptr SettingIPTunnel ->
IO CString
settingIPTunnelGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m T.Text
settingIPTunnelGetParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Text
settingIPTunnelGetParent a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingIPTunnel -> IO CString
nm_setting_ip_tunnel_get_parent Ptr SettingIPTunnel
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelGetParent" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetParentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetParentMethodInfo a signature where
overloadedMethod = settingIPTunnelGetParent
instance O.OverloadedMethodInfo SettingIPTunnelGetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetParent"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_path_mtu_discovery" nm_setting_ip_tunnel_get_path_mtu_discovery ::
Ptr SettingIPTunnel ->
IO CInt
settingIPTunnelGetPathMtuDiscovery ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Bool
settingIPTunnelGetPathMtuDiscovery :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Bool
settingIPTunnelGetPathMtuDiscovery a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingIPTunnel -> IO CInt
nm_setting_ip_tunnel_get_path_mtu_discovery Ptr SettingIPTunnel
setting'
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
setting
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetPathMtuDiscoveryMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetPathMtuDiscoveryMethodInfo a signature where
overloadedMethod = settingIPTunnelGetPathMtuDiscovery
instance O.OverloadedMethodInfo SettingIPTunnelGetPathMtuDiscoveryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetPathMtuDiscovery",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetPathMtuDiscovery"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_remote" nm_setting_ip_tunnel_get_remote ::
Ptr SettingIPTunnel ->
IO CString
settingIPTunnelGetRemote ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m T.Text
settingIPTunnelGetRemote :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Text
settingIPTunnelGetRemote a
setting = 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 SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingIPTunnel -> IO CString
nm_setting_ip_tunnel_get_remote Ptr SettingIPTunnel
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingIPTunnelGetRemote" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetRemoteMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetRemoteMethodInfo a signature where
overloadedMethod = settingIPTunnelGetRemote
instance O.OverloadedMethodInfo SettingIPTunnelGetRemoteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetRemote",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetRemote"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_tos" nm_setting_ip_tunnel_get_tos ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetTos ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetTos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetTos a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_tos Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetTosMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetTosMethodInfo a signature where
overloadedMethod = settingIPTunnelGetTos
instance O.OverloadedMethodInfo SettingIPTunnelGetTosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetTos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetTos"
})
#endif
foreign import ccall "nm_setting_ip_tunnel_get_ttl" nm_setting_ip_tunnel_get_ttl ::
Ptr SettingIPTunnel ->
IO Word32
settingIPTunnelGetTtl ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a
-> m Word32
settingIPTunnelGetTtl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingIPTunnel a) =>
a -> m Word32
settingIPTunnelGetTtl a
setting = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingIPTunnel
setting' <- a -> IO (Ptr SettingIPTunnel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingIPTunnel -> IO Word32
nm_setting_ip_tunnel_get_ttl Ptr SettingIPTunnel
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SettingIPTunnelGetTtlMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingIPTunnel a) => O.OverloadedMethod SettingIPTunnelGetTtlMethodInfo a signature where
overloadedMethod = settingIPTunnelGetTtl
instance O.OverloadedMethodInfo SettingIPTunnelGetTtlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingIPTunnel.settingIPTunnelGetTtl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingIPTunnel.html#v:settingIPTunnelGetTtl"
})
#endif