{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.SettingWireless
(
SettingWireless(..) ,
IsSettingWireless ,
toSettingWireless ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingWirelessMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessAddMacBlacklistItemMethodInfo,
#endif
settingWirelessAddMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessAddMacDenylistItemMethodInfo,
#endif
settingWirelessAddMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessAddSeenBssidMethodInfo ,
#endif
settingWirelessAddSeenBssid ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessApSecurityCompatibleMethodInfo,
#endif
settingWirelessApSecurityCompatible ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessClearMacBlacklistItemsMethodInfo,
#endif
settingWirelessClearMacBlacklistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessClearMacDenylistItemsMethodInfo,
#endif
settingWirelessClearMacDenylistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetApIsolationMethodInfo ,
#endif
settingWirelessGetApIsolation ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetBandMethodInfo ,
#endif
settingWirelessGetBand ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetBssidMethodInfo ,
#endif
settingWirelessGetBssid ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetChannelMethodInfo ,
#endif
settingWirelessGetChannel ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetChannelWidthMethodInfo,
#endif
settingWirelessGetChannelWidth ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetClonedMacAddressMethodInfo,
#endif
settingWirelessGetClonedMacAddress ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetGenerateMacAddressMaskMethodInfo,
#endif
settingWirelessGetGenerateMacAddressMask,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetHiddenMethodInfo ,
#endif
settingWirelessGetHidden ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacAddressMethodInfo ,
#endif
settingWirelessGetMacAddress ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacAddressBlacklistMethodInfo,
#endif
settingWirelessGetMacAddressBlacklist ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacAddressDenylistMethodInfo,
#endif
settingWirelessGetMacAddressDenylist ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacAddressRandomizationMethodInfo,
#endif
settingWirelessGetMacAddressRandomization,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacBlacklistItemMethodInfo,
#endif
settingWirelessGetMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMacDenylistItemMethodInfo,
#endif
settingWirelessGetMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetModeMethodInfo ,
#endif
settingWirelessGetMode ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetMtuMethodInfo ,
#endif
settingWirelessGetMtu ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetNumMacBlacklistItemsMethodInfo,
#endif
settingWirelessGetNumMacBlacklistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetNumMacDenylistItemsMethodInfo,
#endif
settingWirelessGetNumMacDenylistItems ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetNumSeenBssidsMethodInfo,
#endif
settingWirelessGetNumSeenBssids ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetPowersaveMethodInfo ,
#endif
settingWirelessGetPowersave ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetRateMethodInfo ,
#endif
settingWirelessGetRate ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetSeenBssidMethodInfo ,
#endif
settingWirelessGetSeenBssid ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetSsidMethodInfo ,
#endif
settingWirelessGetSsid ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetTxPowerMethodInfo ,
#endif
settingWirelessGetTxPower ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessGetWakeOnWlanMethodInfo ,
#endif
settingWirelessGetWakeOnWlan ,
settingWirelessNew ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessRemoveMacBlacklistItemMethodInfo,
#endif
settingWirelessRemoveMacBlacklistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessRemoveMacBlacklistItemByValueMethodInfo,
#endif
settingWirelessRemoveMacBlacklistItemByValue,
#if defined(ENABLE_OVERLOADING)
SettingWirelessRemoveMacDenylistItemMethodInfo,
#endif
settingWirelessRemoveMacDenylistItem ,
#if defined(ENABLE_OVERLOADING)
SettingWirelessRemoveMacDenylistItemByValueMethodInfo,
#endif
settingWirelessRemoveMacDenylistItemByValue,
#if defined(ENABLE_OVERLOADING)
SettingWirelessApIsolationPropertyInfo ,
#endif
constructSettingWirelessApIsolation ,
getSettingWirelessApIsolation ,
setSettingWirelessApIsolation ,
#if defined(ENABLE_OVERLOADING)
settingWirelessApIsolation ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessBandPropertyInfo ,
#endif
clearSettingWirelessBand ,
constructSettingWirelessBand ,
getSettingWirelessBand ,
setSettingWirelessBand ,
#if defined(ENABLE_OVERLOADING)
settingWirelessBand ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessBssidPropertyInfo ,
#endif
clearSettingWirelessBssid ,
constructSettingWirelessBssid ,
getSettingWirelessBssid ,
setSettingWirelessBssid ,
#if defined(ENABLE_OVERLOADING)
settingWirelessBssid ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessChannelPropertyInfo ,
#endif
constructSettingWirelessChannel ,
getSettingWirelessChannel ,
setSettingWirelessChannel ,
#if defined(ENABLE_OVERLOADING)
settingWirelessChannel ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessChannelWidthPropertyInfo ,
#endif
constructSettingWirelessChannelWidth ,
getSettingWirelessChannelWidth ,
setSettingWirelessChannelWidth ,
#if defined(ENABLE_OVERLOADING)
settingWirelessChannelWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessClonedMacAddressPropertyInfo,
#endif
clearSettingWirelessClonedMacAddress ,
constructSettingWirelessClonedMacAddress,
getSettingWirelessClonedMacAddress ,
setSettingWirelessClonedMacAddress ,
#if defined(ENABLE_OVERLOADING)
settingWirelessClonedMacAddress ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessGenerateMacAddressMaskPropertyInfo,
#endif
clearSettingWirelessGenerateMacAddressMask,
constructSettingWirelessGenerateMacAddressMask,
getSettingWirelessGenerateMacAddressMask,
setSettingWirelessGenerateMacAddressMask,
#if defined(ENABLE_OVERLOADING)
settingWirelessGenerateMacAddressMask ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessHiddenPropertyInfo ,
#endif
constructSettingWirelessHidden ,
getSettingWirelessHidden ,
setSettingWirelessHidden ,
#if defined(ENABLE_OVERLOADING)
settingWirelessHidden ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessMacAddressPropertyInfo ,
#endif
clearSettingWirelessMacAddress ,
constructSettingWirelessMacAddress ,
getSettingWirelessMacAddress ,
setSettingWirelessMacAddress ,
#if defined(ENABLE_OVERLOADING)
settingWirelessMacAddress ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessMacAddressBlacklistPropertyInfo,
#endif
clearSettingWirelessMacAddressBlacklist ,
constructSettingWirelessMacAddressBlacklist,
getSettingWirelessMacAddressBlacklist ,
setSettingWirelessMacAddressBlacklist ,
#if defined(ENABLE_OVERLOADING)
settingWirelessMacAddressBlacklist ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessMacAddressDenylistPropertyInfo,
#endif
clearSettingWirelessMacAddressDenylist ,
constructSettingWirelessMacAddressDenylist,
getSettingWirelessMacAddressDenylist ,
setSettingWirelessMacAddressDenylist ,
#if defined(ENABLE_OVERLOADING)
settingWirelessMacAddressDenylist ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessMacAddressRandomizationPropertyInfo,
#endif
constructSettingWirelessMacAddressRandomization,
getSettingWirelessMacAddressRandomization,
setSettingWirelessMacAddressRandomization,
#if defined(ENABLE_OVERLOADING)
settingWirelessMacAddressRandomization ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessModePropertyInfo ,
#endif
clearSettingWirelessMode ,
constructSettingWirelessMode ,
getSettingWirelessMode ,
setSettingWirelessMode ,
#if defined(ENABLE_OVERLOADING)
settingWirelessMode ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessMtuPropertyInfo ,
#endif
constructSettingWirelessMtu ,
getSettingWirelessMtu ,
setSettingWirelessMtu ,
#if defined(ENABLE_OVERLOADING)
settingWirelessMtu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessPowersavePropertyInfo ,
#endif
constructSettingWirelessPowersave ,
getSettingWirelessPowersave ,
setSettingWirelessPowersave ,
#if defined(ENABLE_OVERLOADING)
settingWirelessPowersave ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessRatePropertyInfo ,
#endif
constructSettingWirelessRate ,
getSettingWirelessRate ,
setSettingWirelessRate ,
#if defined(ENABLE_OVERLOADING)
settingWirelessRate ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessSeenBssidsPropertyInfo ,
#endif
clearSettingWirelessSeenBssids ,
constructSettingWirelessSeenBssids ,
getSettingWirelessSeenBssids ,
setSettingWirelessSeenBssids ,
#if defined(ENABLE_OVERLOADING)
settingWirelessSeenBssids ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessSsidPropertyInfo ,
#endif
clearSettingWirelessSsid ,
constructSettingWirelessSsid ,
getSettingWirelessSsid ,
setSettingWirelessSsid ,
#if defined(ENABLE_OVERLOADING)
settingWirelessSsid ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessTxPowerPropertyInfo ,
#endif
constructSettingWirelessTxPower ,
getSettingWirelessTxPower ,
setSettingWirelessTxPower ,
#if defined(ENABLE_OVERLOADING)
settingWirelessTxPower ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingWirelessWakeOnWlanPropertyInfo ,
#endif
constructSettingWirelessWakeOnWlan ,
getSettingWirelessWakeOnWlan ,
setSettingWirelessWakeOnWlan ,
#if defined(ENABLE_OVERLOADING)
settingWirelessWakeOnWlan ,
#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.SettingWired as NM.SettingWired
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.GLib.Structs.Bytes as GLib.Bytes
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
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWirelessSecurity as NM.SettingWirelessSecurity
#endif
newtype SettingWireless = SettingWireless (SP.ManagedPtr SettingWireless)
deriving (SettingWireless -> SettingWireless -> Bool
(SettingWireless -> SettingWireless -> Bool)
-> (SettingWireless -> SettingWireless -> Bool)
-> Eq SettingWireless
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingWireless -> SettingWireless -> Bool
== :: SettingWireless -> SettingWireless -> Bool
$c/= :: SettingWireless -> SettingWireless -> Bool
/= :: SettingWireless -> SettingWireless -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingWireless where
toManagedPtr :: SettingWireless -> ManagedPtr SettingWireless
toManagedPtr (SettingWireless ManagedPtr SettingWireless
p) = ManagedPtr SettingWireless
p
foreign import ccall "nm_setting_wireless_get_type"
c_nm_setting_wireless_get_type :: IO B.Types.GType
instance B.Types.TypedObject SettingWireless where
glibType :: IO GType
glibType = IO GType
c_nm_setting_wireless_get_type
instance B.Types.GObject SettingWireless
class (SP.GObject o, O.IsDescendantOf SettingWireless o) => IsSettingWireless o
instance (SP.GObject o, O.IsDescendantOf SettingWireless o) => IsSettingWireless o
instance O.HasParentTypes SettingWireless
type instance O.ParentTypes SettingWireless = '[NM.Setting.Setting, GObject.Object.Object]
toSettingWireless :: (MIO.MonadIO m, IsSettingWireless o) => o -> m SettingWireless
toSettingWireless :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m SettingWireless
toSettingWireless = IO SettingWireless -> m SettingWireless
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SettingWireless -> m SettingWireless)
-> (o -> IO SettingWireless) -> o -> m SettingWireless
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SettingWireless -> SettingWireless)
-> o -> IO SettingWireless
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SettingWireless -> SettingWireless
SettingWireless
instance B.GValue.IsGValue (Maybe SettingWireless) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_setting_wireless_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingWireless -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingWireless
P.Nothing = Ptr GValue -> Ptr SettingWireless -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SettingWireless
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingWireless)
gvalueSet_ Ptr GValue
gv (P.Just SettingWireless
obj) = SettingWireless -> (Ptr SettingWireless -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingWireless
obj (Ptr GValue -> Ptr SettingWireless -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingWireless)
gvalueGet_ Ptr GValue
gv = do
Ptr SettingWireless
ptr <- Ptr GValue -> IO (Ptr SettingWireless)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SettingWireless)
if Ptr SettingWireless
ptr Ptr SettingWireless -> Ptr SettingWireless -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingWireless
forall a. Ptr a
FP.nullPtr
then SettingWireless -> Maybe SettingWireless
forall a. a -> Maybe a
P.Just (SettingWireless -> Maybe SettingWireless)
-> IO SettingWireless -> IO (Maybe SettingWireless)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingWireless -> SettingWireless)
-> Ptr SettingWireless -> IO SettingWireless
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SettingWireless -> SettingWireless
SettingWireless Ptr SettingWireless
ptr
else Maybe SettingWireless -> IO (Maybe SettingWireless)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingWireless
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingWirelessMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingWirelessMethod "addMacBlacklistItem" o = SettingWirelessAddMacBlacklistItemMethodInfo
ResolveSettingWirelessMethod "addMacDenylistItem" o = SettingWirelessAddMacDenylistItemMethodInfo
ResolveSettingWirelessMethod "addSeenBssid" o = SettingWirelessAddSeenBssidMethodInfo
ResolveSettingWirelessMethod "apSecurityCompatible" o = SettingWirelessApSecurityCompatibleMethodInfo
ResolveSettingWirelessMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingWirelessMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingWirelessMethod "clearMacBlacklistItems" o = SettingWirelessClearMacBlacklistItemsMethodInfo
ResolveSettingWirelessMethod "clearMacDenylistItems" o = SettingWirelessClearMacDenylistItemsMethodInfo
ResolveSettingWirelessMethod "compare" o = NM.Setting.SettingCompareMethodInfo
ResolveSettingWirelessMethod "diff" o = NM.Setting.SettingDiffMethodInfo
ResolveSettingWirelessMethod "duplicate" o = NM.Setting.SettingDuplicateMethodInfo
ResolveSettingWirelessMethod "enumerateValues" o = NM.Setting.SettingEnumerateValuesMethodInfo
ResolveSettingWirelessMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingWirelessMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingWirelessMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingWirelessMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingWirelessMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingWirelessMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingWirelessMethod "optionClearByName" o = NM.Setting.SettingOptionClearByNameMethodInfo
ResolveSettingWirelessMethod "optionGet" o = NM.Setting.SettingOptionGetMethodInfo
ResolveSettingWirelessMethod "optionGetAllNames" o = NM.Setting.SettingOptionGetAllNamesMethodInfo
ResolveSettingWirelessMethod "optionGetBoolean" o = NM.Setting.SettingOptionGetBooleanMethodInfo
ResolveSettingWirelessMethod "optionGetUint32" o = NM.Setting.SettingOptionGetUint32MethodInfo
ResolveSettingWirelessMethod "optionSet" o = NM.Setting.SettingOptionSetMethodInfo
ResolveSettingWirelessMethod "optionSetBoolean" o = NM.Setting.SettingOptionSetBooleanMethodInfo
ResolveSettingWirelessMethod "optionSetUint32" o = NM.Setting.SettingOptionSetUint32MethodInfo
ResolveSettingWirelessMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingWirelessMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingWirelessMethod "removeMacBlacklistItem" o = SettingWirelessRemoveMacBlacklistItemMethodInfo
ResolveSettingWirelessMethod "removeMacBlacklistItemByValue" o = SettingWirelessRemoveMacBlacklistItemByValueMethodInfo
ResolveSettingWirelessMethod "removeMacDenylistItem" o = SettingWirelessRemoveMacDenylistItemMethodInfo
ResolveSettingWirelessMethod "removeMacDenylistItemByValue" o = SettingWirelessRemoveMacDenylistItemByValueMethodInfo
ResolveSettingWirelessMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingWirelessMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingWirelessMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingWirelessMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingWirelessMethod "toString" o = NM.Setting.SettingToStringMethodInfo
ResolveSettingWirelessMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingWirelessMethod "verify" o = NM.Setting.SettingVerifyMethodInfo
ResolveSettingWirelessMethod "verifySecrets" o = NM.Setting.SettingVerifySecretsMethodInfo
ResolveSettingWirelessMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingWirelessMethod "getApIsolation" o = SettingWirelessGetApIsolationMethodInfo
ResolveSettingWirelessMethod "getBand" o = SettingWirelessGetBandMethodInfo
ResolveSettingWirelessMethod "getBssid" o = SettingWirelessGetBssidMethodInfo
ResolveSettingWirelessMethod "getChannel" o = SettingWirelessGetChannelMethodInfo
ResolveSettingWirelessMethod "getChannelWidth" o = SettingWirelessGetChannelWidthMethodInfo
ResolveSettingWirelessMethod "getClonedMacAddress" o = SettingWirelessGetClonedMacAddressMethodInfo
ResolveSettingWirelessMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingWirelessMethod "getDbusPropertyType" o = NM.Setting.SettingGetDbusPropertyTypeMethodInfo
ResolveSettingWirelessMethod "getGenerateMacAddressMask" o = SettingWirelessGetGenerateMacAddressMaskMethodInfo
ResolveSettingWirelessMethod "getHidden" o = SettingWirelessGetHiddenMethodInfo
ResolveSettingWirelessMethod "getMacAddress" o = SettingWirelessGetMacAddressMethodInfo
ResolveSettingWirelessMethod "getMacAddressBlacklist" o = SettingWirelessGetMacAddressBlacklistMethodInfo
ResolveSettingWirelessMethod "getMacAddressDenylist" o = SettingWirelessGetMacAddressDenylistMethodInfo
ResolveSettingWirelessMethod "getMacAddressRandomization" o = SettingWirelessGetMacAddressRandomizationMethodInfo
ResolveSettingWirelessMethod "getMacBlacklistItem" o = SettingWirelessGetMacBlacklistItemMethodInfo
ResolveSettingWirelessMethod "getMacDenylistItem" o = SettingWirelessGetMacDenylistItemMethodInfo
ResolveSettingWirelessMethod "getMode" o = SettingWirelessGetModeMethodInfo
ResolveSettingWirelessMethod "getMtu" o = SettingWirelessGetMtuMethodInfo
ResolveSettingWirelessMethod "getName" o = NM.Setting.SettingGetNameMethodInfo
ResolveSettingWirelessMethod "getNumMacBlacklistItems" o = SettingWirelessGetNumMacBlacklistItemsMethodInfo
ResolveSettingWirelessMethod "getNumMacDenylistItems" o = SettingWirelessGetNumMacDenylistItemsMethodInfo
ResolveSettingWirelessMethod "getNumSeenBssids" o = SettingWirelessGetNumSeenBssidsMethodInfo
ResolveSettingWirelessMethod "getPowersave" o = SettingWirelessGetPowersaveMethodInfo
ResolveSettingWirelessMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingWirelessMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingWirelessMethod "getRate" o = SettingWirelessGetRateMethodInfo
ResolveSettingWirelessMethod "getSecretFlags" o = NM.Setting.SettingGetSecretFlagsMethodInfo
ResolveSettingWirelessMethod "getSeenBssid" o = SettingWirelessGetSeenBssidMethodInfo
ResolveSettingWirelessMethod "getSsid" o = SettingWirelessGetSsidMethodInfo
ResolveSettingWirelessMethod "getTxPower" o = SettingWirelessGetTxPowerMethodInfo
ResolveSettingWirelessMethod "getWakeOnWlan" o = SettingWirelessGetWakeOnWlanMethodInfo
ResolveSettingWirelessMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingWirelessMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingWirelessMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingWirelessMethod "setSecretFlags" o = NM.Setting.SettingSetSecretFlagsMethodInfo
ResolveSettingWirelessMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingWirelessMethod t SettingWireless, O.OverloadedMethod info SettingWireless p) => OL.IsLabel t (SettingWireless -> 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 ~ ResolveSettingWirelessMethod t SettingWireless, O.OverloadedMethod info SettingWireless p, R.HasField t SettingWireless p) => R.HasField t SettingWireless p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingWirelessMethod t SettingWireless, O.OverloadedMethodInfo info SettingWireless) => OL.IsLabel t (O.MethodProxy info SettingWireless) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingWirelessApIsolation :: (MonadIO m, IsSettingWireless o) => o -> m NM.Enums.Ternary
getSettingWirelessApIsolation :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Ternary
getSettingWirelessApIsolation 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
"ap-isolation"
setSettingWirelessApIsolation :: (MonadIO m, IsSettingWireless o) => o -> NM.Enums.Ternary -> m ()
setSettingWirelessApIsolation :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Ternary -> m ()
setSettingWirelessApIsolation 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
"ap-isolation" Ternary
val
constructSettingWirelessApIsolation :: (IsSettingWireless o, MIO.MonadIO m) => NM.Enums.Ternary -> m (GValueConstruct o)
constructSettingWirelessApIsolation :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Ternary -> m (GValueConstruct o)
constructSettingWirelessApIsolation 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
"ap-isolation" Ternary
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessApIsolationPropertyInfo
instance AttrInfo SettingWirelessApIsolationPropertyInfo where
type AttrAllowedOps SettingWirelessApIsolationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessApIsolationPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessApIsolationPropertyInfo = (~) NM.Enums.Ternary
type AttrTransferTypeConstraint SettingWirelessApIsolationPropertyInfo = (~) NM.Enums.Ternary
type AttrTransferType SettingWirelessApIsolationPropertyInfo = NM.Enums.Ternary
type AttrGetType SettingWirelessApIsolationPropertyInfo = NM.Enums.Ternary
type AttrLabel SettingWirelessApIsolationPropertyInfo = "ap-isolation"
type AttrOrigin SettingWirelessApIsolationPropertyInfo = SettingWireless
attrGet = getSettingWirelessApIsolation
attrSet = setSettingWirelessApIsolation
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessApIsolation
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.apIsolation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:apIsolation"
})
#endif
getSettingWirelessBand :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessBand :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessBand 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
"getSettingWirelessBand" (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
"band"
setSettingWirelessBand :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessBand :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessBand 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
"band" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWirelessBand :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessBand :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessBand 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
"band" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWirelessBand :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessBand :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessBand 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
"band" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWirelessBandPropertyInfo
instance AttrInfo SettingWirelessBandPropertyInfo where
type AttrAllowedOps SettingWirelessBandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessBandPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessBandPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessBandPropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessBandPropertyInfo = T.Text
type AttrGetType SettingWirelessBandPropertyInfo = T.Text
type AttrLabel SettingWirelessBandPropertyInfo = "band"
type AttrOrigin SettingWirelessBandPropertyInfo = SettingWireless
attrGet = getSettingWirelessBand
attrSet = setSettingWirelessBand
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessBand
attrClear = clearSettingWirelessBand
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.band"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:band"
})
#endif
getSettingWirelessBssid :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessBssid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessBssid 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
"getSettingWirelessBssid" (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
"bssid"
setSettingWirelessBssid :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessBssid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessBssid 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
"bssid" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWirelessBssid :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessBssid :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessBssid 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
"bssid" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWirelessBssid :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessBssid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessBssid 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
"bssid" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWirelessBssidPropertyInfo
instance AttrInfo SettingWirelessBssidPropertyInfo where
type AttrAllowedOps SettingWirelessBssidPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessBssidPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessBssidPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessBssidPropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessBssidPropertyInfo = T.Text
type AttrGetType SettingWirelessBssidPropertyInfo = T.Text
type AttrLabel SettingWirelessBssidPropertyInfo = "bssid"
type AttrOrigin SettingWirelessBssidPropertyInfo = SettingWireless
attrGet = getSettingWirelessBssid
attrSet = setSettingWirelessBssid
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessBssid
attrClear = clearSettingWirelessBssid
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.bssid"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:bssid"
})
#endif
getSettingWirelessChannel :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessChannel :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessChannel 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
"channel"
setSettingWirelessChannel :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessChannel :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessChannel 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
"channel" Word32
val
constructSettingWirelessChannel :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessChannel :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessChannel 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
"channel" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessChannelPropertyInfo
instance AttrInfo SettingWirelessChannelPropertyInfo where
type AttrAllowedOps SettingWirelessChannelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessChannelPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessChannelPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessChannelPropertyInfo = (~) Word32
type AttrTransferType SettingWirelessChannelPropertyInfo = Word32
type AttrGetType SettingWirelessChannelPropertyInfo = Word32
type AttrLabel SettingWirelessChannelPropertyInfo = "channel"
type AttrOrigin SettingWirelessChannelPropertyInfo = SettingWireless
attrGet = getSettingWirelessChannel
attrSet = setSettingWirelessChannel
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessChannel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.channel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:channel"
})
#endif
getSettingWirelessChannelWidth :: (MonadIO m, IsSettingWireless o) => o -> m Int32
getSettingWirelessChannelWidth :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Int32
getSettingWirelessChannelWidth o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"channel-width"
setSettingWirelessChannelWidth :: (MonadIO m, IsSettingWireless o) => o -> Int32 -> m ()
setSettingWirelessChannelWidth :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Int32 -> m ()
setSettingWirelessChannelWidth o
obj Int32
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"channel-width" Int32
val
constructSettingWirelessChannelWidth :: (IsSettingWireless o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructSettingWirelessChannelWidth :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructSettingWirelessChannelWidth Int32
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"channel-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessChannelWidthPropertyInfo
instance AttrInfo SettingWirelessChannelWidthPropertyInfo where
type AttrAllowedOps SettingWirelessChannelWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessChannelWidthPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessChannelWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint SettingWirelessChannelWidthPropertyInfo = (~) Int32
type AttrTransferType SettingWirelessChannelWidthPropertyInfo = Int32
type AttrGetType SettingWirelessChannelWidthPropertyInfo = Int32
type AttrLabel SettingWirelessChannelWidthPropertyInfo = "channel-width"
type AttrOrigin SettingWirelessChannelWidthPropertyInfo = SettingWireless
attrGet = getSettingWirelessChannelWidth
attrSet = setSettingWirelessChannelWidth
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessChannelWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.channelWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:channelWidth"
})
#endif
getSettingWirelessClonedMacAddress :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessClonedMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessClonedMacAddress 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
"getSettingWirelessClonedMacAddress" (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"
setSettingWirelessClonedMacAddress :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessClonedMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessClonedMacAddress 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)
constructSettingWirelessClonedMacAddress :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessClonedMacAddress :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessClonedMacAddress 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)
clearSettingWirelessClonedMacAddress :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessClonedMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessClonedMacAddress 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 SettingWirelessClonedMacAddressPropertyInfo
instance AttrInfo SettingWirelessClonedMacAddressPropertyInfo where
type AttrAllowedOps SettingWirelessClonedMacAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessClonedMacAddressPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessClonedMacAddressPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessClonedMacAddressPropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessClonedMacAddressPropertyInfo = T.Text
type AttrGetType SettingWirelessClonedMacAddressPropertyInfo = T.Text
type AttrLabel SettingWirelessClonedMacAddressPropertyInfo = "cloned-mac-address"
type AttrOrigin SettingWirelessClonedMacAddressPropertyInfo = SettingWireless
attrGet = getSettingWirelessClonedMacAddress
attrSet = setSettingWirelessClonedMacAddress
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessClonedMacAddress
attrClear = clearSettingWirelessClonedMacAddress
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.clonedMacAddress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:clonedMacAddress"
})
#endif
getSettingWirelessGenerateMacAddressMask :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessGenerateMacAddressMask :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessGenerateMacAddressMask 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
"getSettingWirelessGenerateMacAddressMask" (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"
setSettingWirelessGenerateMacAddressMask :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessGenerateMacAddressMask :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessGenerateMacAddressMask 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)
constructSettingWirelessGenerateMacAddressMask :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessGenerateMacAddressMask :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessGenerateMacAddressMask 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)
clearSettingWirelessGenerateMacAddressMask :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessGenerateMacAddressMask :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessGenerateMacAddressMask 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 SettingWirelessGenerateMacAddressMaskPropertyInfo
instance AttrInfo SettingWirelessGenerateMacAddressMaskPropertyInfo where
type AttrAllowedOps SettingWirelessGenerateMacAddressMaskPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessGenerateMacAddressMaskPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessGenerateMacAddressMaskPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessGenerateMacAddressMaskPropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessGenerateMacAddressMaskPropertyInfo = T.Text
type AttrGetType SettingWirelessGenerateMacAddressMaskPropertyInfo = T.Text
type AttrLabel SettingWirelessGenerateMacAddressMaskPropertyInfo = "generate-mac-address-mask"
type AttrOrigin SettingWirelessGenerateMacAddressMaskPropertyInfo = SettingWireless
attrGet = getSettingWirelessGenerateMacAddressMask
attrSet = setSettingWirelessGenerateMacAddressMask
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessGenerateMacAddressMask
attrClear = clearSettingWirelessGenerateMacAddressMask
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.generateMacAddressMask"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:generateMacAddressMask"
})
#endif
getSettingWirelessHidden :: (MonadIO m, IsSettingWireless o) => o -> m Bool
getSettingWirelessHidden :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Bool
getSettingWirelessHidden 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
"hidden"
setSettingWirelessHidden :: (MonadIO m, IsSettingWireless o) => o -> Bool -> m ()
setSettingWirelessHidden :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Bool -> m ()
setSettingWirelessHidden 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
"hidden" Bool
val
constructSettingWirelessHidden :: (IsSettingWireless o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingWirelessHidden :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingWirelessHidden 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
"hidden" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessHiddenPropertyInfo
instance AttrInfo SettingWirelessHiddenPropertyInfo where
type AttrAllowedOps SettingWirelessHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessHiddenPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessHiddenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingWirelessHiddenPropertyInfo = (~) Bool
type AttrTransferType SettingWirelessHiddenPropertyInfo = Bool
type AttrGetType SettingWirelessHiddenPropertyInfo = Bool
type AttrLabel SettingWirelessHiddenPropertyInfo = "hidden"
type AttrOrigin SettingWirelessHiddenPropertyInfo = SettingWireless
attrGet = getSettingWirelessHidden
attrSet = setSettingWirelessHidden
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessHidden
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.hidden"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:hidden"
})
#endif
getSettingWirelessMacAddress :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessMacAddress 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
"getSettingWirelessMacAddress" (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"
setSettingWirelessMacAddress :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessMacAddress 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)
constructSettingWirelessMacAddress :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessMacAddress :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessMacAddress 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)
clearSettingWirelessMacAddress :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessMacAddress :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessMacAddress 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 SettingWirelessMacAddressPropertyInfo
instance AttrInfo SettingWirelessMacAddressPropertyInfo where
type AttrAllowedOps SettingWirelessMacAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessMacAddressPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessMacAddressPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessMacAddressPropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessMacAddressPropertyInfo = T.Text
type AttrGetType SettingWirelessMacAddressPropertyInfo = T.Text
type AttrLabel SettingWirelessMacAddressPropertyInfo = "mac-address"
type AttrOrigin SettingWirelessMacAddressPropertyInfo = SettingWireless
attrGet = getSettingWirelessMacAddress
attrSet = setSettingWirelessMacAddress
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMacAddress
attrClear = clearSettingWirelessMacAddress
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.macAddress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:macAddress"
})
#endif
getSettingWirelessMacAddressBlacklist :: (MonadIO m, IsSettingWireless o) => o -> m [T.Text]
getSettingWirelessMacAddressBlacklist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m [Text]
getSettingWirelessMacAddressBlacklist 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
"getSettingWirelessMacAddressBlacklist" (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"
setSettingWirelessMacAddressBlacklist :: (MonadIO m, IsSettingWireless o) => o -> [T.Text] -> m ()
setSettingWirelessMacAddressBlacklist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> [Text] -> m ()
setSettingWirelessMacAddressBlacklist 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)
constructSettingWirelessMacAddressBlacklist :: (IsSettingWireless o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWirelessMacAddressBlacklist :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWirelessMacAddressBlacklist [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)
clearSettingWirelessMacAddressBlacklist :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessMacAddressBlacklist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessMacAddressBlacklist 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 SettingWirelessMacAddressBlacklistPropertyInfo
instance AttrInfo SettingWirelessMacAddressBlacklistPropertyInfo where
type AttrAllowedOps SettingWirelessMacAddressBlacklistPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessMacAddressBlacklistPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessMacAddressBlacklistPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWirelessMacAddressBlacklistPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWirelessMacAddressBlacklistPropertyInfo = [T.Text]
type AttrGetType SettingWirelessMacAddressBlacklistPropertyInfo = [T.Text]
type AttrLabel SettingWirelessMacAddressBlacklistPropertyInfo = "mac-address-blacklist"
type AttrOrigin SettingWirelessMacAddressBlacklistPropertyInfo = SettingWireless
attrGet = getSettingWirelessMacAddressBlacklist
attrSet = setSettingWirelessMacAddressBlacklist
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMacAddressBlacklist
attrClear = clearSettingWirelessMacAddressBlacklist
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.macAddressBlacklist"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:macAddressBlacklist"
})
#endif
getSettingWirelessMacAddressDenylist :: (MonadIO m, IsSettingWireless o) => o -> m [T.Text]
getSettingWirelessMacAddressDenylist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m [Text]
getSettingWirelessMacAddressDenylist 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
"getSettingWirelessMacAddressDenylist" (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"
setSettingWirelessMacAddressDenylist :: (MonadIO m, IsSettingWireless o) => o -> [T.Text] -> m ()
setSettingWirelessMacAddressDenylist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> [Text] -> m ()
setSettingWirelessMacAddressDenylist 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)
constructSettingWirelessMacAddressDenylist :: (IsSettingWireless o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWirelessMacAddressDenylist :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWirelessMacAddressDenylist [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)
clearSettingWirelessMacAddressDenylist :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessMacAddressDenylist :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessMacAddressDenylist 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 SettingWirelessMacAddressDenylistPropertyInfo
instance AttrInfo SettingWirelessMacAddressDenylistPropertyInfo where
type AttrAllowedOps SettingWirelessMacAddressDenylistPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessMacAddressDenylistPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessMacAddressDenylistPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWirelessMacAddressDenylistPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWirelessMacAddressDenylistPropertyInfo = [T.Text]
type AttrGetType SettingWirelessMacAddressDenylistPropertyInfo = [T.Text]
type AttrLabel SettingWirelessMacAddressDenylistPropertyInfo = "mac-address-denylist"
type AttrOrigin SettingWirelessMacAddressDenylistPropertyInfo = SettingWireless
attrGet = getSettingWirelessMacAddressDenylist
attrSet = setSettingWirelessMacAddressDenylist
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMacAddressDenylist
attrClear = clearSettingWirelessMacAddressDenylist
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.macAddressDenylist"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:macAddressDenylist"
})
#endif
getSettingWirelessMacAddressRandomization :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessMacAddressRandomization :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessMacAddressRandomization 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
"mac-address-randomization"
setSettingWirelessMacAddressRandomization :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessMacAddressRandomization :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessMacAddressRandomization 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
"mac-address-randomization" Word32
val
constructSettingWirelessMacAddressRandomization :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessMacAddressRandomization :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessMacAddressRandomization 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
"mac-address-randomization" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessMacAddressRandomizationPropertyInfo
instance AttrInfo SettingWirelessMacAddressRandomizationPropertyInfo where
type AttrAllowedOps SettingWirelessMacAddressRandomizationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessMacAddressRandomizationPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessMacAddressRandomizationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessMacAddressRandomizationPropertyInfo = (~) Word32
type AttrTransferType SettingWirelessMacAddressRandomizationPropertyInfo = Word32
type AttrGetType SettingWirelessMacAddressRandomizationPropertyInfo = Word32
type AttrLabel SettingWirelessMacAddressRandomizationPropertyInfo = "mac-address-randomization"
type AttrOrigin SettingWirelessMacAddressRandomizationPropertyInfo = SettingWireless
attrGet = getSettingWirelessMacAddressRandomization
attrSet = setSettingWirelessMacAddressRandomization
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMacAddressRandomization
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.macAddressRandomization"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:macAddressRandomization"
})
#endif
getSettingWirelessMode :: (MonadIO m, IsSettingWireless o) => o -> m T.Text
getSettingWirelessMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Text
getSettingWirelessMode 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
"getSettingWirelessMode" (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
"mode"
setSettingWirelessMode :: (MonadIO m, IsSettingWireless o) => o -> T.Text -> m ()
setSettingWirelessMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Text -> m ()
setSettingWirelessMode 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
"mode" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingWirelessMode :: (IsSettingWireless o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingWirelessMode :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingWirelessMode 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
"mode" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingWirelessMode :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessMode :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessMode 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
"mode" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingWirelessModePropertyInfo
instance AttrInfo SettingWirelessModePropertyInfo where
type AttrAllowedOps SettingWirelessModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessModePropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessModePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingWirelessModePropertyInfo = (~) T.Text
type AttrTransferType SettingWirelessModePropertyInfo = T.Text
type AttrGetType SettingWirelessModePropertyInfo = T.Text
type AttrLabel SettingWirelessModePropertyInfo = "mode"
type AttrOrigin SettingWirelessModePropertyInfo = SettingWireless
attrGet = getSettingWirelessMode
attrSet = setSettingWirelessMode
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMode
attrClear = clearSettingWirelessMode
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.mode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:mode"
})
#endif
getSettingWirelessMtu :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessMtu 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"
setSettingWirelessMtu :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessMtu 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
constructSettingWirelessMtu :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessMtu :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessMtu 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 SettingWirelessMtuPropertyInfo
instance AttrInfo SettingWirelessMtuPropertyInfo where
type AttrAllowedOps SettingWirelessMtuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessMtuPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessMtuPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessMtuPropertyInfo = (~) Word32
type AttrTransferType SettingWirelessMtuPropertyInfo = Word32
type AttrGetType SettingWirelessMtuPropertyInfo = Word32
type AttrLabel SettingWirelessMtuPropertyInfo = "mtu"
type AttrOrigin SettingWirelessMtuPropertyInfo = SettingWireless
attrGet = getSettingWirelessMtu
attrSet = setSettingWirelessMtu
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessMtu
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.mtu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:mtu"
})
#endif
getSettingWirelessPowersave :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessPowersave :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessPowersave 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
"powersave"
setSettingWirelessPowersave :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessPowersave :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessPowersave 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
"powersave" Word32
val
constructSettingWirelessPowersave :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessPowersave :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessPowersave 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
"powersave" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessPowersavePropertyInfo
instance AttrInfo SettingWirelessPowersavePropertyInfo where
type AttrAllowedOps SettingWirelessPowersavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessPowersavePropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessPowersavePropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessPowersavePropertyInfo = (~) Word32
type AttrTransferType SettingWirelessPowersavePropertyInfo = Word32
type AttrGetType SettingWirelessPowersavePropertyInfo = Word32
type AttrLabel SettingWirelessPowersavePropertyInfo = "powersave"
type AttrOrigin SettingWirelessPowersavePropertyInfo = SettingWireless
attrGet = getSettingWirelessPowersave
attrSet = setSettingWirelessPowersave
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessPowersave
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.powersave"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:powersave"
})
#endif
getSettingWirelessRate :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessRate :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessRate 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
"rate"
setSettingWirelessRate :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessRate :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessRate 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
"rate" Word32
val
constructSettingWirelessRate :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessRate :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessRate 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
"rate" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessRatePropertyInfo
instance AttrInfo SettingWirelessRatePropertyInfo where
type AttrAllowedOps SettingWirelessRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessRatePropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessRatePropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessRatePropertyInfo = (~) Word32
type AttrTransferType SettingWirelessRatePropertyInfo = Word32
type AttrGetType SettingWirelessRatePropertyInfo = Word32
type AttrLabel SettingWirelessRatePropertyInfo = "rate"
type AttrOrigin SettingWirelessRatePropertyInfo = SettingWireless
attrGet = getSettingWirelessRate
attrSet = setSettingWirelessRate
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessRate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.rate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:rate"
})
#endif
getSettingWirelessSeenBssids :: (MonadIO m, IsSettingWireless o) => o -> m (Maybe [T.Text])
getSettingWirelessSeenBssids :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m (Maybe [Text])
getSettingWirelessSeenBssids o
obj = IO (Maybe [Text]) -> m (Maybe [Text])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [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
"seen-bssids"
setSettingWirelessSeenBssids :: (MonadIO m, IsSettingWireless o) => o -> [T.Text] -> m ()
setSettingWirelessSeenBssids :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> [Text] -> m ()
setSettingWirelessSeenBssids 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
"seen-bssids" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructSettingWirelessSeenBssids :: (IsSettingWireless o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSettingWirelessSeenBssids :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructSettingWirelessSeenBssids [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
"seen-bssids" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
clearSettingWirelessSeenBssids :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessSeenBssids :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessSeenBssids 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
"seen-bssids" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])
#if defined(ENABLE_OVERLOADING)
data SettingWirelessSeenBssidsPropertyInfo
instance AttrInfo SettingWirelessSeenBssidsPropertyInfo where
type AttrAllowedOps SettingWirelessSeenBssidsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessSeenBssidsPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessSeenBssidsPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint SettingWirelessSeenBssidsPropertyInfo = (~) [T.Text]
type AttrTransferType SettingWirelessSeenBssidsPropertyInfo = [T.Text]
type AttrGetType SettingWirelessSeenBssidsPropertyInfo = (Maybe [T.Text])
type AttrLabel SettingWirelessSeenBssidsPropertyInfo = "seen-bssids"
type AttrOrigin SettingWirelessSeenBssidsPropertyInfo = SettingWireless
attrGet = getSettingWirelessSeenBssids
attrSet = setSettingWirelessSeenBssids
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessSeenBssids
attrClear = clearSettingWirelessSeenBssids
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.seenBssids"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:seenBssids"
})
#endif
getSettingWirelessSsid :: (MonadIO m, IsSettingWireless o) => o -> m GLib.Bytes.Bytes
getSettingWirelessSsid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Bytes
getSettingWirelessSsid o
obj = IO Bytes -> m Bytes
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bytes -> m Bytes) -> IO Bytes -> m Bytes
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Bytes) -> IO Bytes
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSettingWirelessSsid" (IO (Maybe Bytes) -> IO Bytes) -> IO (Maybe Bytes) -> IO Bytes
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Bytes -> Bytes) -> IO (Maybe Bytes)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"ssid" ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes
setSettingWirelessSsid :: (MonadIO m, IsSettingWireless o) => o -> GLib.Bytes.Bytes -> m ()
setSettingWirelessSsid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Bytes -> m ()
setSettingWirelessSsid o
obj Bytes
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 Bytes -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"ssid" (Bytes -> Maybe Bytes
forall a. a -> Maybe a
Just Bytes
val)
constructSettingWirelessSsid :: (IsSettingWireless o, MIO.MonadIO m) => GLib.Bytes.Bytes -> m (GValueConstruct o)
constructSettingWirelessSsid :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Bytes -> m (GValueConstruct o)
constructSettingWirelessSsid Bytes
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 Bytes -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"ssid" (Bytes -> Maybe Bytes
forall a. a -> Maybe a
P.Just Bytes
val)
clearSettingWirelessSsid :: (MonadIO m, IsSettingWireless o) => o -> m ()
clearSettingWirelessSsid :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m ()
clearSettingWirelessSsid 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 Bytes -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"ssid" (Maybe Bytes
forall a. Maybe a
Nothing :: Maybe GLib.Bytes.Bytes)
#if defined(ENABLE_OVERLOADING)
data SettingWirelessSsidPropertyInfo
instance AttrInfo SettingWirelessSsidPropertyInfo where
type AttrAllowedOps SettingWirelessSsidPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingWirelessSsidPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessSsidPropertyInfo = (~) GLib.Bytes.Bytes
type AttrTransferTypeConstraint SettingWirelessSsidPropertyInfo = (~) GLib.Bytes.Bytes
type AttrTransferType SettingWirelessSsidPropertyInfo = GLib.Bytes.Bytes
type AttrGetType SettingWirelessSsidPropertyInfo = GLib.Bytes.Bytes
type AttrLabel SettingWirelessSsidPropertyInfo = "ssid"
type AttrOrigin SettingWirelessSsidPropertyInfo = SettingWireless
attrGet = getSettingWirelessSsid
attrSet = setSettingWirelessSsid
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessSsid
attrClear = clearSettingWirelessSsid
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.ssid"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:ssid"
})
#endif
getSettingWirelessTxPower :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessTxPower :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessTxPower 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
"tx-power"
setSettingWirelessTxPower :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessTxPower :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessTxPower 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
"tx-power" Word32
val
constructSettingWirelessTxPower :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessTxPower :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessTxPower 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
"tx-power" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessTxPowerPropertyInfo
instance AttrInfo SettingWirelessTxPowerPropertyInfo where
type AttrAllowedOps SettingWirelessTxPowerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessTxPowerPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessTxPowerPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessTxPowerPropertyInfo = (~) Word32
type AttrTransferType SettingWirelessTxPowerPropertyInfo = Word32
type AttrGetType SettingWirelessTxPowerPropertyInfo = Word32
type AttrLabel SettingWirelessTxPowerPropertyInfo = "tx-power"
type AttrOrigin SettingWirelessTxPowerPropertyInfo = SettingWireless
attrGet = getSettingWirelessTxPower
attrSet = setSettingWirelessTxPower
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessTxPower
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.txPower"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:txPower"
})
#endif
getSettingWirelessWakeOnWlan :: (MonadIO m, IsSettingWireless o) => o -> m Word32
getSettingWirelessWakeOnWlan :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> m Word32
getSettingWirelessWakeOnWlan 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-wlan"
setSettingWirelessWakeOnWlan :: (MonadIO m, IsSettingWireless o) => o -> Word32 -> m ()
setSettingWirelessWakeOnWlan :: forall (m :: * -> *) o.
(MonadIO m, IsSettingWireless o) =>
o -> Word32 -> m ()
setSettingWirelessWakeOnWlan 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-wlan" Word32
val
constructSettingWirelessWakeOnWlan :: (IsSettingWireless o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingWirelessWakeOnWlan :: forall o (m :: * -> *).
(IsSettingWireless o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingWirelessWakeOnWlan 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-wlan" Word32
val
#if defined(ENABLE_OVERLOADING)
data SettingWirelessWakeOnWlanPropertyInfo
instance AttrInfo SettingWirelessWakeOnWlanPropertyInfo where
type AttrAllowedOps SettingWirelessWakeOnWlanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingWirelessWakeOnWlanPropertyInfo = IsSettingWireless
type AttrSetTypeConstraint SettingWirelessWakeOnWlanPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingWirelessWakeOnWlanPropertyInfo = (~) Word32
type AttrTransferType SettingWirelessWakeOnWlanPropertyInfo = Word32
type AttrGetType SettingWirelessWakeOnWlanPropertyInfo = Word32
type AttrLabel SettingWirelessWakeOnWlanPropertyInfo = "wake-on-wlan"
type AttrOrigin SettingWirelessWakeOnWlanPropertyInfo = SettingWireless
attrGet = getSettingWirelessWakeOnWlan
attrSet = setSettingWirelessWakeOnWlan
attrTransfer _ v = do
return v
attrConstruct = constructSettingWirelessWakeOnWlan
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.wakeOnWlan"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#g:attr:wakeOnWlan"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingWireless
type instance O.AttributeList SettingWireless = SettingWirelessAttributeList
type SettingWirelessAttributeList = ('[ '("apIsolation", SettingWirelessApIsolationPropertyInfo), '("band", SettingWirelessBandPropertyInfo), '("bssid", SettingWirelessBssidPropertyInfo), '("channel", SettingWirelessChannelPropertyInfo), '("channelWidth", SettingWirelessChannelWidthPropertyInfo), '("clonedMacAddress", SettingWirelessClonedMacAddressPropertyInfo), '("generateMacAddressMask", SettingWirelessGenerateMacAddressMaskPropertyInfo), '("hidden", SettingWirelessHiddenPropertyInfo), '("macAddress", SettingWirelessMacAddressPropertyInfo), '("macAddressBlacklist", SettingWirelessMacAddressBlacklistPropertyInfo), '("macAddressDenylist", SettingWirelessMacAddressDenylistPropertyInfo), '("macAddressRandomization", SettingWirelessMacAddressRandomizationPropertyInfo), '("mode", SettingWirelessModePropertyInfo), '("mtu", SettingWirelessMtuPropertyInfo), '("name", NM.Setting.SettingNamePropertyInfo), '("powersave", SettingWirelessPowersavePropertyInfo), '("rate", SettingWirelessRatePropertyInfo), '("seenBssids", SettingWirelessSeenBssidsPropertyInfo), '("ssid", SettingWirelessSsidPropertyInfo), '("txPower", SettingWirelessTxPowerPropertyInfo), '("wakeOnWlan", SettingWirelessWakeOnWlanPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingWirelessApIsolation :: AttrLabelProxy "apIsolation"
settingWirelessApIsolation = AttrLabelProxy
settingWirelessBand :: AttrLabelProxy "band"
settingWirelessBand = AttrLabelProxy
settingWirelessBssid :: AttrLabelProxy "bssid"
settingWirelessBssid = AttrLabelProxy
settingWirelessChannel :: AttrLabelProxy "channel"
settingWirelessChannel = AttrLabelProxy
settingWirelessChannelWidth :: AttrLabelProxy "channelWidth"
settingWirelessChannelWidth = AttrLabelProxy
settingWirelessClonedMacAddress :: AttrLabelProxy "clonedMacAddress"
settingWirelessClonedMacAddress = AttrLabelProxy
settingWirelessGenerateMacAddressMask :: AttrLabelProxy "generateMacAddressMask"
settingWirelessGenerateMacAddressMask = AttrLabelProxy
settingWirelessHidden :: AttrLabelProxy "hidden"
settingWirelessHidden = AttrLabelProxy
settingWirelessMacAddress :: AttrLabelProxy "macAddress"
settingWirelessMacAddress = AttrLabelProxy
settingWirelessMacAddressBlacklist :: AttrLabelProxy "macAddressBlacklist"
settingWirelessMacAddressBlacklist = AttrLabelProxy
settingWirelessMacAddressDenylist :: AttrLabelProxy "macAddressDenylist"
settingWirelessMacAddressDenylist = AttrLabelProxy
settingWirelessMacAddressRandomization :: AttrLabelProxy "macAddressRandomization"
settingWirelessMacAddressRandomization = AttrLabelProxy
settingWirelessMode :: AttrLabelProxy "mode"
settingWirelessMode = AttrLabelProxy
settingWirelessMtu :: AttrLabelProxy "mtu"
settingWirelessMtu = AttrLabelProxy
settingWirelessPowersave :: AttrLabelProxy "powersave"
settingWirelessPowersave = AttrLabelProxy
settingWirelessRate :: AttrLabelProxy "rate"
settingWirelessRate = AttrLabelProxy
settingWirelessSeenBssids :: AttrLabelProxy "seenBssids"
settingWirelessSeenBssids = AttrLabelProxy
settingWirelessSsid :: AttrLabelProxy "ssid"
settingWirelessSsid = AttrLabelProxy
settingWirelessTxPower :: AttrLabelProxy "txPower"
settingWirelessTxPower = AttrLabelProxy
settingWirelessWakeOnWlan :: AttrLabelProxy "wakeOnWlan"
settingWirelessWakeOnWlan = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SettingWireless = SettingWirelessSignalList
type SettingWirelessSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_setting_wireless_new" nm_setting_wireless_new ::
IO (Ptr SettingWireless)
settingWirelessNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SettingWireless
settingWirelessNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m SettingWireless
settingWirelessNew = IO SettingWireless -> m SettingWireless
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingWireless -> m SettingWireless)
-> IO SettingWireless -> m SettingWireless
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWireless
result <- IO (Ptr SettingWireless)
nm_setting_wireless_new
Text -> Ptr SettingWireless -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessNew" Ptr SettingWireless
result
SettingWireless
result' <- ((ManagedPtr SettingWireless -> SettingWireless)
-> Ptr SettingWireless -> IO SettingWireless
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SettingWireless -> SettingWireless
SettingWireless) Ptr SettingWireless
result
SettingWireless -> IO SettingWireless
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingWireless
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_setting_wireless_add_mac_blacklist_item" nm_setting_wireless_add_mac_blacklist_item ::
Ptr SettingWireless ->
CString ->
IO CInt
{-# DEPRECATED settingWirelessAddMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessAddMacDenylistItem' instead."] #-}
settingWirelessAddMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> T.Text
-> m Bool
settingWirelessAddMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Text -> m Bool
settingWirelessAddMacBlacklistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWireless -> CString -> IO CInt
nm_setting_wireless_add_mac_blacklist_item Ptr SettingWireless
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 SettingWirelessAddMacBlacklistItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessAddMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWirelessAddMacBlacklistItem
instance O.OverloadedMethodInfo SettingWirelessAddMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessAddMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessAddMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wireless_add_mac_denylist_item" nm_setting_wireless_add_mac_denylist_item ::
Ptr SettingWireless ->
CString ->
IO CInt
settingWirelessAddMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> T.Text
-> m Bool
settingWirelessAddMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Text -> m Bool
settingWirelessAddMacDenylistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWireless -> CString -> IO CInt
nm_setting_wireless_add_mac_denylist_item Ptr SettingWireless
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 SettingWirelessAddMacDenylistItemMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessAddMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWirelessAddMacDenylistItem
instance O.OverloadedMethodInfo SettingWirelessAddMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessAddMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessAddMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wireless_add_seen_bssid" nm_setting_wireless_add_seen_bssid ::
Ptr SettingWireless ->
CString ->
IO CInt
settingWirelessAddSeenBssid ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> T.Text
-> m Bool
settingWirelessAddSeenBssid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Text -> m Bool
settingWirelessAddSeenBssid a
setting Text
bssid = 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
bssid' <- Text -> IO CString
textToCString Text
bssid
CInt
result <- Ptr SettingWireless -> CString -> IO CInt
nm_setting_wireless_add_seen_bssid Ptr SettingWireless
setting' CString
bssid'
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
bssid'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessAddSeenBssidMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessAddSeenBssidMethodInfo a signature where
overloadedMethod = settingWirelessAddSeenBssid
instance O.OverloadedMethodInfo SettingWirelessAddSeenBssidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessAddSeenBssid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessAddSeenBssid"
})
#endif
foreign import ccall "nm_setting_wireless_ap_security_compatible" nm_setting_wireless_ap_security_compatible ::
Ptr SettingWireless ->
Ptr NM.SettingWirelessSecurity.SettingWirelessSecurity ->
CUInt ->
CUInt ->
CUInt ->
CUInt ->
IO CInt
settingWirelessApSecurityCompatible ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a, NM.SettingWirelessSecurity.IsSettingWirelessSecurity b) =>
a
-> b
-> [NM.Flags.NM80211ApFlags]
-> [NM.Flags.NM80211ApSecurityFlags]
-> [NM.Flags.NM80211ApSecurityFlags]
-> NM.Enums.NM80211Mode
-> m Bool
settingWirelessApSecurityCompatible :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSettingWireless a,
IsSettingWirelessSecurity b) =>
a
-> b
-> [NM80211ApFlags]
-> [NM80211ApSecurityFlags]
-> [NM80211ApSecurityFlags]
-> NM80211Mode
-> m Bool
settingWirelessApSecurityCompatible a
sWireless b
sWirelessSec [NM80211ApFlags]
apFlags [NM80211ApSecurityFlags]
apWpa [NM80211ApSecurityFlags]
apRsn NM80211Mode
apMode = 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 SettingWireless
sWireless' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sWireless
Ptr SettingWirelessSecurity
sWirelessSec' <- b -> IO (Ptr SettingWirelessSecurity)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
sWirelessSec
let apFlags' :: CUInt
apFlags' = [NM80211ApFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [NM80211ApFlags]
apFlags
let apWpa' :: CUInt
apWpa' = [NM80211ApSecurityFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [NM80211ApSecurityFlags]
apWpa
let apRsn' :: CUInt
apRsn' = [NM80211ApSecurityFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [NM80211ApSecurityFlags]
apRsn
let apMode' :: CUInt
apMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (NM80211Mode -> Int) -> NM80211Mode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NM80211Mode -> Int
forall a. Enum a => a -> Int
fromEnum) NM80211Mode
apMode
CInt
result <- Ptr SettingWireless
-> Ptr SettingWirelessSecurity
-> CUInt
-> CUInt
-> CUInt
-> CUInt
-> IO CInt
nm_setting_wireless_ap_security_compatible Ptr SettingWireless
sWireless' Ptr SettingWirelessSecurity
sWirelessSec' CUInt
apFlags' CUInt
apWpa' CUInt
apRsn' CUInt
apMode'
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
sWireless
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
sWirelessSec
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessApSecurityCompatibleMethodInfo
instance (signature ~ (b -> [NM.Flags.NM80211ApFlags] -> [NM.Flags.NM80211ApSecurityFlags] -> [NM.Flags.NM80211ApSecurityFlags] -> NM.Enums.NM80211Mode -> m Bool), MonadIO m, IsSettingWireless a, NM.SettingWirelessSecurity.IsSettingWirelessSecurity b) => O.OverloadedMethod SettingWirelessApSecurityCompatibleMethodInfo a signature where
overloadedMethod = settingWirelessApSecurityCompatible
instance O.OverloadedMethodInfo SettingWirelessApSecurityCompatibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessApSecurityCompatible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessApSecurityCompatible"
})
#endif
foreign import ccall "nm_setting_wireless_clear_mac_blacklist_items" nm_setting_wireless_clear_mac_blacklist_items ::
Ptr SettingWireless ->
IO ()
{-# DEPRECATED settingWirelessClearMacBlacklistItems ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessClearMacDenylistItems' instead."] #-}
settingWirelessClearMacBlacklistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m ()
settingWirelessClearMacBlacklistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m ()
settingWirelessClearMacBlacklistItems 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWireless -> IO ()
nm_setting_wireless_clear_mac_blacklist_items Ptr SettingWireless
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 SettingWirelessClearMacBlacklistItemsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessClearMacBlacklistItemsMethodInfo a signature where
overloadedMethod = settingWirelessClearMacBlacklistItems
instance O.OverloadedMethodInfo SettingWirelessClearMacBlacklistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessClearMacBlacklistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessClearMacBlacklistItems"
})
#endif
foreign import ccall "nm_setting_wireless_clear_mac_denylist_items" nm_setting_wireless_clear_mac_denylist_items ::
Ptr SettingWireless ->
IO ()
settingWirelessClearMacDenylistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m ()
settingWirelessClearMacDenylistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m ()
settingWirelessClearMacDenylistItems 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWireless -> IO ()
nm_setting_wireless_clear_mac_denylist_items Ptr SettingWireless
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 SettingWirelessClearMacDenylistItemsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessClearMacDenylistItemsMethodInfo a signature where
overloadedMethod = settingWirelessClearMacDenylistItems
instance O.OverloadedMethodInfo SettingWirelessClearMacDenylistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessClearMacDenylistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessClearMacDenylistItems"
})
#endif
foreign import ccall "nm_setting_wireless_get_ap_isolation" nm_setting_wireless_get_ap_isolation ::
Ptr SettingWireless ->
IO CInt
settingWirelessGetApIsolation ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m NM.Enums.Ternary
settingWirelessGetApIsolation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Ternary
settingWirelessGetApIsolation 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingWireless -> IO CInt
nm_setting_wireless_get_ap_isolation Ptr SettingWireless
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 SettingWirelessGetApIsolationMethodInfo
instance (signature ~ (m NM.Enums.Ternary), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetApIsolationMethodInfo a signature where
overloadedMethod = settingWirelessGetApIsolation
instance O.OverloadedMethodInfo SettingWirelessGetApIsolationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetApIsolation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetApIsolation"
})
#endif
foreign import ccall "nm_setting_wireless_get_band" nm_setting_wireless_get_band ::
Ptr SettingWireless ->
IO CString
settingWirelessGetBand ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetBand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetBand 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_band Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetBand" 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 SettingWirelessGetBandMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetBandMethodInfo a signature where
overloadedMethod = settingWirelessGetBand
instance O.OverloadedMethodInfo SettingWirelessGetBandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetBand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetBand"
})
#endif
foreign import ccall "nm_setting_wireless_get_bssid" nm_setting_wireless_get_bssid ::
Ptr SettingWireless ->
IO CString
settingWirelessGetBssid ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetBssid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetBssid 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_bssid Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetBssid" 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 SettingWirelessGetBssidMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetBssidMethodInfo a signature where
overloadedMethod = settingWirelessGetBssid
instance O.OverloadedMethodInfo SettingWirelessGetBssidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetBssid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetBssid"
})
#endif
foreign import ccall "nm_setting_wireless_get_channel" nm_setting_wireless_get_channel ::
Ptr SettingWireless ->
IO Word32
settingWirelessGetChannel ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetChannel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetChannel 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_channel Ptr SettingWireless
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 SettingWirelessGetChannelMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetChannelMethodInfo a signature where
overloadedMethod = settingWirelessGetChannel
instance O.OverloadedMethodInfo SettingWirelessGetChannelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetChannel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetChannel"
})
#endif
foreign import ccall "nm_setting_wireless_get_channel_width" nm_setting_wireless_get_channel_width ::
Ptr SettingWireless ->
IO CUInt
settingWirelessGetChannelWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m NM.Enums.SettingWirelessChannelWidth
settingWirelessGetChannelWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m SettingWirelessChannelWidth
settingWirelessGetChannelWidth a
setting = IO SettingWirelessChannelWidth -> m SettingWirelessChannelWidth
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingWirelessChannelWidth -> m SettingWirelessChannelWidth)
-> IO SettingWirelessChannelWidth -> m SettingWirelessChannelWidth
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingWireless -> IO CUInt
nm_setting_wireless_get_channel_width Ptr SettingWireless
setting'
let result' :: SettingWirelessChannelWidth
result' = (Int -> SettingWirelessChannelWidth
forall a. Enum a => Int -> a
toEnum (Int -> SettingWirelessChannelWidth)
-> (CUInt -> Int) -> CUInt -> SettingWirelessChannelWidth
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
SettingWirelessChannelWidth -> IO SettingWirelessChannelWidth
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingWirelessChannelWidth
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessGetChannelWidthMethodInfo
instance (signature ~ (m NM.Enums.SettingWirelessChannelWidth), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetChannelWidthMethodInfo a signature where
overloadedMethod = settingWirelessGetChannelWidth
instance O.OverloadedMethodInfo SettingWirelessGetChannelWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetChannelWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetChannelWidth"
})
#endif
foreign import ccall "nm_setting_wireless_get_cloned_mac_address" nm_setting_wireless_get_cloned_mac_address ::
Ptr SettingWireless ->
IO CString
settingWirelessGetClonedMacAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetClonedMacAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetClonedMacAddress 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_cloned_mac_address Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetClonedMacAddress" 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 SettingWirelessGetClonedMacAddressMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetClonedMacAddressMethodInfo a signature where
overloadedMethod = settingWirelessGetClonedMacAddress
instance O.OverloadedMethodInfo SettingWirelessGetClonedMacAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetClonedMacAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetClonedMacAddress"
})
#endif
foreign import ccall "nm_setting_wireless_get_generate_mac_address_mask" nm_setting_wireless_get_generate_mac_address_mask ::
Ptr SettingWireless ->
IO CString
settingWirelessGetGenerateMacAddressMask ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetGenerateMacAddressMask :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetGenerateMacAddressMask 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_generate_mac_address_mask Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetGenerateMacAddressMask" 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 SettingWirelessGetGenerateMacAddressMaskMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetGenerateMacAddressMaskMethodInfo a signature where
overloadedMethod = settingWirelessGetGenerateMacAddressMask
instance O.OverloadedMethodInfo SettingWirelessGetGenerateMacAddressMaskMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetGenerateMacAddressMask",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetGenerateMacAddressMask"
})
#endif
foreign import ccall "nm_setting_wireless_get_hidden" nm_setting_wireless_get_hidden ::
Ptr SettingWireless ->
IO CInt
settingWirelessGetHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Bool
settingWirelessGetHidden :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Bool
settingWirelessGetHidden 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingWireless -> IO CInt
nm_setting_wireless_get_hidden Ptr SettingWireless
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 SettingWirelessGetHiddenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetHiddenMethodInfo a signature where
overloadedMethod = settingWirelessGetHidden
instance O.OverloadedMethodInfo SettingWirelessGetHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetHidden"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_address" nm_setting_wireless_get_mac_address ::
Ptr SettingWireless ->
IO CString
settingWirelessGetMacAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetMacAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetMacAddress 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_mac_address Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMacAddress" 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 SettingWirelessGetMacAddressMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacAddressMethodInfo a signature where
overloadedMethod = settingWirelessGetMacAddress
instance O.OverloadedMethodInfo SettingWirelessGetMacAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacAddress"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_address_blacklist" nm_setting_wireless_get_mac_address_blacklist ::
Ptr SettingWireless ->
IO (Ptr CString)
{-# DEPRECATED settingWirelessGetMacAddressBlacklist ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessGetMacAddressDenylist' instead."] #-}
settingWirelessGetMacAddressBlacklist ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m [T.Text]
settingWirelessGetMacAddressBlacklist :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m [Text]
settingWirelessGetMacAddressBlacklist 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
result <- Ptr SettingWireless -> IO (Ptr CString)
nm_setting_wireless_get_mac_address_blacklist Ptr SettingWireless
setting'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMacAddressBlacklist" 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 SettingWirelessGetMacAddressBlacklistMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacAddressBlacklistMethodInfo a signature where
overloadedMethod = settingWirelessGetMacAddressBlacklist
instance O.OverloadedMethodInfo SettingWirelessGetMacAddressBlacklistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacAddressBlacklist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacAddressBlacklist"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_address_denylist" nm_setting_wireless_get_mac_address_denylist ::
Ptr SettingWireless ->
IO (Ptr CString)
settingWirelessGetMacAddressDenylist ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m [T.Text]
settingWirelessGetMacAddressDenylist :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m [Text]
settingWirelessGetMacAddressDenylist 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr CString
result <- Ptr SettingWireless -> IO (Ptr CString)
nm_setting_wireless_get_mac_address_denylist Ptr SettingWireless
setting'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMacAddressDenylist" 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 SettingWirelessGetMacAddressDenylistMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacAddressDenylistMethodInfo a signature where
overloadedMethod = settingWirelessGetMacAddressDenylist
instance O.OverloadedMethodInfo SettingWirelessGetMacAddressDenylistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacAddressDenylist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacAddressDenylist"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_address_randomization" nm_setting_wireless_get_mac_address_randomization ::
Ptr SettingWireless ->
IO CUInt
settingWirelessGetMacAddressRandomization ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m NM.Enums.SettingMacRandomization
settingWirelessGetMacAddressRandomization :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m SettingMacRandomization
settingWirelessGetMacAddressRandomization a
setting = IO SettingMacRandomization -> m SettingMacRandomization
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingMacRandomization -> m SettingMacRandomization)
-> IO SettingMacRandomization -> m SettingMacRandomization
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingWireless -> IO CUInt
nm_setting_wireless_get_mac_address_randomization Ptr SettingWireless
setting'
let result' :: SettingMacRandomization
result' = (Int -> SettingMacRandomization
forall a. Enum a => Int -> a
toEnum (Int -> SettingMacRandomization)
-> (CUInt -> Int) -> CUInt -> SettingMacRandomization
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
SettingMacRandomization -> IO SettingMacRandomization
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingMacRandomization
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessGetMacAddressRandomizationMethodInfo
instance (signature ~ (m NM.Enums.SettingMacRandomization), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacAddressRandomizationMethodInfo a signature where
overloadedMethod = settingWirelessGetMacAddressRandomization
instance O.OverloadedMethodInfo SettingWirelessGetMacAddressRandomizationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacAddressRandomization",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacAddressRandomization"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_blacklist_item" nm_setting_wireless_get_mac_blacklist_item ::
Ptr SettingWireless ->
Word32 ->
IO CString
{-# DEPRECATED settingWirelessGetMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessGetMacDenylistItem' instead."] #-}
settingWirelessGetMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> Word32
-> m T.Text
settingWirelessGetMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Word32 -> m Text
settingWirelessGetMacBlacklistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> Word32 -> IO CString
nm_setting_wireless_get_mac_blacklist_item Ptr SettingWireless
setting' Word32
idx
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMacBlacklistItem" 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 SettingWirelessGetMacBlacklistItemMethodInfo
instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWirelessGetMacBlacklistItem
instance O.OverloadedMethodInfo SettingWirelessGetMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wireless_get_mac_denylist_item" nm_setting_wireless_get_mac_denylist_item ::
Ptr SettingWireless ->
Word32 ->
IO CString
settingWirelessGetMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> Word32
-> m T.Text
settingWirelessGetMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Word32 -> m Text
settingWirelessGetMacDenylistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> Word32 -> IO CString
nm_setting_wireless_get_mac_denylist_item Ptr SettingWireless
setting' Word32
idx
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMacDenylistItem" 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 SettingWirelessGetMacDenylistItemMethodInfo
instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWirelessGetMacDenylistItem
instance O.OverloadedMethodInfo SettingWirelessGetMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wireless_get_mode" nm_setting_wireless_get_mode ::
Ptr SettingWireless ->
IO CString
settingWirelessGetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m T.Text
settingWirelessGetMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Text
settingWirelessGetMode 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> IO CString
nm_setting_wireless_get_mode Ptr SettingWireless
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetMode" 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 SettingWirelessGetModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetModeMethodInfo a signature where
overloadedMethod = settingWirelessGetMode
instance O.OverloadedMethodInfo SettingWirelessGetModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMode"
})
#endif
foreign import ccall "nm_setting_wireless_get_mtu" nm_setting_wireless_get_mtu ::
Ptr SettingWireless ->
IO Word32
settingWirelessGetMtu ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetMtu :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetMtu 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_mtu Ptr SettingWireless
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 SettingWirelessGetMtuMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetMtuMethodInfo a signature where
overloadedMethod = settingWirelessGetMtu
instance O.OverloadedMethodInfo SettingWirelessGetMtuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetMtu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetMtu"
})
#endif
foreign import ccall "nm_setting_wireless_get_num_mac_blacklist_items" nm_setting_wireless_get_num_mac_blacklist_items ::
Ptr SettingWireless ->
IO Word32
{-# DEPRECATED settingWirelessGetNumMacBlacklistItems ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessGetNumMacDenylistItems' instead."] #-}
settingWirelessGetNumMacBlacklistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetNumMacBlacklistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetNumMacBlacklistItems 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_num_mac_blacklist_items Ptr SettingWireless
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 SettingWirelessGetNumMacBlacklistItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetNumMacBlacklistItemsMethodInfo a signature where
overloadedMethod = settingWirelessGetNumMacBlacklistItems
instance O.OverloadedMethodInfo SettingWirelessGetNumMacBlacklistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetNumMacBlacklistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetNumMacBlacklistItems"
})
#endif
foreign import ccall "nm_setting_wireless_get_num_mac_denylist_items" nm_setting_wireless_get_num_mac_denylist_items ::
Ptr SettingWireless ->
IO Word32
settingWirelessGetNumMacDenylistItems ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetNumMacDenylistItems :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetNumMacDenylistItems 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_num_mac_denylist_items Ptr SettingWireless
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 SettingWirelessGetNumMacDenylistItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetNumMacDenylistItemsMethodInfo a signature where
overloadedMethod = settingWirelessGetNumMacDenylistItems
instance O.OverloadedMethodInfo SettingWirelessGetNumMacDenylistItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetNumMacDenylistItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetNumMacDenylistItems"
})
#endif
foreign import ccall "nm_setting_wireless_get_num_seen_bssids" nm_setting_wireless_get_num_seen_bssids ::
Ptr SettingWireless ->
IO Word32
settingWirelessGetNumSeenBssids ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetNumSeenBssids :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetNumSeenBssids 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_num_seen_bssids Ptr SettingWireless
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 SettingWirelessGetNumSeenBssidsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetNumSeenBssidsMethodInfo a signature where
overloadedMethod = settingWirelessGetNumSeenBssids
instance O.OverloadedMethodInfo SettingWirelessGetNumSeenBssidsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetNumSeenBssids",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetNumSeenBssids"
})
#endif
foreign import ccall "nm_setting_wireless_get_powersave" nm_setting_wireless_get_powersave ::
Ptr SettingWireless ->
IO Word32
settingWirelessGetPowersave ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetPowersave :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetPowersave 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_powersave Ptr SettingWireless
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 SettingWirelessGetPowersaveMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetPowersaveMethodInfo a signature where
overloadedMethod = settingWirelessGetPowersave
instance O.OverloadedMethodInfo SettingWirelessGetPowersaveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetPowersave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetPowersave"
})
#endif
foreign import ccall "nm_setting_wireless_get_rate" nm_setting_wireless_get_rate ::
Ptr SettingWireless ->
IO Word32
{-# DEPRECATED settingWirelessGetRate ["(Since version 1.44)","This setting is not implemented and has no effect."] #-}
settingWirelessGetRate ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetRate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetRate 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_rate Ptr SettingWireless
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 SettingWirelessGetRateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetRateMethodInfo a signature where
overloadedMethod = settingWirelessGetRate
instance O.OverloadedMethodInfo SettingWirelessGetRateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetRate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetRate"
})
#endif
foreign import ccall "nm_setting_wireless_get_seen_bssid" nm_setting_wireless_get_seen_bssid ::
Ptr SettingWireless ->
Word32 ->
IO CString
settingWirelessGetSeenBssid ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> Word32
-> m T.Text
settingWirelessGetSeenBssid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Word32 -> m Text
settingWirelessGetSeenBssid a
setting Word32
i = 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingWireless -> Word32 -> IO CString
nm_setting_wireless_get_seen_bssid Ptr SettingWireless
setting' Word32
i
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetSeenBssid" 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 SettingWirelessGetSeenBssidMethodInfo
instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetSeenBssidMethodInfo a signature where
overloadedMethod = settingWirelessGetSeenBssid
instance O.OverloadedMethodInfo SettingWirelessGetSeenBssidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetSeenBssid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetSeenBssid"
})
#endif
foreign import ccall "nm_setting_wireless_get_ssid" nm_setting_wireless_get_ssid ::
Ptr SettingWireless ->
IO (Ptr GLib.Bytes.Bytes)
settingWirelessGetSsid ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m GLib.Bytes.Bytes
settingWirelessGetSsid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Bytes
settingWirelessGetSsid a
setting = IO Bytes -> m Bytes
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bytes -> m Bytes) -> IO Bytes -> m Bytes
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr Bytes
result <- Ptr SettingWireless -> IO (Ptr Bytes)
nm_setting_wireless_get_ssid Ptr SettingWireless
setting'
Text -> Ptr Bytes -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingWirelessGetSsid" Ptr Bytes
result
Bytes
result' <- ((ManagedPtr Bytes -> Bytes) -> Ptr Bytes -> IO Bytes
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes) Ptr Bytes
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setting
Bytes -> IO Bytes
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bytes
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessGetSsidMethodInfo
instance (signature ~ (m GLib.Bytes.Bytes), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetSsidMethodInfo a signature where
overloadedMethod = settingWirelessGetSsid
instance O.OverloadedMethodInfo SettingWirelessGetSsidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetSsid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetSsid"
})
#endif
foreign import ccall "nm_setting_wireless_get_tx_power" nm_setting_wireless_get_tx_power ::
Ptr SettingWireless ->
IO Word32
{-# DEPRECATED settingWirelessGetTxPower ["(Since version 1.44)","This setting is not implemented and has no effect."] #-}
settingWirelessGetTxPower ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m Word32
settingWirelessGetTxPower :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m Word32
settingWirelessGetTxPower 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingWireless -> IO Word32
nm_setting_wireless_get_tx_power Ptr SettingWireless
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 SettingWirelessGetTxPowerMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetTxPowerMethodInfo a signature where
overloadedMethod = settingWirelessGetTxPower
instance O.OverloadedMethodInfo SettingWirelessGetTxPowerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetTxPower",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetTxPower"
})
#endif
foreign import ccall "nm_setting_wireless_get_wake_on_wlan" nm_setting_wireless_get_wake_on_wlan ::
Ptr SettingWireless ->
IO CUInt
settingWirelessGetWakeOnWlan ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> m [NM.Flags.SettingWirelessWakeOnWLan]
settingWirelessGetWakeOnWlan :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> m [SettingWirelessWakeOnWLan]
settingWirelessGetWakeOnWlan a
setting = IO [SettingWirelessWakeOnWLan] -> m [SettingWirelessWakeOnWLan]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [SettingWirelessWakeOnWLan] -> m [SettingWirelessWakeOnWLan])
-> IO [SettingWirelessWakeOnWLan] -> m [SettingWirelessWakeOnWLan]
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingWireless -> IO CUInt
nm_setting_wireless_get_wake_on_wlan Ptr SettingWireless
setting'
let result' :: [SettingWirelessWakeOnWLan]
result' = CUInt -> [SettingWirelessWakeOnWLan]
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
[SettingWirelessWakeOnWLan] -> IO [SettingWirelessWakeOnWLan]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [SettingWirelessWakeOnWLan]
result'
#if defined(ENABLE_OVERLOADING)
data SettingWirelessGetWakeOnWlanMethodInfo
instance (signature ~ (m [NM.Flags.SettingWirelessWakeOnWLan]), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessGetWakeOnWlanMethodInfo a signature where
overloadedMethod = settingWirelessGetWakeOnWlan
instance O.OverloadedMethodInfo SettingWirelessGetWakeOnWlanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessGetWakeOnWlan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessGetWakeOnWlan"
})
#endif
foreign import ccall "nm_setting_wireless_remove_mac_blacklist_item" nm_setting_wireless_remove_mac_blacklist_item ::
Ptr SettingWireless ->
Word32 ->
IO ()
{-# DEPRECATED settingWirelessRemoveMacBlacklistItem ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessRemoveMacDenylistItem' instead."] #-}
settingWirelessRemoveMacBlacklistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> Word32
-> m ()
settingWirelessRemoveMacBlacklistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Word32 -> m ()
settingWirelessRemoveMacBlacklistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWireless -> Word32 -> IO ()
nm_setting_wireless_remove_mac_blacklist_item Ptr SettingWireless
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 SettingWirelessRemoveMacBlacklistItemMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessRemoveMacBlacklistItemMethodInfo a signature where
overloadedMethod = settingWirelessRemoveMacBlacklistItem
instance O.OverloadedMethodInfo SettingWirelessRemoveMacBlacklistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessRemoveMacBlacklistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessRemoveMacBlacklistItem"
})
#endif
foreign import ccall "nm_setting_wireless_remove_mac_blacklist_item_by_value" nm_setting_wireless_remove_mac_blacklist_item_by_value ::
Ptr SettingWireless ->
CString ->
IO CInt
{-# DEPRECATED settingWirelessRemoveMacBlacklistItemByValue ["(Since version 1.48.)","Use 'GI.NM.Objects.SettingWireless.settingWirelessRemoveMacDenylistItemByValue' instead."] #-}
settingWirelessRemoveMacBlacklistItemByValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> T.Text
-> m Bool
settingWirelessRemoveMacBlacklistItemByValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Text -> m Bool
settingWirelessRemoveMacBlacklistItemByValue 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWireless -> CString -> IO CInt
nm_setting_wireless_remove_mac_blacklist_item_by_value Ptr SettingWireless
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 SettingWirelessRemoveMacBlacklistItemByValueMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessRemoveMacBlacklistItemByValueMethodInfo a signature where
overloadedMethod = settingWirelessRemoveMacBlacklistItemByValue
instance O.OverloadedMethodInfo SettingWirelessRemoveMacBlacklistItemByValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessRemoveMacBlacklistItemByValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessRemoveMacBlacklistItemByValue"
})
#endif
foreign import ccall "nm_setting_wireless_remove_mac_denylist_item" nm_setting_wireless_remove_mac_denylist_item ::
Ptr SettingWireless ->
Word32 ->
IO ()
settingWirelessRemoveMacDenylistItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> Word32
-> m ()
settingWirelessRemoveMacDenylistItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Word32 -> m ()
settingWirelessRemoveMacDenylistItem 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Ptr SettingWireless -> Word32 -> IO ()
nm_setting_wireless_remove_mac_denylist_item Ptr SettingWireless
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 SettingWirelessRemoveMacDenylistItemMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessRemoveMacDenylistItemMethodInfo a signature where
overloadedMethod = settingWirelessRemoveMacDenylistItem
instance O.OverloadedMethodInfo SettingWirelessRemoveMacDenylistItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessRemoveMacDenylistItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessRemoveMacDenylistItem"
})
#endif
foreign import ccall "nm_setting_wireless_remove_mac_denylist_item_by_value" nm_setting_wireless_remove_mac_denylist_item_by_value ::
Ptr SettingWireless ->
CString ->
IO CInt
settingWirelessRemoveMacDenylistItemByValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingWireless a) =>
a
-> T.Text
-> m Bool
settingWirelessRemoveMacDenylistItemByValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingWireless a) =>
a -> Text -> m Bool
settingWirelessRemoveMacDenylistItemByValue 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 SettingWireless
setting' <- a -> IO (Ptr SettingWireless)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
mac' <- Text -> IO CString
textToCString Text
mac
CInt
result <- Ptr SettingWireless -> CString -> IO CInt
nm_setting_wireless_remove_mac_denylist_item_by_value Ptr SettingWireless
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 SettingWirelessRemoveMacDenylistItemByValueMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettingWireless a) => O.OverloadedMethod SettingWirelessRemoveMacDenylistItemByValueMethodInfo a signature where
overloadedMethod = settingWirelessRemoveMacDenylistItemByValue
instance O.OverloadedMethodInfo SettingWirelessRemoveMacDenylistItemByValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingWireless.settingWirelessRemoveMacDenylistItemByValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingWireless.html#v:settingWirelessRemoveMacDenylistItemByValue"
})
#endif