{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.SettingWired
(
SettingWired(..) ,
IsSettingWired ,
toSettingWired ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingWiredMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredAddMacBlacklistItemMethodInfo,
#endif
settingWiredAddMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredAddMacDenylistItemMethodInfo,
#endif
settingWiredAddMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredAddS390OptionMethodInfo ,
#endif
settingWiredAddS390Option ,
#if defined(ENABLE_OVERLOADING)
SettingWiredClearMacBlacklistItemsMethodInfo,
#endif
settingWiredClearMacBlacklistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWiredClearMacDenylistItemsMethodInfo,
#endif
settingWiredClearMacDenylistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetAcceptAllMacAddressesMethodInfo,
#endif
settingWiredGetAcceptAllMacAddresses ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetAutoNegotiateMethodInfo ,
#endif
settingWiredGetAutoNegotiate ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetClonedMacAddressMethodInfo,
#endif
settingWiredGetClonedMacAddress ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetDuplexMethodInfo ,
#endif
settingWiredGetDuplex ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetGenerateMacAddressMaskMethodInfo,
#endif
settingWiredGetGenerateMacAddressMask ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMacAddressMethodInfo ,
#endif
settingWiredGetMacAddress ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMacAddressBlacklistMethodInfo,
#endif
settingWiredGetMacAddressBlacklist ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMacAddressDenylistMethodInfo,
#endif
settingWiredGetMacAddressDenylist ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMacBlacklistItemMethodInfo,
#endif
settingWiredGetMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMacDenylistItemMethodInfo,
#endif
settingWiredGetMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetMtuMethodInfo ,
#endif
settingWiredGetMtu ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetNumMacBlacklistItemsMethodInfo,
#endif
settingWiredGetNumMacBlacklistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetNumMacDenylistItemsMethodInfo,
#endif
settingWiredGetNumMacDenylistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetNumS390OptionsMethodInfo ,
#endif
settingWiredGetNumS390Options ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetPortMethodInfo ,
#endif
settingWiredGetPort ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetS390NettypeMethodInfo ,
#endif
settingWiredGetS390Nettype ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetS390OptionMethodInfo ,
#endif
settingWiredGetS390Option ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetS390OptionByKeyMethodInfo,
#endif
settingWiredGetS390OptionByKey ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetS390SubchannelsMethodInfo,
#endif
settingWiredGetS390Subchannels ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetSpeedMethodInfo ,
#endif
settingWiredGetSpeed ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetValidS390OptionsMethodInfo,
#endif
settingWiredGetValidS390Options ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetWakeOnLanMethodInfo ,
#endif
settingWiredGetWakeOnLan ,
#if defined(ENABLE_OVERLOADING)
SettingWiredGetWakeOnLanPasswordMethodInfo,
#endif
settingWiredGetWakeOnLanPassword ,
settingWiredNew ,
#if defined(ENABLE_OVERLOADING)
SettingWiredRemoveMacBlacklistItemMethodInfo,
#endif
settingWiredRemoveMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredRemoveMacBlacklistItemByValueMethodInfo,
#endif
settingWiredRemoveMacBlacklistItemByValue,
#if defined(ENABLE_OVERLOADING)
SettingWiredRemoveMacDenylistItemMethodInfo,
#endif
settingWiredRemoveMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWiredRemoveMacDenylistItemByValueMethodInfo,
#endif
settingWiredRemoveMacDenylistItemByValue,
#if defined(ENABLE_OVERLOADING)
SettingWiredRemoveS390OptionMethodInfo ,
#endif
settingWiredRemoveS390Option ,
#if defined(ENABLE_OVERLOADING)
SettingWiredAcceptAllMacAddressesPropertyInfo,
#endif
constructSettingWiredAcceptAllMacAddresses,
getSettingWiredAcceptAllMacAddresses ,
setSettingWiredAcceptAllMacAddresses ,
#if defined(ENABLE_OVERLOADING)
settingWiredAcceptAllMacAddresses ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredAutoNegotiatePropertyInfo ,
#endif
constructSettingWiredAutoNegotiate ,
getSettingWiredAutoNegotiate ,
setSettingWiredAutoNegotiate ,
#if defined(ENABLE_OVERLOADING)
settingWiredAutoNegotiate ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredClonedMacAddressPropertyInfo,
#endif
clearSettingWiredClonedMacAddress ,
constructSettingWiredClonedMacAddress ,
getSettingWiredClonedMacAddress ,
setSettingWiredClonedMacAddress ,
#if defined(ENABLE_OVERLOADING)
settingWiredClonedMacAddress ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredDuplexPropertyInfo ,
#endif
clearSettingWiredDuplex ,
constructSettingWiredDuplex ,
getSettingWiredDuplex ,
setSettingWiredDuplex ,
#if defined(ENABLE_OVERLOADING)
settingWiredDuplex ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredGenerateMacAddressMaskPropertyInfo,
#endif
clearSettingWiredGenerateMacAddressMask ,
constructSettingWiredGenerateMacAddressMask,
getSettingWiredGenerateMacAddressMask ,
setSettingWiredGenerateMacAddressMask ,
#if defined(ENABLE_OVERLOADING)
settingWiredGenerateMacAddressMask ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredMacAddressPropertyInfo ,
#endif
clearSettingWiredMacAddress ,
constructSettingWiredMacAddress ,
getSettingWiredMacAddress ,
setSettingWiredMacAddress ,
#if defined(ENABLE_OVERLOADING)
settingWiredMacAddress ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredMacAddressBlacklistPropertyInfo,
#endif
clearSettingWiredMacAddressBlacklist ,
constructSettingWiredMacAddressBlacklist,
getSettingWiredMacAddressBlacklist ,
setSettingWiredMacAddressBlacklist ,
#if defined(ENABLE_OVERLOADING)
settingWiredMacAddressBlacklist ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredMacAddressDenylistPropertyInfo,
#endif
clearSettingWiredMacAddressDenylist ,
constructSettingWiredMacAddressDenylist ,
getSettingWiredMacAddressDenylist ,
setSettingWiredMacAddressDenylist ,
#if defined(ENABLE_OVERLOADING)
settingWiredMacAddressDenylist ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredMtuPropertyInfo ,
#endif
constructSettingWiredMtu ,
getSettingWiredMtu ,
setSettingWiredMtu ,
#if defined(ENABLE_OVERLOADING)
settingWiredMtu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredPortPropertyInfo ,
#endif
clearSettingWiredPort ,
constructSettingWiredPort ,
getSettingWiredPort ,
setSettingWiredPort ,
#if defined(ENABLE_OVERLOADING)
settingWiredPort ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredS390NettypePropertyInfo ,
#endif
clearSettingWiredS390Nettype ,
constructSettingWiredS390Nettype ,
getSettingWiredS390Nettype ,
setSettingWiredS390Nettype ,
#if defined(ENABLE_OVERLOADING)
settingWiredS390Nettype ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredS390OptionsPropertyInfo ,
#endif
clearSettingWiredS390Options ,
constructSettingWiredS390Options ,
getSettingWiredS390Options ,
setSettingWiredS390Options ,
#if defined(ENABLE_OVERLOADING)
settingWiredS390Options ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredS390SubchannelsPropertyInfo ,
#endif
clearSettingWiredS390Subchannels ,
constructSettingWiredS390Subchannels ,
getSettingWiredS390Subchannels ,
setSettingWiredS390Subchannels ,
#if defined(ENABLE_OVERLOADING)
settingWiredS390Subchannels ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredSpeedPropertyInfo ,
#endif
constructSettingWiredSpeed ,
getSettingWiredSpeed ,
setSettingWiredSpeed ,
#if defined(ENABLE_OVERLOADING)
settingWiredSpeed ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredWakeOnLanPropertyInfo ,
#endif
constructSettingWiredWakeOnLan ,
getSettingWiredWakeOnLan ,
setSettingWiredWakeOnLan ,
#if defined(ENABLE_OVERLOADING)
settingWiredWakeOnLan ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWiredWakeOnLanPasswordPropertyInfo,
#endif
clearSettingWiredWakeOnLanPassword ,
constructSettingWiredWakeOnLanPassword ,
getSettingWiredWakeOnLanPassword ,
setSettingWiredWakeOnLanPassword ,
#if defined(ENABLE_OVERLOADING)
settingWiredWakeOnLanPassword ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.NM.Callbacks as NM.Callbacks
import {-# SOURCE #-} qualified GI.NM.Enums as NM.Enums
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
import {-# SOURCE #-} qualified GI.NM.Interfaces.Connection as NM.Connection
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
import {-# SOURCE #-} qualified GI.NM.Objects.Setting8021x as NM.Setting8021x
import {-# SOURCE #-} qualified GI.NM.Objects.SettingAdsl as NM.SettingAdsl
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBluetooth as NM.SettingBluetooth
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBond as NM.SettingBond
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridge as NM.SettingBridge
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridgePort as NM.SettingBridgePort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingCdma as NM.SettingCdma
import {-# SOURCE #-} qualified GI.NM.Objects.SettingConnection as NM.SettingConnection
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDcb as NM.SettingDcb
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDummy as NM.SettingDummy
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGeneric as NM.SettingGeneric
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGsm as NM.SettingGsm
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP4Config as NM.SettingIP4Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP6Config as NM.SettingIP6Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPConfig as NM.SettingIPConfig
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPTunnel as NM.SettingIPTunnel
import {-# SOURCE #-} qualified GI.NM.Objects.SettingInfiniband as NM.SettingInfiniband
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacsec as NM.SettingMacsec
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacvlan as NM.SettingMacvlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOlpcMesh as NM.SettingOlpcMesh
import {-# SOURCE #-} qualified GI.NM.Objects.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.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 SettingWired = SettingWired (SP.ManagedPtr SettingWired)
deriving (SettingWired -> SettingWired -> Bool
(SettingWired -> SettingWired -> Bool)
-> (SettingWired -> SettingWired -> Bool) -> Eq SettingWired
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingWired -> SettingWired -> Bool
== :: SettingWired -> SettingWired -> Bool
$c/= :: SettingWired -> SettingWired -> Bool
/= :: SettingWired -> SettingWired -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingWired where
toManagedPtr :: SettingWired -> ManagedPtr SettingWired
toManagedPtr (SettingWired ManagedPtr SettingWired
p) = ManagedPtr SettingWired
p
foreign import ccall "nm_setting_wired_get_type"
c_nm_setting_wired_get_type :: IO B.Types.GType
instance B.Types.TypedObject SettingWired where
glibType :: IO GType
glibType = IO GType
c_nm_setting_wired_get_type
instance B.Types.GObject SettingWired
class (SP.GObject o, O.IsDescendantOf SettingWired o) => IsSettingWired o
instance (SP.GObject o, O.IsDescendantOf SettingWired o) => IsSettingWired o
instance O.HasParentTypes SettingWired
type instance O.ParentTypes SettingWired = '[NM.Setting.Setting, GObject.Object.Object]
toSettingWired :: (MIO.MonadIO m, IsSettingWired o) => o -> m SettingWired
toSettingWired :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m SettingWired
toSettingWired = IO SettingWired -> m SettingWired
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SettingWired -> m SettingWired)
-> (o -> IO SettingWired) -> o -> m SettingWired
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SettingWired -> SettingWired) -> o -> IO SettingWired
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SettingWired -> SettingWired
SettingWired
instance B.GValue.IsGValue (Maybe SettingWired) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_setting_wired_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingWired -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingWired
P.Nothing = Ptr GValue -> Ptr SettingWired -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SettingWired
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingWired)
gvalueSet_ Ptr GValue
gv (P.Just SettingWired
obj) = SettingWired -> (Ptr SettingWired -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingWired
obj (Ptr GValue -> Ptr SettingWired -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingWired)
gvalueGet_ Ptr GValue
gv = do
Ptr SettingWired
ptr <- Ptr GValue -> IO (Ptr SettingWired)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SettingWired)
if Ptr SettingWired
ptr Ptr SettingWired -> Ptr SettingWired -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingWired
forall a. Ptr a
FP.nullPtr
then SettingWired -> Maybe SettingWired
forall a. a -> Maybe a
P.Just (SettingWired -> Maybe SettingWired)
-> IO SettingWired -> IO (Maybe SettingWired)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingWired -> SettingWired)
-> Ptr SettingWired -> IO SettingWired
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SettingWired -> SettingWired
SettingWired Ptr SettingWired
ptr
else Maybe SettingWired -> IO (Maybe SettingWired)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingWired
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingWiredMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingWiredMethod "addMacBlacklistItem" o = SettingWiredAddMacBlacklistItemMethodInfo
ResolveSettingWiredMethod "addMacDenylistItem" o = SettingWiredAddMacDenylistItemMethodInfo
ResolveSettingWiredMethod "addS390Option" o = SettingWiredAddS390OptionMethodInfo
ResolveSettingWiredMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingWiredMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingWiredMethod "clearMacBlacklistItems" o = SettingWiredClearMacBlacklistItemsMethodInfo
ResolveSettingWiredMethod "clearMacDenylistItems" o = SettingWiredClearMacDenylistItemsMethodInfo
ResolveSettingWiredMethod "compare" o = NM.Setting.SettingCompareMethodInfo
ResolveSettingWiredMethod "diff" o = NM.Setting.SettingDiffMethodInfo
ResolveSettingWiredMethod "duplicate" o = NM.Setting.SettingDuplicateMethodInfo
ResolveSettingWiredMethod "enumerateValues" o = NM.Setting.SettingEnumerateValuesMethodInfo
ResolveSettingWiredMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingWiredMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingWiredMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingWiredMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingWiredMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingWiredMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingWiredMethod "optionClearByName" o = NM.Setting.SettingOptionClearByNameMethodInfo
ResolveSettingWiredMethod "optionGet" o = NM.Setting.SettingOptionGetMethodInfo
ResolveSettingWiredMethod "optionGetAllNames" o = NM.Setting.SettingOptionGetAllNamesMethodInfo
ResolveSettingWiredMethod "optionGetBoolean" o = NM.Setting.SettingOptionGetBooleanMethodInfo
ResolveSettingWiredMethod "optionGetUint32" o = NM.Setting.SettingOptionGetUint32MethodInfo
ResolveSettingWiredMethod "optionSet" o = NM.Setting.SettingOptionSetMethodInfo
ResolveSettingWiredMethod "optionSetBoolean" o = NM.Setting.SettingOptionSetBooleanMethodInfo
ResolveSettingWiredMethod "optionSetUint32" o = NM.Setting.SettingOptionSetUint32MethodInfo
ResolveSettingWiredMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingWiredMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingWiredMethod "removeMacBlacklistItem" o = SettingWiredRemoveMacBlacklistItemMethodInfo
ResolveSettingWiredMethod "removeMacBlacklistItemByValue" o = SettingWiredRemoveMacBlacklistItemByValueMethodInfo
ResolveSettingWiredMethod "removeMacDenylistItem" o = SettingWiredRemoveMacDenylistItemMethodInfo
ResolveSettingWiredMethod "removeMacDenylistItemByValue" o = SettingWiredRemoveMacDenylistItemByValueMethodInfo
ResolveSettingWiredMethod "removeS390Option" o = SettingWiredRemoveS390OptionMethodInfo
ResolveSettingWiredMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingWiredMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingWiredMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingWiredMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingWiredMethod "toString" o = NM.Setting.SettingToStringMethodInfo
ResolveSettingWiredMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingWiredMethod "verify" o = NM.Setting.SettingVerifyMethodInfo
ResolveSettingWiredMethod "verifySecrets" o = NM.Setting.SettingVerifySecretsMethodInfo
ResolveSettingWiredMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingWiredMethod "getAcceptAllMacAddresses" o = SettingWiredGetAcceptAllMacAddressesMethodInfo
ResolveSettingWiredMethod "getAutoNegotiate" o = SettingWiredGetAutoNegotiateMethodInfo
ResolveSettingWiredMethod "getClonedMacAddress" o = SettingWiredGetClonedMacAddressMethodInfo
ResolveSettingWiredMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingWiredMethod "getDbusPropertyType" o = NM.Setting.SettingGetDbusPropertyTypeMethodInfo
ResolveSettingWiredMethod "getDuplex" o = SettingWiredGetDuplexMethodInfo
ResolveSettingWiredMethod "getGenerateMacAddressMask" o = SettingWiredGetGenerateMacAddressMaskMethodInfo
ResolveSettingWiredMethod "getMacAddress" o = SettingWiredGetMacAddressMethodInfo
ResolveSettingWiredMethod "getMacAddressBlacklist" o = SettingWiredGetMacAddressBlacklistMethodInfo
ResolveSettingWiredMethod "getMacAddressDenylist" o = SettingWiredGetMacAddressDenylistMethodInfo
ResolveSettingWiredMethod "getMacBlacklistItem" o = SettingWiredGetMacBlacklistItemMethodInfo
ResolveSettingWiredMethod "getMacDenylistItem" o = SettingWiredGetMacDenylistItemMethodInfo
ResolveSettingWiredMethod "getMtu" o = SettingWiredGetMtuMethodInfo
ResolveSettingWiredMethod "getName" o = NM.Setting.SettingGetNameMethodInfo
ResolveSettingWiredMethod "getNumMacBlacklistItems" o = SettingWiredGetNumMacBlacklistItemsMethodInfo
ResolveSettingWiredMethod "getNumMacDenylistItems" o = SettingWiredGetNumMacDenylistItemsMethodInfo
ResolveSettingWiredMethod "getNumS390Options" o = SettingWiredGetNumS390OptionsMethodInfo
ResolveSettingWiredMethod "getPort" o = SettingWiredGetPortMethodInfo
ResolveSettingWiredMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingWiredMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingWiredMethod "getS390Nettype" o = SettingWiredGetS390NettypeMethodInfo
ResolveSettingWiredMethod "getS390Option" o = SettingWiredGetS390OptionMethodInfo
ResolveSettingWiredMethod "getS390OptionByKey" o = SettingWiredGetS390OptionByKeyMethodInfo
ResolveSettingWiredMethod "getS390Subchannels" o = SettingWiredGetS390SubchannelsMethodInfo
ResolveSettingWiredMethod "getSecretFlags" o = NM.Setting.SettingGetSecretFlagsMethodInfo
ResolveSettingWiredMethod "getSpeed" o = SettingWiredGetSpeedMethodInfo
ResolveSettingWiredMethod "getValidS390Options" o = SettingWiredGetValidS390OptionsMethodInfo
ResolveSettingWiredMethod "getWakeOnLan" o = SettingWiredGetWakeOnLanMethodInfo
ResolveSettingWiredMethod "getWakeOnLanPassword" o = SettingWiredGetWakeOnLanPasswordMethodInfo
ResolveSettingWiredMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingWiredMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingWiredMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingWiredMethod "setSecretFlags" o = NM.Setting.SettingSetSecretFlagsMethodInfo
ResolveSettingWiredMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingWiredMethod t SettingWired, O.OverloadedMethod info SettingWired p) => OL.IsLabel t (SettingWired -> 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 ~ ResolveSettingWiredMethod t SettingWired, O.OverloadedMethod info SettingWired p, R.HasField t SettingWired p) => R.HasField t SettingWired p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingWiredMethod t SettingWired, O.OverloadedMethodInfo info SettingWired) => OL.IsLabel t (O.MethodProxy info SettingWired) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingWiredAcceptAllMacAddresses :: (MonadIO m, IsSettingWired o) => o -> m NM.Enums.Ternary
getSettingWiredAcceptAllMacAddresses :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Ternary
getSettingWiredAcceptAllMacAddresses o
obj = IO Ternary -> m Ternary
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Ternary -> m Ternary) -> IO Ternary -> m Ternary
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Ternary
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"accept-all-mac-addresses"
setSettingWiredAcceptAllMacAddresses :: (MonadIO m, IsSettingWired o) => o -> NM.Enums.Ternary -> m ()
setSettingWiredAcceptAllMacAddresses :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Ternary -> m ()
setSettingWiredAcceptAllMacAddresses o
obj Ternary
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 -> Ternary -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"accept-all-mac-addresses" Ternary
val
constructSettingWiredAcceptAllMacAddresses :: (IsSettingWired o, MIO.MonadIO m) => NM.Enums.Ternary -> m (GValueConstruct o)
constructSettingWiredAcceptAllMacAddresses :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Ternary -> m (GValueConstruct o)
constructSettingWiredAcceptAllMacAddresses Ternary
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 -> Ternary -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"accept-all-mac-addresses" Ternary
val
#if defined(ENABLE_OVERLOADING)
data SettingWiredAcceptAllMacAddressesPropertyInfo
instance AttrInfo SettingWiredAcceptAllMacAddressesPropertyInfo where
type AttrAllowedOps SettingWiredAcceptAllMacAddressesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWiredAcceptAllMacAddressesPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredAcceptAllMacAddressesPropertyInfo = (~) NM.Enums.Ternary
type AttrTransferTypeConstraint SettingWiredAcceptAllMacAddressesPropertyInfo = (~) NM.Enums.Ternary
type AttrTransferType SettingWiredAcceptAllMacAddressesPropertyInfo = NM.Enums.Ternary
type AttrGetType SettingWiredAcceptAllMacAddressesPropertyInfo = NM.Enums.Ternary
type AttrLabel SettingWiredAcceptAllMacAddressesPropertyInfo = "accept-all-mac-addresses"
type AttrOrigin SettingWiredAcceptAllMacAddressesPropertyInfo = SettingWired
attrGet = getSettingWiredAcceptAllMacAddresses
attrSet = setSettingWiredAcceptAllMacAddresses
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredAcceptAllMacAddresses
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.acceptAllMacAddresses"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:acceptAllMacAddresses"
})
#endif
getSettingWiredAutoNegotiate :: (MonadIO m, IsSettingWired o) => o -> m Bool
getSettingWiredAutoNegotiate :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Bool
getSettingWiredAutoNegotiate 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
"auto-negotiate"
setSettingWiredAutoNegotiate :: (MonadIO m, IsSettingWired o) => o -> Bool -> m ()
setSettingWiredAutoNegotiate :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Bool -> m ()
setSettingWiredAutoNegotiate 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
"auto-negotiate" Bool
val
constructSettingWiredAutoNegotiate :: (IsSettingWired o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingWiredAutoNegotiate :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingWiredAutoNegotiate 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
"auto-negotiate" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingWiredAutoNegotiatePropertyInfo
instance AttrInfo SettingWiredAutoNegotiatePropertyInfo where
type AttrAllowedOps SettingWiredAutoNegotiatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWiredAutoNegotiatePropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredAutoNegotiatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingWiredAutoNegotiatePropertyInfo = (~) Bool
type AttrTransferType SettingWiredAutoNegotiatePropertyInfo = Bool
type AttrGetType SettingWiredAutoNegotiatePropertyInfo = Bool
type AttrLabel SettingWiredAutoNegotiatePropertyInfo = "auto-negotiate"
type AttrOrigin SettingWiredAutoNegotiatePropertyInfo = SettingWired
attrGet = getSettingWiredAutoNegotiate
attrSet = setSettingWiredAutoNegotiate
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredAutoNegotiate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.autoNegotiate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:autoNegotiate"
})
#endif
getSettingWiredClonedMacAddress :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredClonedMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredClonedMacAddress 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
"getSettingWiredClonedMacAddress" (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
"cloned-mac-address"
setSettingWiredClonedMacAddress :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredClonedMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredClonedMacAddress 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
"cloned-mac-address" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredClonedMacAddress :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredClonedMacAddress :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredClonedMacAddress 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
"cloned-mac-address" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredClonedMacAddress :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredClonedMacAddress :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredClonedMacAddress 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
"cloned-mac-address" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredClonedMacAddressPropertyInfo
instance AttrInfo SettingWiredClonedMacAddressPropertyInfo where
type AttrAllowedOps SettingWiredClonedMacAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredClonedMacAddressPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredClonedMacAddressPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredClonedMacAddressPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredClonedMacAddressPropertyInfo = T.Text
type AttrGetType SettingWiredClonedMacAddressPropertyInfo = T.Text
type AttrLabel SettingWiredClonedMacAddressPropertyInfo = "cloned-mac-address"
type AttrOrigin SettingWiredClonedMacAddressPropertyInfo = SettingWired
attrGet = getSettingWiredClonedMacAddress
attrSet = setSettingWiredClonedMacAddress
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredClonedMacAddress
attrClear = clearSettingWiredClonedMacAddress
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.clonedMacAddress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:clonedMacAddress"
})
#endif
getSettingWiredDuplex :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredDuplex :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredDuplex 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
"getSettingWiredDuplex" (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
"duplex"
setSettingWiredDuplex :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredDuplex :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredDuplex 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
"duplex" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredDuplex :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredDuplex :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredDuplex 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
"duplex" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredDuplex :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredDuplex :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredDuplex 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
"duplex" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredDuplexPropertyInfo
instance AttrInfo SettingWiredDuplexPropertyInfo where
type AttrAllowedOps SettingWiredDuplexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredDuplexPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredDuplexPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredDuplexPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredDuplexPropertyInfo = T.Text
type AttrGetType SettingWiredDuplexPropertyInfo = T.Text
type AttrLabel SettingWiredDuplexPropertyInfo = "duplex"
type AttrOrigin SettingWiredDuplexPropertyInfo = SettingWired
attrGet = getSettingWiredDuplex
attrSet = setSettingWiredDuplex
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredDuplex
attrClear = clearSettingWiredDuplex
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.duplex"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:duplex"
})
#endif
getSettingWiredGenerateMacAddressMask :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredGenerateMacAddressMask :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredGenerateMacAddressMask 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
"getSettingWiredGenerateMacAddressMask" (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
"generate-mac-address-mask"
setSettingWiredGenerateMacAddressMask :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredGenerateMacAddressMask :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredGenerateMacAddressMask 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
"generate-mac-address-mask" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredGenerateMacAddressMask :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredGenerateMacAddressMask :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredGenerateMacAddressMask 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
"generate-mac-address-mask" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredGenerateMacAddressMask :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredGenerateMacAddressMask :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredGenerateMacAddressMask 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
"generate-mac-address-mask" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredGenerateMacAddressMaskPropertyInfo
instance AttrInfo SettingWiredGenerateMacAddressMaskPropertyInfo where
type AttrAllowedOps SettingWiredGenerateMacAddressMaskPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredGenerateMacAddressMaskPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredGenerateMacAddressMaskPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredGenerateMacAddressMaskPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredGenerateMacAddressMaskPropertyInfo = T.Text
type AttrGetType SettingWiredGenerateMacAddressMaskPropertyInfo = T.Text
type AttrLabel SettingWiredGenerateMacAddressMaskPropertyInfo = "generate-mac-address-mask"
type AttrOrigin SettingWiredGenerateMacAddressMaskPropertyInfo = SettingWired
attrGet = getSettingWiredGenerateMacAddressMask
attrSet = setSettingWiredGenerateMacAddressMask
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredGenerateMacAddressMask
attrClear = clearSettingWiredGenerateMacAddressMask
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.generateMacAddressMask"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:generateMacAddressMask"
})
#endif
getSettingWiredMacAddress :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredMacAddress 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
"getSettingWiredMacAddress" (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
"mac-address"
setSettingWiredMacAddress :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredMacAddress 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
"mac-address" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredMacAddress :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredMacAddress :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredMacAddress 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
"mac-address" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredMacAddress :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddress :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddress 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
"mac-address" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredMacAddressPropertyInfo
instance AttrInfo SettingWiredMacAddressPropertyInfo where
type AttrAllowedOps SettingWiredMacAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredMacAddressPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredMacAddressPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredMacAddressPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredMacAddressPropertyInfo = T.Text
type AttrGetType SettingWiredMacAddressPropertyInfo = T.Text
type AttrLabel SettingWiredMacAddressPropertyInfo = "mac-address"
type AttrOrigin SettingWiredMacAddressPropertyInfo = SettingWired
attrGet = getSettingWiredMacAddress
attrSet = setSettingWiredMacAddress
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredMacAddress
attrClear = clearSettingWiredMacAddress
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.macAddress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:macAddress"
})
#endif
getSettingWiredMacAddressBlacklist :: (MonadIO m, IsSettingWired o) => o -> m [T.Text]
getSettingWiredMacAddressBlacklist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m [Text]
getSettingWiredMacAddressBlacklist 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
"getSettingWiredMacAddressBlacklist" (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.getObjectPropertyStringArray o
obj String
"mac-address-blacklist"
setSettingWiredMacAddressBlacklist :: (MonadIO m, IsSettingWired o) => o -> [T.Text] -> m ()
setSettingWiredMacAddressBlacklist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> [Text] -> m ()
setSettingWiredMacAddressBlacklist 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.setObjectPropertyStringArray o
obj String
"mac-address-blacklist" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructSettingWiredMacAddressBlacklist :: (IsSettingWired o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWiredMacAddressBlacklist :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWiredMacAddressBlacklist [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.constructObjectPropertyStringArray String
"mac-address-blacklist" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearSettingWiredMacAddressBlacklist :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddressBlacklist :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddressBlacklist 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.setObjectPropertyStringArray o
obj String
"mac-address-blacklist" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data SettingWiredMacAddressBlacklistPropertyInfo
instance AttrInfo SettingWiredMacAddressBlacklistPropertyInfo where
type AttrAllowedOps SettingWiredMacAddressBlacklistPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredMacAddressBlacklistPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredMacAddressBlacklistPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWiredMacAddressBlacklistPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWiredMacAddressBlacklistPropertyInfo = [T.Text]
type AttrGetType SettingWiredMacAddressBlacklistPropertyInfo = [T.Text]
type AttrLabel SettingWiredMacAddressBlacklistPropertyInfo = "mac-address-blacklist"
type AttrOrigin SettingWiredMacAddressBlacklistPropertyInfo = SettingWired
attrGet = getSettingWiredMacAddressBlacklist
attrSet = setSettingWiredMacAddressBlacklist
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredMacAddressBlacklist
attrClear = clearSettingWiredMacAddressBlacklist
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.macAddressBlacklist"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:macAddressBlacklist"
})
#endif
getSettingWiredMacAddressDenylist :: (MonadIO m, IsSettingWired o) => o -> m [T.Text]
getSettingWiredMacAddressDenylist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m [Text]
getSettingWiredMacAddressDenylist 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
"getSettingWiredMacAddressDenylist" (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.getObjectPropertyStringArray o
obj String
"mac-address-denylist"
setSettingWiredMacAddressDenylist :: (MonadIO m, IsSettingWired o) => o -> [T.Text] -> m ()
setSettingWiredMacAddressDenylist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> [Text] -> m ()
setSettingWiredMacAddressDenylist 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.setObjectPropertyStringArray o
obj String
"mac-address-denylist" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructSettingWiredMacAddressDenylist :: (IsSettingWired o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWiredMacAddressDenylist :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWiredMacAddressDenylist [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.constructObjectPropertyStringArray String
"mac-address-denylist" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearSettingWiredMacAddressDenylist :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddressDenylist :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredMacAddressDenylist 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.setObjectPropertyStringArray o
obj String
"mac-address-denylist" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data SettingWiredMacAddressDenylistPropertyInfo
instance AttrInfo SettingWiredMacAddressDenylistPropertyInfo where
type AttrAllowedOps SettingWiredMacAddressDenylistPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredMacAddressDenylistPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredMacAddressDenylistPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWiredMacAddressDenylistPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWiredMacAddressDenylistPropertyInfo = [T.Text]
type AttrGetType SettingWiredMacAddressDenylistPropertyInfo = [T.Text]
type AttrLabel SettingWiredMacAddressDenylistPropertyInfo = "mac-address-denylist"
type AttrOrigin SettingWiredMacAddressDenylistPropertyInfo = SettingWired
attrGet = getSettingWiredMacAddressDenylist
attrSet = setSettingWiredMacAddressDenylist
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredMacAddressDenylist
attrClear = clearSettingWiredMacAddressDenylist
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.macAddressDenylist"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:macAddressDenylist"
})
#endif
getSettingWiredMtu :: (MonadIO m, IsSettingWired o) => o -> m Word32
getSettingWiredMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Word32
getSettingWiredMtu 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"
setSettingWiredMtu :: (MonadIO m, IsSettingWired o) => o -> Word32 -> m ()
setSettingWiredMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Word32 -> m ()
setSettingWiredMtu 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
constructSettingWiredMtu :: (IsSettingWired o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWiredMtu :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWiredMtu 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 SettingWiredMtuPropertyInfo
instance AttrInfo SettingWiredMtuPropertyInfo where
type AttrAllowedOps SettingWiredMtuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWiredMtuPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredMtuPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWiredMtuPropertyInfo = (~) Word32
type AttrTransferType SettingWiredMtuPropertyInfo = Word32
type AttrGetType SettingWiredMtuPropertyInfo = Word32
type AttrLabel SettingWiredMtuPropertyInfo = "mtu"
type AttrOrigin SettingWiredMtuPropertyInfo = SettingWired
attrGet = getSettingWiredMtu
attrSet = setSettingWiredMtu
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredMtu
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.mtu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:mtu"
})
#endif
getSettingWiredPort :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredPort :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredPort 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
"getSettingWiredPort" (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
"port"
setSettingWiredPort :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredPort :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredPort 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
"port" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredPort :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredPort :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredPort 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
"port" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredPort :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredPort :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredPort 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
"port" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredPortPropertyInfo
instance AttrInfo SettingWiredPortPropertyInfo where
type AttrAllowedOps SettingWiredPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredPortPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredPortPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredPortPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredPortPropertyInfo = T.Text
type AttrGetType SettingWiredPortPropertyInfo = T.Text
type AttrLabel SettingWiredPortPropertyInfo = "port"
type AttrOrigin SettingWiredPortPropertyInfo = SettingWired
attrGet = getSettingWiredPort
attrSet = setSettingWiredPort
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredPort
attrClear = clearSettingWiredPort
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.port"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:port"
})
#endif
getSettingWiredS390Nettype :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredS390Nettype :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredS390Nettype 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
"getSettingWiredS390Nettype" (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
"s390-nettype"
setSettingWiredS390Nettype :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredS390Nettype :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredS390Nettype 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
"s390-nettype" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredS390Nettype :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredS390Nettype :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredS390Nettype 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
"s390-nettype" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredS390Nettype :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Nettype :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Nettype 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
"s390-nettype" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredS390NettypePropertyInfo
instance AttrInfo SettingWiredS390NettypePropertyInfo where
type AttrAllowedOps SettingWiredS390NettypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredS390NettypePropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredS390NettypePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredS390NettypePropertyInfo = (~) T.Text
type AttrTransferType SettingWiredS390NettypePropertyInfo = T.Text
type AttrGetType SettingWiredS390NettypePropertyInfo = T.Text
type AttrLabel SettingWiredS390NettypePropertyInfo = "s390-nettype"
type AttrOrigin SettingWiredS390NettypePropertyInfo = SettingWired
attrGet = getSettingWiredS390Nettype
attrSet = setSettingWiredS390Nettype
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredS390Nettype
attrClear = clearSettingWiredS390Nettype
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.s390Nettype"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:s390Nettype"
})
#endif
getSettingWiredS390Options :: (MonadIO m, IsSettingWired o) => o -> m (Maybe (Map.Map T.Text T.Text))
getSettingWiredS390Options :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m (Maybe (Map Text Text))
getSettingWiredS390Options o
obj = IO (Maybe (Map Text Text)) -> m (Maybe (Map Text Text))
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe (Map Text Text)) -> m (Maybe (Map Text Text)))
-> IO (Maybe (Map Text Text)) -> m (Maybe (Map Text Text))
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe (Map Text Text))
forall a b. GObject a => a -> String -> IO b
B.Properties.getObjectPropertyHash o
obj String
"s390-options"
setSettingWiredS390Options :: (MonadIO m, IsSettingWired o) => o -> Map.Map T.Text T.Text -> m ()
setSettingWiredS390Options :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Map Text Text -> m ()
setSettingWiredS390Options o
obj Map Text 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 (Map Text Text) -> IO ()
forall a b. GObject a => a -> String -> b -> IO ()
B.Properties.setObjectPropertyHash o
obj String
"s390-options" (Map Text Text -> Maybe (Map Text Text)
forall a. a -> Maybe a
Just Map Text Text
val)
constructSettingWiredS390Options :: (IsSettingWired o, MIO.MonadIO m) => Map.Map T.Text T.Text -> m (GValueConstruct o)
constructSettingWiredS390Options :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Map Text Text -> m (GValueConstruct o)
constructSettingWiredS390Options Map Text 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 (Map Text Text) -> IO (GValueConstruct o)
forall b o. String -> b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyHash String
"s390-options" (Map Text Text -> Maybe (Map Text Text)
forall a. a -> Maybe a
P.Just Map Text Text
val)
clearSettingWiredS390Options :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Options :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Options 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 (Map Text Text) -> IO ()
forall a b. GObject a => a -> String -> b -> IO ()
B.Properties.setObjectPropertyHash o
obj String
"s390-options" (Maybe (Map Text Text)
forall a. Maybe a
Nothing :: Maybe (Map.Map T.Text T.Text))
#if defined(ENABLE_OVERLOADING)
data SettingWiredS390OptionsPropertyInfo
instance AttrInfo SettingWiredS390OptionsPropertyInfo where
type AttrAllowedOps SettingWiredS390OptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredS390OptionsPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredS390OptionsPropertyInfo = (~) (Map.Map T.Text T.Text)
type AttrTransferTypeConstraint SettingWiredS390OptionsPropertyInfo = (~) (Map.Map T.Text T.Text)
type AttrTransferType SettingWiredS390OptionsPropertyInfo = Map.Map T.Text T.Text
type AttrGetType SettingWiredS390OptionsPropertyInfo = (Maybe (Map.Map T.Text T.Text))
type AttrLabel SettingWiredS390OptionsPropertyInfo = "s390-options"
type AttrOrigin SettingWiredS390OptionsPropertyInfo = SettingWired
attrGet = getSettingWiredS390Options
attrSet = setSettingWiredS390Options
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredS390Options
attrClear = clearSettingWiredS390Options
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.s390Options"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:s390Options"
})
#endif
getSettingWiredS390Subchannels :: (MonadIO m, IsSettingWired o) => o -> m [T.Text]
getSettingWiredS390Subchannels :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m [Text]
getSettingWiredS390Subchannels 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
"getSettingWiredS390Subchannels" (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.getObjectPropertyStringArray o
obj String
"s390-subchannels"
setSettingWiredS390Subchannels :: (MonadIO m, IsSettingWired o) => o -> [T.Text] -> m ()
setSettingWiredS390Subchannels :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> [Text] -> m ()
setSettingWiredS390Subchannels 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.setObjectPropertyStringArray o
obj String
"s390-subchannels" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructSettingWiredS390Subchannels :: (IsSettingWired o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWiredS390Subchannels :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWiredS390Subchannels [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.constructObjectPropertyStringArray String
"s390-subchannels" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearSettingWiredS390Subchannels :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Subchannels :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredS390Subchannels 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.setObjectPropertyStringArray o
obj String
"s390-subchannels" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data SettingWiredS390SubchannelsPropertyInfo
instance AttrInfo SettingWiredS390SubchannelsPropertyInfo where
type AttrAllowedOps SettingWiredS390SubchannelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredS390SubchannelsPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredS390SubchannelsPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWiredS390SubchannelsPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWiredS390SubchannelsPropertyInfo = [T.Text]
type AttrGetType SettingWiredS390SubchannelsPropertyInfo = [T.Text]
type AttrLabel SettingWiredS390SubchannelsPropertyInfo = "s390-subchannels"
type AttrOrigin SettingWiredS390SubchannelsPropertyInfo = SettingWired
attrGet = getSettingWiredS390Subchannels
attrSet = setSettingWiredS390Subchannels
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredS390Subchannels
attrClear = clearSettingWiredS390Subchannels
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.s390Subchannels"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:s390Subchannels"
})
#endif
getSettingWiredSpeed :: (MonadIO m, IsSettingWired o) => o -> m Word32
getSettingWiredSpeed :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Word32
getSettingWiredSpeed 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
"speed"
setSettingWiredSpeed :: (MonadIO m, IsSettingWired o) => o -> Word32 -> m ()
setSettingWiredSpeed :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Word32 -> m ()
setSettingWiredSpeed 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
"speed" Word32
val
constructSettingWiredSpeed :: (IsSettingWired o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWiredSpeed :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWiredSpeed 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
"speed" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWiredSpeedPropertyInfo
instance AttrInfo SettingWiredSpeedPropertyInfo where
type AttrAllowedOps SettingWiredSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWiredSpeedPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredSpeedPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWiredSpeedPropertyInfo = (~) Word32
type AttrTransferType SettingWiredSpeedPropertyInfo = Word32
type AttrGetType SettingWiredSpeedPropertyInfo = Word32
type AttrLabel SettingWiredSpeedPropertyInfo = "speed"
type AttrOrigin SettingWiredSpeedPropertyInfo = SettingWired
attrGet = getSettingWiredSpeed
attrSet = setSettingWiredSpeed
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredSpeed
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.speed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:speed"
})
#endif
getSettingWiredWakeOnLan :: (MonadIO m, IsSettingWired o) => o -> m Word32
getSettingWiredWakeOnLan :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Word32
getSettingWiredWakeOnLan 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
"wake-on-lan"
setSettingWiredWakeOnLan :: (MonadIO m, IsSettingWired o) => o -> Word32 -> m ()
setSettingWiredWakeOnLan :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Word32 -> m ()
setSettingWiredWakeOnLan 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
"wake-on-lan" Word32
val
constructSettingWiredWakeOnLan :: (IsSettingWired o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWiredWakeOnLan :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWiredWakeOnLan 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
"wake-on-lan" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWiredWakeOnLanPropertyInfo
instance AttrInfo SettingWiredWakeOnLanPropertyInfo where
type AttrAllowedOps SettingWiredWakeOnLanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWiredWakeOnLanPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredWakeOnLanPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWiredWakeOnLanPropertyInfo = (~) Word32
type AttrTransferType SettingWiredWakeOnLanPropertyInfo = Word32
type AttrGetType SettingWiredWakeOnLanPropertyInfo = Word32
type AttrLabel SettingWiredWakeOnLanPropertyInfo = "wake-on-lan"
type AttrOrigin SettingWiredWakeOnLanPropertyInfo = SettingWired
attrGet = getSettingWiredWakeOnLan
attrSet = setSettingWiredWakeOnLan
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredWakeOnLan
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.wakeOnLan"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:wakeOnLan"
})
#endif
getSettingWiredWakeOnLanPassword :: (MonadIO m, IsSettingWired o) => o -> m T.Text
getSettingWiredWakeOnLanPassword :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> m Text
getSettingWiredWakeOnLanPassword 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
"getSettingWiredWakeOnLanPassword" (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
"wake-on-lan-password"
setSettingWiredWakeOnLanPassword :: (MonadIO m, IsSettingWired o) => o -> T.Text -> m ()
setSettingWiredWakeOnLanPassword :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWired o) =>
o -> Text -> m ()
setSettingWiredWakeOnLanPassword 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
"wake-on-lan-password" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWiredWakeOnLanPassword :: (IsSettingWired o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWiredWakeOnLanPassword :: forall o (m :: * -> *).
(IsSettingWired o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWiredWakeOnLanPassword 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
"wake-on-lan-password" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWiredWakeOnLanPassword :: (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredWakeOnLanPassword :: forall (m :: * -> *) o. (MonadIO m, IsSettingWired o) => o -> m ()
clearSettingWiredWakeOnLanPassword 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
"wake-on-lan-password" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWiredWakeOnLanPasswordPropertyInfo
instance AttrInfo SettingWiredWakeOnLanPasswordPropertyInfo where
type AttrAllowedOps SettingWiredWakeOnLanPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWiredWakeOnLanPasswordPropertyInfo = IsSettingWired
type AttrSetTypeConstraint SettingWiredWakeOnLanPasswordPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWiredWakeOnLanPasswordPropertyInfo = (~) T.Text
type AttrTransferType SettingWiredWakeOnLanPasswordPropertyInfo = T.Text
type AttrGetType SettingWiredWakeOnLanPasswordPropertyInfo = T.Text
type AttrLabel SettingWiredWakeOnLanPasswordPropertyInfo = "wake-on-lan-password"
type AttrOrigin SettingWiredWakeOnLanPasswordPropertyInfo = SettingWired
attrGet = getSettingWiredWakeOnLanPassword
attrSet = setSettingWiredWakeOnLanPassword
attrTransfer _ v = do
return v
attrConstruct = constructSettingWiredWakeOnLanPassword
attrClear = clearSettingWiredWakeOnLanPassword
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.wakeOnLanPassword"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#g:attr:wakeOnLanPassword"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingWired
type instance O.AttributeList SettingWired = SettingWiredAttributeList
type SettingWiredAttributeList = ('[ '("acceptAllMacAddresses", SettingWiredAcceptAllMacAddressesPropertyInfo), '("autoNegotiate", SettingWiredAutoNegotiatePropertyInfo), '("clonedMacAddress", SettingWiredClonedMacAddressPropertyInfo), '("duplex", SettingWiredDuplexPropertyInfo), '("generateMacAddressMask", SettingWiredGenerateMacAddressMaskPropertyInfo), '("macAddress", SettingWiredMacAddressPropertyInfo), '("macAddressBlacklist", SettingWiredMacAddressBlacklistPropertyInfo), '("macAddressDenylist", SettingWiredMacAddressDenylistPropertyInfo), '("mtu", SettingWiredMtuPropertyInfo), '("name", NM.Setting.SettingNamePropertyInfo), '("port", SettingWiredPortPropertyInfo), '("s390Nettype", SettingWiredS390NettypePropertyInfo), '("s390Options", SettingWiredS390OptionsPropertyInfo), '("s390Subchannels", SettingWiredS390SubchannelsPropertyInfo), '("speed", SettingWiredSpeedPropertyInfo), '("wakeOnLan", SettingWiredWakeOnLanPropertyInfo), '("wakeOnLanPassword", SettingWiredWakeOnLanPasswordPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingWiredAcceptAllMacAddresses :: AttrLabelProxy "acceptAllMacAddresses"
settingWiredAcceptAllMacAddresses = AttrLabelProxy
settingWiredAutoNegotiate :: AttrLabelProxy "autoNegotiate"
settingWiredAutoNegotiate = AttrLabelProxy
settingWiredClonedMacAddress :: AttrLabelProxy "clonedMacAddress"
settingWiredClonedMacAddress = AttrLabelProxy
settingWiredDuplex :: AttrLabelProxy "duplex"
settingWiredDuplex = AttrLabelProxy
settingWiredGenerateMacAddressMask :: AttrLabelProxy "generateMacAddressMask"
settingWiredGenerateMacAddressMask = AttrLabelProxy
settingWiredMacAddress :: AttrLabelProxy "macAddress"
settingWiredMacAddress = AttrLabelProxy
settingWiredMacAddressBlacklist :: AttrLabelProxy "macAddressBlacklist"
settingWiredMacAddressBlacklist = AttrLabelProxy
settingWiredMacAddressDenylist :: AttrLabelProxy "macAddressDenylist"
settingWiredMacAddressDenylist = AttrLabelProxy
settingWiredMtu :: AttrLabelProxy "mtu"
settingWiredMtu = AttrLabelProxy
settingWiredPort :: AttrLabelProxy "port"
settingWiredPort = AttrLabelProxy
settingWiredS390Nettype :: AttrLabelProxy "s390Nettype"
settingWiredS390Nettype = AttrLabelProxy
settingWiredS390Options :: AttrLabelProxy "s390Options"
settingWiredS390Options = AttrLabelProxy
settingWiredS390Subchannels :: AttrLabelProxy "s390Subchannels"
settingWiredS390Subchannels = AttrLabelProxy
settingWiredSpeed :: AttrLabelProxy "speed"
settingWiredSpeed = AttrLabelProxy
settingWiredWakeOnLan :: AttrLabelProxy "wakeOnLan"
settingWiredWakeOnLan = AttrLabelProxy
settingWiredWakeOnLanPassword :: AttrLabelProxy "wakeOnLanPassword"
settingWiredWakeOnLanPassword = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SettingWired = SettingWiredSignalList
type SettingWiredSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_setting_wired_new" nm_setting_wired_new ::
IO (Ptr SettingWired)
settingWiredNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SettingWired
settingWiredNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SettingWired
settingWiredNew = IO SettingWired -> m SettingWired
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingWired -> m SettingWired)
-> IO SettingWired -> m SettingWired
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
result <- IO (Ptr SettingWired)
nm_setting_wired_new
Text -> Ptr SettingWired -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredNew" Ptr SettingWired
result
SettingWired
result' <- ((ManagedPtr SettingWired -> SettingWired)
-> Ptr SettingWired -> IO SettingWired
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SettingWired -> SettingWired
SettingWired) Ptr SettingWired
result
SettingWired -> IO SettingWired
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingWired
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_setting_wired_add_mac_blacklist_item" nm_setting_wired_add_mac_blacklist_item ::
Ptr SettingWired ->
CString ->
IO CInt
{-# DEPRECATED settingWiredAddMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredAddMacDenylistItem' instead."] #-}
settingWiredAddMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m Bool
settingWiredAddMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Bool
settingWiredAddMacBlacklistItem a
setting Text
mac = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWired -> CString -> IO CInt
nm_setting_wired_add_mac_blacklist_item Ptr SettingWired
setting' CString
mac'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mac'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredAddMacBlacklistItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredAddMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWiredAddMacBlacklistItem
instance O.OverloadedMethodInfo SettingWiredAddMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredAddMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredAddMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wired_add_mac_denylist_item" nm_setting_wired_add_mac_denylist_item ::
Ptr SettingWired ->
CString ->
IO CInt
settingWiredAddMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m Bool
settingWiredAddMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Bool
settingWiredAddMacDenylistItem a
setting Text
mac = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWired -> CString -> IO CInt
nm_setting_wired_add_mac_denylist_item Ptr SettingWired
setting' CString
mac'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mac'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredAddMacDenylistItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredAddMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWiredAddMacDenylistItem
instance O.OverloadedMethodInfo SettingWiredAddMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredAddMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredAddMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wired_add_s390_option" nm_setting_wired_add_s390_option ::
Ptr SettingWired ->
CString ->
CString ->
IO CInt
settingWiredAddS390Option ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> T.Text
-> m Bool
settingWiredAddS390Option :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> Text -> m Bool
settingWiredAddS390Option a
setting Text
key Text
value = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
key' <- Text -> IO CString
textToCString Text
key
CString
value' <- Text -> IO CString
textToCString Text
value
CInt
result <- Ptr SettingWired -> CString -> CString -> IO CInt
nm_setting_wired_add_s390_option Ptr SettingWired
setting' CString
key' CString
value'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredAddS390OptionMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredAddS390OptionMethodInfo a signature where
overloadedMethod = settingWiredAddS390Option
instance O.OverloadedMethodInfo SettingWiredAddS390OptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredAddS390Option",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredAddS390Option"
})
#endif
foreign import ccall "nm_setting_wired_clear_mac_blacklist_items" nm_setting_wired_clear_mac_blacklist_items ::
Ptr SettingWired ->
IO ()
{-# DEPRECATED settingWiredClearMacBlacklistItems ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredClearMacDenylistItems' instead."] #-}
settingWiredClearMacBlacklistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m ()
settingWiredClearMacBlacklistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m ()
settingWiredClearMacBlacklistItems a
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWired -> IO ()
nm_setting_wired_clear_mac_blacklist_items Ptr SettingWired
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingWiredClearMacBlacklistItemsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredClearMacBlacklistItemsMethodInfo a signature where
overloadedMethod = settingWiredClearMacBlacklistItems
instance O.OverloadedMethodInfo SettingWiredClearMacBlacklistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredClearMacBlacklistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredClearMacBlacklistItems"
})
#endif
foreign import ccall "nm_setting_wired_clear_mac_denylist_items" nm_setting_wired_clear_mac_denylist_items ::
Ptr SettingWired ->
IO ()
settingWiredClearMacDenylistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m ()
settingWiredClearMacDenylistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m ()
settingWiredClearMacDenylistItems a
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWired -> IO ()
nm_setting_wired_clear_mac_denylist_items Ptr SettingWired
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingWiredClearMacDenylistItemsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredClearMacDenylistItemsMethodInfo a signature where
overloadedMethod = settingWiredClearMacDenylistItems
instance O.OverloadedMethodInfo SettingWiredClearMacDenylistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredClearMacDenylistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredClearMacDenylistItems"
})
#endif
foreign import ccall "nm_setting_wired_get_accept_all_mac_addresses" nm_setting_wired_get_accept_all_mac_addresses ::
Ptr SettingWired ->
IO CInt
settingWiredGetAcceptAllMacAddresses ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m NM.Enums.Ternary
settingWiredGetAcceptAllMacAddresses :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Ternary
settingWiredGetAcceptAllMacAddresses a
setting = IO Ternary -> m Ternary
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Ternary -> m Ternary) -> IO Ternary -> m Ternary
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingWired -> IO CInt
nm_setting_wired_get_accept_all_mac_addresses Ptr SettingWired
setting'
let result' :: Ternary
result' = (Int -> Ternary
forall a. Enum a => Int -> a
toEnum (Int -> Ternary) -> (CInt -> Int) -> CInt -> Ternary
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Ternary -> IO Ternary
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ternary
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredGetAcceptAllMacAddressesMethodInfo
instance (signature ~ (m NM.Enums.Ternary), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetAcceptAllMacAddressesMethodInfo a signature where
overloadedMethod = settingWiredGetAcceptAllMacAddresses
instance O.OverloadedMethodInfo SettingWiredGetAcceptAllMacAddressesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetAcceptAllMacAddresses",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetAcceptAllMacAddresses"
})
#endif
foreign import ccall "nm_setting_wired_get_auto_negotiate" nm_setting_wired_get_auto_negotiate ::
Ptr SettingWired ->
IO CInt
settingWiredGetAutoNegotiate ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Bool
settingWiredGetAutoNegotiate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Bool
settingWiredGetAutoNegotiate 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingWired -> IO CInt
nm_setting_wired_get_auto_negotiate Ptr SettingWired
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 SettingWiredGetAutoNegotiateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetAutoNegotiateMethodInfo a signature where
overloadedMethod = settingWiredGetAutoNegotiate
instance O.OverloadedMethodInfo SettingWiredGetAutoNegotiateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetAutoNegotiate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetAutoNegotiate"
})
#endif
foreign import ccall "nm_setting_wired_get_cloned_mac_address" nm_setting_wired_get_cloned_mac_address ::
Ptr SettingWired ->
IO CString
settingWiredGetClonedMacAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetClonedMacAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetClonedMacAddress 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_cloned_mac_address Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetClonedMacAddress" 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 SettingWiredGetClonedMacAddressMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetClonedMacAddressMethodInfo a signature where
overloadedMethod = settingWiredGetClonedMacAddress
instance O.OverloadedMethodInfo SettingWiredGetClonedMacAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetClonedMacAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetClonedMacAddress"
})
#endif
foreign import ccall "nm_setting_wired_get_duplex" nm_setting_wired_get_duplex ::
Ptr SettingWired ->
IO CString
settingWiredGetDuplex ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetDuplex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetDuplex 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_duplex Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetDuplex" 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 SettingWiredGetDuplexMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetDuplexMethodInfo a signature where
overloadedMethod = settingWiredGetDuplex
instance O.OverloadedMethodInfo SettingWiredGetDuplexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetDuplex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetDuplex"
})
#endif
foreign import ccall "nm_setting_wired_get_generate_mac_address_mask" nm_setting_wired_get_generate_mac_address_mask ::
Ptr SettingWired ->
IO CString
settingWiredGetGenerateMacAddressMask ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetGenerateMacAddressMask :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetGenerateMacAddressMask 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_generate_mac_address_mask Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetGenerateMacAddressMask" 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 SettingWiredGetGenerateMacAddressMaskMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetGenerateMacAddressMaskMethodInfo a signature where
overloadedMethod = settingWiredGetGenerateMacAddressMask
instance O.OverloadedMethodInfo SettingWiredGetGenerateMacAddressMaskMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetGenerateMacAddressMask",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetGenerateMacAddressMask"
})
#endif
foreign import ccall "nm_setting_wired_get_mac_address" nm_setting_wired_get_mac_address ::
Ptr SettingWired ->
IO CString
settingWiredGetMacAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetMacAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetMacAddress 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_mac_address Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetMacAddress" 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 SettingWiredGetMacAddressMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMacAddressMethodInfo a signature where
overloadedMethod = settingWiredGetMacAddress
instance O.OverloadedMethodInfo SettingWiredGetMacAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMacAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMacAddress"
})
#endif
foreign import ccall "nm_setting_wired_get_mac_address_blacklist" nm_setting_wired_get_mac_address_blacklist ::
Ptr SettingWired ->
IO (Ptr CString)
{-# DEPRECATED settingWiredGetMacAddressBlacklist ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredGetMacAddressDenylist' instead."] #-}
settingWiredGetMacAddressBlacklist ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m [T.Text]
settingWiredGetMacAddressBlacklist :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m [Text]
settingWiredGetMacAddressBlacklist 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
result <- Ptr SettingWired -> IO (Ptr CString)
nm_setting_wired_get_mac_address_blacklist Ptr SettingWired
setting'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetMacAddressBlacklist" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 SettingWiredGetMacAddressBlacklistMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMacAddressBlacklistMethodInfo a signature where
overloadedMethod = settingWiredGetMacAddressBlacklist
instance O.OverloadedMethodInfo SettingWiredGetMacAddressBlacklistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMacAddressBlacklist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMacAddressBlacklist"
})
#endif
foreign import ccall "nm_setting_wired_get_mac_address_denylist" nm_setting_wired_get_mac_address_denylist ::
Ptr SettingWired ->
IO (Ptr CString)
settingWiredGetMacAddressDenylist ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m [T.Text]
settingWiredGetMacAddressDenylist :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m [Text]
settingWiredGetMacAddressDenylist 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
result <- Ptr SettingWired -> IO (Ptr CString)
nm_setting_wired_get_mac_address_denylist Ptr SettingWired
setting'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetMacAddressDenylist" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 SettingWiredGetMacAddressDenylistMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMacAddressDenylistMethodInfo a signature where
overloadedMethod = settingWiredGetMacAddressDenylist
instance O.OverloadedMethodInfo SettingWiredGetMacAddressDenylistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMacAddressDenylist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMacAddressDenylist"
})
#endif
foreign import ccall "nm_setting_wired_get_mac_blacklist_item" nm_setting_wired_get_mac_blacklist_item ::
Ptr SettingWired ->
Word32 ->
IO CString
{-# DEPRECATED settingWiredGetMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredGetMacDenylistItem' instead."] #-}
settingWiredGetMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> Word32
-> m T.Text
settingWiredGetMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Word32 -> m Text
settingWiredGetMacBlacklistItem a
setting Word32
idx = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> Word32 -> IO CString
nm_setting_wired_get_mac_blacklist_item Ptr SettingWired
setting' Word32
idx
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetMacBlacklistItem" 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 SettingWiredGetMacBlacklistItemMethodInfo
instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWiredGetMacBlacklistItem
instance O.OverloadedMethodInfo SettingWiredGetMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wired_get_mac_denylist_item" nm_setting_wired_get_mac_denylist_item ::
Ptr SettingWired ->
Word32 ->
IO CString
settingWiredGetMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> Word32
-> m T.Text
settingWiredGetMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Word32 -> m Text
settingWiredGetMacDenylistItem a
setting Word32
idx = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> Word32 -> IO CString
nm_setting_wired_get_mac_denylist_item Ptr SettingWired
setting' Word32
idx
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetMacDenylistItem" 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 SettingWiredGetMacDenylistItemMethodInfo
instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWiredGetMacDenylistItem
instance O.OverloadedMethodInfo SettingWiredGetMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wired_get_mtu" nm_setting_wired_get_mtu ::
Ptr SettingWired ->
IO Word32
settingWiredGetMtu ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Word32
settingWiredGetMtu :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Word32
settingWiredGetMtu 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWired -> IO Word32
nm_setting_wired_get_mtu Ptr SettingWired
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 SettingWiredGetMtuMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetMtuMethodInfo a signature where
overloadedMethod = settingWiredGetMtu
instance O.OverloadedMethodInfo SettingWiredGetMtuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetMtu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetMtu"
})
#endif
foreign import ccall "nm_setting_wired_get_num_mac_blacklist_items" nm_setting_wired_get_num_mac_blacklist_items ::
Ptr SettingWired ->
IO Word32
{-# DEPRECATED settingWiredGetNumMacBlacklistItems ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredGetNumMacDenylistItems' instead."] #-}
settingWiredGetNumMacBlacklistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Word32
settingWiredGetNumMacBlacklistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Word32
settingWiredGetNumMacBlacklistItems 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWired -> IO Word32
nm_setting_wired_get_num_mac_blacklist_items Ptr SettingWired
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 SettingWiredGetNumMacBlacklistItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetNumMacBlacklistItemsMethodInfo a signature where
overloadedMethod = settingWiredGetNumMacBlacklistItems
instance O.OverloadedMethodInfo SettingWiredGetNumMacBlacklistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetNumMacBlacklistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetNumMacBlacklistItems"
})
#endif
foreign import ccall "nm_setting_wired_get_num_mac_denylist_items" nm_setting_wired_get_num_mac_denylist_items ::
Ptr SettingWired ->
IO Word32
settingWiredGetNumMacDenylistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Word32
settingWiredGetNumMacDenylistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Word32
settingWiredGetNumMacDenylistItems 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWired -> IO Word32
nm_setting_wired_get_num_mac_denylist_items Ptr SettingWired
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 SettingWiredGetNumMacDenylistItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetNumMacDenylistItemsMethodInfo a signature where
overloadedMethod = settingWiredGetNumMacDenylistItems
instance O.OverloadedMethodInfo SettingWiredGetNumMacDenylistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetNumMacDenylistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetNumMacDenylistItems"
})
#endif
foreign import ccall "nm_setting_wired_get_num_s390_options" nm_setting_wired_get_num_s390_options ::
Ptr SettingWired ->
IO Word32
settingWiredGetNumS390Options ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Word32
settingWiredGetNumS390Options :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Word32
settingWiredGetNumS390Options 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWired -> IO Word32
nm_setting_wired_get_num_s390_options Ptr SettingWired
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 SettingWiredGetNumS390OptionsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetNumS390OptionsMethodInfo a signature where
overloadedMethod = settingWiredGetNumS390Options
instance O.OverloadedMethodInfo SettingWiredGetNumS390OptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetNumS390Options",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetNumS390Options"
})
#endif
foreign import ccall "nm_setting_wired_get_port" nm_setting_wired_get_port ::
Ptr SettingWired ->
IO CString
settingWiredGetPort ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetPort :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetPort 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_port Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetPort" 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 SettingWiredGetPortMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetPortMethodInfo a signature where
overloadedMethod = settingWiredGetPort
instance O.OverloadedMethodInfo SettingWiredGetPortMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetPort",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetPort"
})
#endif
foreign import ccall "nm_setting_wired_get_s390_nettype" nm_setting_wired_get_s390_nettype ::
Ptr SettingWired ->
IO CString
settingWiredGetS390Nettype ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetS390Nettype :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetS390Nettype 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_s390_nettype Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetS390Nettype" 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 SettingWiredGetS390NettypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetS390NettypeMethodInfo a signature where
overloadedMethod = settingWiredGetS390Nettype
instance O.OverloadedMethodInfo SettingWiredGetS390NettypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetS390Nettype",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetS390Nettype"
})
#endif
foreign import ccall "nm_setting_wired_get_s390_option" nm_setting_wired_get_s390_option ::
Ptr SettingWired ->
Word32 ->
Ptr CString ->
Ptr CString ->
IO CInt
settingWiredGetS390Option ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> Word32
-> m ((Bool, Maybe T.Text, Maybe T.Text))
settingWiredGetS390Option :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Word32 -> m (Bool, Maybe Text, Maybe Text)
settingWiredGetS390Option a
setting Word32
idx = IO (Bool, Maybe Text, Maybe Text)
-> m (Bool, Maybe Text, Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Maybe Text, Maybe Text)
-> m (Bool, Maybe Text, Maybe Text))
-> IO (Bool, Maybe Text, Maybe Text)
-> m (Bool, Maybe Text, Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
outKey <- IO (Ptr CString)
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr CString
outValue <- IO (Ptr CString)
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
CInt
result <- Ptr SettingWired -> Word32 -> Ptr CString -> Ptr CString -> IO CInt
nm_setting_wired_get_s390_option Ptr SettingWired
setting' Word32
idx Ptr CString
outKey Ptr CString
outValue
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CString
outKey' <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
outKey
Maybe Text
maybeOutKey' <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
outKey' ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
outKey'' -> do
Text
outKey''' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
outKey''
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
outKey'''
CString
outValue' <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
outValue
Maybe Text
maybeOutValue' <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
outValue' ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
outValue'' -> do
Text
outValue''' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
outValue''
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
outValue'''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
outKey
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
outValue
(Bool, Maybe Text, Maybe Text) -> IO (Bool, Maybe Text, Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Maybe Text
maybeOutKey', Maybe Text
maybeOutValue')
#if defined(ENABLE_OVERLOADING)
data SettingWiredGetS390OptionMethodInfo
instance (signature ~ (Word32 -> m ((Bool, Maybe T.Text, Maybe T.Text))), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetS390OptionMethodInfo a signature where
overloadedMethod = settingWiredGetS390Option
instance O.OverloadedMethodInfo SettingWiredGetS390OptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetS390Option",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetS390Option"
})
#endif
foreign import ccall "nm_setting_wired_get_s390_option_by_key" nm_setting_wired_get_s390_option_by_key ::
Ptr SettingWired ->
CString ->
IO CString
settingWiredGetS390OptionByKey ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m T.Text
settingWiredGetS390OptionByKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Text
settingWiredGetS390OptionByKey a
setting Text
key = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
key' <- Text -> IO CString
textToCString Text
key
CString
result <- Ptr SettingWired -> CString -> IO CString
nm_setting_wired_get_s390_option_by_key Ptr SettingWired
setting' CString
key'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetS390OptionByKey" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredGetS390OptionByKeyMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetS390OptionByKeyMethodInfo a signature where
overloadedMethod = settingWiredGetS390OptionByKey
instance O.OverloadedMethodInfo SettingWiredGetS390OptionByKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetS390OptionByKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetS390OptionByKey"
})
#endif
foreign import ccall "nm_setting_wired_get_s390_subchannels" nm_setting_wired_get_s390_subchannels ::
Ptr SettingWired ->
IO (Ptr CString)
settingWiredGetS390Subchannels ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m [T.Text]
settingWiredGetS390Subchannels :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m [Text]
settingWiredGetS390Subchannels 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
result <- Ptr SettingWired -> IO (Ptr CString)
nm_setting_wired_get_s390_subchannels Ptr SettingWired
setting'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetS390Subchannels" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr 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 SettingWiredGetS390SubchannelsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetS390SubchannelsMethodInfo a signature where
overloadedMethod = settingWiredGetS390Subchannels
instance O.OverloadedMethodInfo SettingWiredGetS390SubchannelsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetS390Subchannels",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetS390Subchannels"
})
#endif
foreign import ccall "nm_setting_wired_get_speed" nm_setting_wired_get_speed ::
Ptr SettingWired ->
IO Word32
settingWiredGetSpeed ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m Word32
settingWiredGetSpeed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Word32
settingWiredGetSpeed 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWired -> IO Word32
nm_setting_wired_get_speed Ptr SettingWired
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 SettingWiredGetSpeedMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetSpeedMethodInfo a signature where
overloadedMethod = settingWiredGetSpeed
instance O.OverloadedMethodInfo SettingWiredGetSpeedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetSpeed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetSpeed"
})
#endif
foreign import ccall "nm_setting_wired_get_valid_s390_options" nm_setting_wired_get_valid_s390_options ::
Ptr SettingWired ->
IO (Ptr CString)
settingWiredGetValidS390Options ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
Maybe (a)
-> m [T.Text]
settingWiredGetValidS390Options :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
Maybe a -> m [Text]
settingWiredGetValidS390Options Maybe 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 SettingWired
maybeSetting <- case Maybe a
setting of
Maybe a
Nothing -> Ptr SettingWired -> IO (Ptr SettingWired)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SettingWired
forall a. Ptr a
FP.nullPtr
Just a
jSetting -> do
Ptr SettingWired
jSetting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jSetting
Ptr SettingWired -> IO (Ptr SettingWired)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SettingWired
jSetting'
Ptr CString
result <- Ptr SettingWired -> IO (Ptr CString)
nm_setting_wired_get_valid_s390_options Ptr SettingWired
maybeSetting
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetValidS390Options" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
setting a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredGetValidS390OptionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetValidS390OptionsMethodInfo a signature where
overloadedMethod i = settingWiredGetValidS390Options (Just i)
instance O.OverloadedMethodInfo SettingWiredGetValidS390OptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetValidS390Options",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetValidS390Options"
})
#endif
foreign import ccall "nm_setting_wired_get_wake_on_lan" nm_setting_wired_get_wake_on_lan ::
Ptr SettingWired ->
IO CUInt
settingWiredGetWakeOnLan ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m [NM.Flags.SettingWiredWakeOnLan]
settingWiredGetWakeOnLan :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m [SettingWiredWakeOnLan]
settingWiredGetWakeOnLan a
setting = IO [SettingWiredWakeOnLan] -> m [SettingWiredWakeOnLan]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [SettingWiredWakeOnLan] -> m [SettingWiredWakeOnLan])
-> IO [SettingWiredWakeOnLan] -> m [SettingWiredWakeOnLan]
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingWired -> IO CUInt
nm_setting_wired_get_wake_on_lan Ptr SettingWired
setting'
let result' :: [SettingWiredWakeOnLan]
result' = CUInt -> [SettingWiredWakeOnLan]
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
[SettingWiredWakeOnLan] -> IO [SettingWiredWakeOnLan]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [SettingWiredWakeOnLan]
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredGetWakeOnLanMethodInfo
instance (signature ~ (m [NM.Flags.SettingWiredWakeOnLan]), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetWakeOnLanMethodInfo a signature where
overloadedMethod = settingWiredGetWakeOnLan
instance O.OverloadedMethodInfo SettingWiredGetWakeOnLanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetWakeOnLan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetWakeOnLan"
})
#endif
foreign import ccall "nm_setting_wired_get_wake_on_lan_password" nm_setting_wired_get_wake_on_lan_password ::
Ptr SettingWired ->
IO CString
settingWiredGetWakeOnLanPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> m T.Text
settingWiredGetWakeOnLanPassword :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> m Text
settingWiredGetWakeOnLanPassword 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWired -> IO CString
nm_setting_wired_get_wake_on_lan_password Ptr SettingWired
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWiredGetWakeOnLanPassword" 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 SettingWiredGetWakeOnLanPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredGetWakeOnLanPasswordMethodInfo a signature where
overloadedMethod = settingWiredGetWakeOnLanPassword
instance O.OverloadedMethodInfo SettingWiredGetWakeOnLanPasswordMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredGetWakeOnLanPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredGetWakeOnLanPassword"
})
#endif
foreign import ccall "nm_setting_wired_remove_mac_blacklist_item" nm_setting_wired_remove_mac_blacklist_item ::
Ptr SettingWired ->
Word32 ->
IO ()
{-# DEPRECATED settingWiredRemoveMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredRemoveMacDenylistItem' instead."] #-}
settingWiredRemoveMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> Word32
-> m ()
settingWiredRemoveMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Word32 -> m ()
settingWiredRemoveMacBlacklistItem a
setting Word32
idx = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWired -> Word32 -> IO ()
nm_setting_wired_remove_mac_blacklist_item Ptr SettingWired
setting' Word32
idx
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingWiredRemoveMacBlacklistItemMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredRemoveMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWiredRemoveMacBlacklistItem
instance O.OverloadedMethodInfo SettingWiredRemoveMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredRemoveMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredRemoveMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wired_remove_mac_blacklist_item_by_value" nm_setting_wired_remove_mac_blacklist_item_by_value ::
Ptr SettingWired ->
CString ->
IO CInt
{-# DEPRECATED settingWiredRemoveMacBlacklistItemByValue ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWired.settingWiredRemoveMacDenylistItemByValue' instead."] #-}
settingWiredRemoveMacBlacklistItemByValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m Bool
settingWiredRemoveMacBlacklistItemByValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Bool
settingWiredRemoveMacBlacklistItemByValue a
setting Text
mac = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWired -> CString -> IO CInt
nm_setting_wired_remove_mac_blacklist_item_by_value Ptr SettingWired
setting' CString
mac'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mac'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredRemoveMacBlacklistItemByValueMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredRemoveMacBlacklistItemByValueMethodInfo a signature where
overloadedMethod = settingWiredRemoveMacBlacklistItemByValue
instance O.OverloadedMethodInfo SettingWiredRemoveMacBlacklistItemByValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredRemoveMacBlacklistItemByValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredRemoveMacBlacklistItemByValue"
})
#endif
foreign import ccall "nm_setting_wired_remove_mac_denylist_item" nm_setting_wired_remove_mac_denylist_item ::
Ptr SettingWired ->
Word32 ->
IO ()
settingWiredRemoveMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> Word32
-> m ()
settingWiredRemoveMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Word32 -> m ()
settingWiredRemoveMacDenylistItem a
setting Word32
idx = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWired -> Word32 -> IO ()
nm_setting_wired_remove_mac_denylist_item Ptr SettingWired
setting' Word32
idx
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SettingWiredRemoveMacDenylistItemMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredRemoveMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWiredRemoveMacDenylistItem
instance O.OverloadedMethodInfo SettingWiredRemoveMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredRemoveMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredRemoveMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wired_remove_mac_denylist_item_by_value" nm_setting_wired_remove_mac_denylist_item_by_value ::
Ptr SettingWired ->
CString ->
IO CInt
settingWiredRemoveMacDenylistItemByValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m Bool
settingWiredRemoveMacDenylistItemByValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Bool
settingWiredRemoveMacDenylistItemByValue a
setting Text
mac = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWired -> CString -> IO CInt
nm_setting_wired_remove_mac_denylist_item_by_value Ptr SettingWired
setting' CString
mac'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mac'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredRemoveMacDenylistItemByValueMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredRemoveMacDenylistItemByValueMethodInfo a signature where
overloadedMethod = settingWiredRemoveMacDenylistItemByValue
instance O.OverloadedMethodInfo SettingWiredRemoveMacDenylistItemByValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredRemoveMacDenylistItemByValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredRemoveMacDenylistItemByValue"
})
#endif
foreign import ccall "nm_setting_wired_remove_s390_option" nm_setting_wired_remove_s390_option ::
Ptr SettingWired ->
CString ->
IO CInt
settingWiredRemoveS390Option ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWired a) =>
a
-> T.Text
-> m Bool
settingWiredRemoveS390Option :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWired a) =>
a -> Text -> m Bool
settingWiredRemoveS390Option a
setting Text
key = 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 SettingWired
setting' <- a -> IO (Ptr SettingWired)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
key' <- Text -> IO CString
textToCString Text
key
CInt
result <- Ptr SettingWired -> CString -> IO CInt
nm_setting_wired_remove_s390_option Ptr SettingWired
setting' CString
key'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWiredRemoveS390OptionMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWired a) => O.OverloadedMethod SettingWiredRemoveS390OptionMethodInfo a signature where
overloadedMethod = settingWiredRemoveS390Option
instance O.OverloadedMethodInfo SettingWiredRemoveS390OptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWired.settingWiredRemoveS390Option",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWired.html#v:settingWiredRemoveS390Option"
})
#endif