{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.SettingGsm
(
SettingGsm(..) ,
IsSettingGsm ,
toSettingGsm ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingGsmMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmGetApnMethodInfo ,
#endif
settingGsmGetApn ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetAutoConfigMethodInfo ,
#endif
settingGsmGetAutoConfig ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetDeviceIdMethodInfo ,
#endif
settingGsmGetDeviceId ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetHomeOnlyMethodInfo ,
#endif
settingGsmGetHomeOnly ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetInitialEpsApnMethodInfo ,
#endif
settingGsmGetInitialEpsApn ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetInitialEpsConfigMethodInfo ,
#endif
settingGsmGetInitialEpsConfig ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetMtuMethodInfo ,
#endif
settingGsmGetMtu ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetNetworkIdMethodInfo ,
#endif
settingGsmGetNetworkId ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetNumberMethodInfo ,
#endif
settingGsmGetNumber ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetPasswordMethodInfo ,
#endif
settingGsmGetPassword ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetPasswordFlagsMethodInfo ,
#endif
settingGsmGetPasswordFlags ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetPinMethodInfo ,
#endif
settingGsmGetPin ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetPinFlagsMethodInfo ,
#endif
settingGsmGetPinFlags ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetSimIdMethodInfo ,
#endif
settingGsmGetSimId ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetSimOperatorIdMethodInfo ,
#endif
settingGsmGetSimOperatorId ,
#if defined(ENABLE_OVERLOADING)
SettingGsmGetUsernameMethodInfo ,
#endif
settingGsmGetUsername ,
settingGsmNew ,
#if defined(ENABLE_OVERLOADING)
SettingGsmApnPropertyInfo ,
#endif
clearSettingGsmApn ,
constructSettingGsmApn ,
getSettingGsmApn ,
setSettingGsmApn ,
#if defined(ENABLE_OVERLOADING)
settingGsmApn ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmAutoConfigPropertyInfo ,
#endif
constructSettingGsmAutoConfig ,
getSettingGsmAutoConfig ,
setSettingGsmAutoConfig ,
#if defined(ENABLE_OVERLOADING)
settingGsmAutoConfig ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmDeviceIdPropertyInfo ,
#endif
clearSettingGsmDeviceId ,
constructSettingGsmDeviceId ,
getSettingGsmDeviceId ,
setSettingGsmDeviceId ,
#if defined(ENABLE_OVERLOADING)
settingGsmDeviceId ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmHomeOnlyPropertyInfo ,
#endif
constructSettingGsmHomeOnly ,
getSettingGsmHomeOnly ,
setSettingGsmHomeOnly ,
#if defined(ENABLE_OVERLOADING)
settingGsmHomeOnly ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmInitialEpsBearerApnPropertyInfo,
#endif
clearSettingGsmInitialEpsBearerApn ,
constructSettingGsmInitialEpsBearerApn ,
getSettingGsmInitialEpsBearerApn ,
setSettingGsmInitialEpsBearerApn ,
#if defined(ENABLE_OVERLOADING)
settingGsmInitialEpsBearerApn ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmInitialEpsBearerConfigurePropertyInfo,
#endif
constructSettingGsmInitialEpsBearerConfigure,
getSettingGsmInitialEpsBearerConfigure ,
setSettingGsmInitialEpsBearerConfigure ,
#if defined(ENABLE_OVERLOADING)
settingGsmInitialEpsBearerConfigure ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmMtuPropertyInfo ,
#endif
constructSettingGsmMtu ,
getSettingGsmMtu ,
setSettingGsmMtu ,
#if defined(ENABLE_OVERLOADING)
settingGsmMtu ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmNetworkIdPropertyInfo ,
#endif
clearSettingGsmNetworkId ,
constructSettingGsmNetworkId ,
getSettingGsmNetworkId ,
setSettingGsmNetworkId ,
#if defined(ENABLE_OVERLOADING)
settingGsmNetworkId ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmNumberPropertyInfo ,
#endif
clearSettingGsmNumber ,
constructSettingGsmNumber ,
getSettingGsmNumber ,
setSettingGsmNumber ,
#if defined(ENABLE_OVERLOADING)
settingGsmNumber ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmPasswordPropertyInfo ,
#endif
clearSettingGsmPassword ,
constructSettingGsmPassword ,
getSettingGsmPassword ,
setSettingGsmPassword ,
#if defined(ENABLE_OVERLOADING)
settingGsmPassword ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmPasswordFlagsPropertyInfo ,
#endif
constructSettingGsmPasswordFlags ,
getSettingGsmPasswordFlags ,
setSettingGsmPasswordFlags ,
#if defined(ENABLE_OVERLOADING)
settingGsmPasswordFlags ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmPinPropertyInfo ,
#endif
clearSettingGsmPin ,
constructSettingGsmPin ,
getSettingGsmPin ,
setSettingGsmPin ,
#if defined(ENABLE_OVERLOADING)
settingGsmPin ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmPinFlagsPropertyInfo ,
#endif
constructSettingGsmPinFlags ,
getSettingGsmPinFlags ,
setSettingGsmPinFlags ,
#if defined(ENABLE_OVERLOADING)
settingGsmPinFlags ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmSimIdPropertyInfo ,
#endif
clearSettingGsmSimId ,
constructSettingGsmSimId ,
getSettingGsmSimId ,
setSettingGsmSimId ,
#if defined(ENABLE_OVERLOADING)
settingGsmSimId ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmSimOperatorIdPropertyInfo ,
#endif
clearSettingGsmSimOperatorId ,
constructSettingGsmSimOperatorId ,
getSettingGsmSimOperatorId ,
setSettingGsmSimOperatorId ,
#if defined(ENABLE_OVERLOADING)
settingGsmSimOperatorId ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingGsmUsernamePropertyInfo ,
#endif
clearSettingGsmUsername ,
constructSettingGsmUsername ,
getSettingGsmUsername ,
setSettingGsmUsername ,
#if defined(ENABLE_OVERLOADING)
settingGsmUsername ,
#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.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.SettingWireless as NM.SettingWireless
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWirelessSecurity as NM.SettingWirelessSecurity
import {-# SOURCE #-} qualified GI.NM.Structs.BridgeVlan as NM.BridgeVlan
import {-# SOURCE #-} qualified GI.NM.Structs.IPAddress as NM.IPAddress
import {-# SOURCE #-} qualified GI.NM.Structs.IPRoute as NM.IPRoute
import {-# SOURCE #-} qualified GI.NM.Structs.IPRoutingRule as NM.IPRoutingRule
import {-# SOURCE #-} qualified GI.NM.Structs.Range as NM.Range
import {-# SOURCE #-} qualified GI.NM.Structs.TCAction as NM.TCAction
import {-# SOURCE #-} qualified GI.NM.Structs.TCQdisc as NM.TCQdisc
import {-# SOURCE #-} qualified GI.NM.Structs.TCTfilter as NM.TCTfilter
import {-# SOURCE #-} qualified GI.NM.Structs.TeamLinkWatcher as NM.TeamLinkWatcher
import {-# SOURCE #-} qualified GI.NM.Structs.VariantAttributeSpec as NM.VariantAttributeSpec
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.NM.Flags as NM.Flags
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
#endif
newtype SettingGsm = SettingGsm (SP.ManagedPtr SettingGsm)
deriving (SettingGsm -> SettingGsm -> Bool
(SettingGsm -> SettingGsm -> Bool)
-> (SettingGsm -> SettingGsm -> Bool) -> Eq SettingGsm
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingGsm -> SettingGsm -> Bool
== :: SettingGsm -> SettingGsm -> Bool
$c/= :: SettingGsm -> SettingGsm -> Bool
/= :: SettingGsm -> SettingGsm -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingGsm where
toManagedPtr :: SettingGsm -> ManagedPtr SettingGsm
toManagedPtr (SettingGsm ManagedPtr SettingGsm
p) = ManagedPtr SettingGsm
p
foreign import ccall "nm_setting_gsm_get_type"
c_nm_setting_gsm_get_type :: IO B.Types.GType
instance B.Types.TypedObject SettingGsm where
glibType :: IO GType
glibType = IO GType
c_nm_setting_gsm_get_type
instance B.Types.GObject SettingGsm
class (SP.GObject o, O.IsDescendantOf SettingGsm o) => IsSettingGsm o
instance (SP.GObject o, O.IsDescendantOf SettingGsm o) => IsSettingGsm o
instance O.HasParentTypes SettingGsm
type instance O.ParentTypes SettingGsm = '[NM.Setting.Setting, GObject.Object.Object]
toSettingGsm :: (MIO.MonadIO m, IsSettingGsm o) => o -> m SettingGsm
toSettingGsm :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> m SettingGsm
toSettingGsm = IO SettingGsm -> m SettingGsm
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SettingGsm -> m SettingGsm)
-> (o -> IO SettingGsm) -> o -> m SettingGsm
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SettingGsm -> SettingGsm) -> o -> IO SettingGsm
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SettingGsm -> SettingGsm
SettingGsm
instance B.GValue.IsGValue (Maybe SettingGsm) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_setting_gsm_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingGsm -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingGsm
P.Nothing = Ptr GValue -> Ptr SettingGsm -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SettingGsm
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingGsm)
gvalueSet_ Ptr GValue
gv (P.Just SettingGsm
obj) = SettingGsm -> (Ptr SettingGsm -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingGsm
obj (Ptr GValue -> Ptr SettingGsm -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingGsm)
gvalueGet_ Ptr GValue
gv = do
Ptr SettingGsm
ptr <- Ptr GValue -> IO (Ptr SettingGsm)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SettingGsm)
if Ptr SettingGsm
ptr Ptr SettingGsm -> Ptr SettingGsm -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingGsm
forall a. Ptr a
FP.nullPtr
then SettingGsm -> Maybe SettingGsm
forall a. a -> Maybe a
P.Just (SettingGsm -> Maybe SettingGsm)
-> IO SettingGsm -> IO (Maybe SettingGsm)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingGsm -> SettingGsm)
-> Ptr SettingGsm -> IO SettingGsm
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SettingGsm -> SettingGsm
SettingGsm Ptr SettingGsm
ptr
else Maybe SettingGsm -> IO (Maybe SettingGsm)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingGsm
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingGsmMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingGsmMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSettingGsmMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSettingGsmMethod "compare" o = NM.Setting.SettingCompareMethodInfo
ResolveSettingGsmMethod "diff" o = NM.Setting.SettingDiffMethodInfo
ResolveSettingGsmMethod "duplicate" o = NM.Setting.SettingDuplicateMethodInfo
ResolveSettingGsmMethod "enumerateValues" o = NM.Setting.SettingEnumerateValuesMethodInfo
ResolveSettingGsmMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSettingGsmMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSettingGsmMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSettingGsmMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSettingGsmMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSettingGsmMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSettingGsmMethod "optionClearByName" o = NM.Setting.SettingOptionClearByNameMethodInfo
ResolveSettingGsmMethod "optionGet" o = NM.Setting.SettingOptionGetMethodInfo
ResolveSettingGsmMethod "optionGetAllNames" o = NM.Setting.SettingOptionGetAllNamesMethodInfo
ResolveSettingGsmMethod "optionGetBoolean" o = NM.Setting.SettingOptionGetBooleanMethodInfo
ResolveSettingGsmMethod "optionGetUint32" o = NM.Setting.SettingOptionGetUint32MethodInfo
ResolveSettingGsmMethod "optionSet" o = NM.Setting.SettingOptionSetMethodInfo
ResolveSettingGsmMethod "optionSetBoolean" o = NM.Setting.SettingOptionSetBooleanMethodInfo
ResolveSettingGsmMethod "optionSetUint32" o = NM.Setting.SettingOptionSetUint32MethodInfo
ResolveSettingGsmMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSettingGsmMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSettingGsmMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSettingGsmMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSettingGsmMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSettingGsmMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSettingGsmMethod "toString" o = NM.Setting.SettingToStringMethodInfo
ResolveSettingGsmMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSettingGsmMethod "verify" o = NM.Setting.SettingVerifyMethodInfo
ResolveSettingGsmMethod "verifySecrets" o = NM.Setting.SettingVerifySecretsMethodInfo
ResolveSettingGsmMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSettingGsmMethod "getApn" o = SettingGsmGetApnMethodInfo
ResolveSettingGsmMethod "getAutoConfig" o = SettingGsmGetAutoConfigMethodInfo
ResolveSettingGsmMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSettingGsmMethod "getDbusPropertyType" o = NM.Setting.SettingGetDbusPropertyTypeMethodInfo
ResolveSettingGsmMethod "getDeviceId" o = SettingGsmGetDeviceIdMethodInfo
ResolveSettingGsmMethod "getHomeOnly" o = SettingGsmGetHomeOnlyMethodInfo
ResolveSettingGsmMethod "getInitialEpsApn" o = SettingGsmGetInitialEpsApnMethodInfo
ResolveSettingGsmMethod "getInitialEpsConfig" o = SettingGsmGetInitialEpsConfigMethodInfo
ResolveSettingGsmMethod "getMtu" o = SettingGsmGetMtuMethodInfo
ResolveSettingGsmMethod "getName" o = NM.Setting.SettingGetNameMethodInfo
ResolveSettingGsmMethod "getNetworkId" o = SettingGsmGetNetworkIdMethodInfo
ResolveSettingGsmMethod "getNumber" o = SettingGsmGetNumberMethodInfo
ResolveSettingGsmMethod "getPassword" o = SettingGsmGetPasswordMethodInfo
ResolveSettingGsmMethod "getPasswordFlags" o = SettingGsmGetPasswordFlagsMethodInfo
ResolveSettingGsmMethod "getPin" o = SettingGsmGetPinMethodInfo
ResolveSettingGsmMethod "getPinFlags" o = SettingGsmGetPinFlagsMethodInfo
ResolveSettingGsmMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSettingGsmMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSettingGsmMethod "getSecretFlags" o = NM.Setting.SettingGetSecretFlagsMethodInfo
ResolveSettingGsmMethod "getSimId" o = SettingGsmGetSimIdMethodInfo
ResolveSettingGsmMethod "getSimOperatorId" o = SettingGsmGetSimOperatorIdMethodInfo
ResolveSettingGsmMethod "getUsername" o = SettingGsmGetUsernameMethodInfo
ResolveSettingGsmMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSettingGsmMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSettingGsmMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSettingGsmMethod "setSecretFlags" o = NM.Setting.SettingSetSecretFlagsMethodInfo
ResolveSettingGsmMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingGsmMethod t SettingGsm, O.OverloadedMethod info SettingGsm p) => OL.IsLabel t (SettingGsm -> 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 ~ ResolveSettingGsmMethod t SettingGsm, O.OverloadedMethod info SettingGsm p, R.HasField t SettingGsm p) => R.HasField t SettingGsm p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingGsmMethod t SettingGsm, O.OverloadedMethodInfo info SettingGsm) => OL.IsLabel t (O.MethodProxy info SettingGsm) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSettingGsmApn :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmApn :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmApn 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
"getSettingGsmApn" (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
"apn"
setSettingGsmApn :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmApn :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmApn 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
"apn" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmApn :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmApn :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmApn 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
"apn" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmApn :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmApn :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmApn 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
"apn" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmApnPropertyInfo
instance AttrInfo SettingGsmApnPropertyInfo where
type AttrAllowedOps SettingGsmApnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmApnPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmApnPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmApnPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmApnPropertyInfo = T.Text
type AttrGetType SettingGsmApnPropertyInfo = T.Text
type AttrLabel SettingGsmApnPropertyInfo = "apn"
type AttrOrigin SettingGsmApnPropertyInfo = SettingGsm
attrGet = getSettingGsmApn
attrSet = setSettingGsmApn
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmApn
attrClear = clearSettingGsmApn
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.apn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:apn"
})
#endif
getSettingGsmAutoConfig :: (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmAutoConfig :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmAutoConfig o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"auto-config"
setSettingGsmAutoConfig :: (MonadIO m, IsSettingGsm o) => o -> Bool -> m ()
setSettingGsmAutoConfig :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Bool -> m ()
setSettingGsmAutoConfig o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"auto-config" Bool
val
constructSettingGsmAutoConfig :: (IsSettingGsm o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingGsmAutoConfig :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingGsmAutoConfig Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"auto-config" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingGsmAutoConfigPropertyInfo
instance AttrInfo SettingGsmAutoConfigPropertyInfo where
type AttrAllowedOps SettingGsmAutoConfigPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmAutoConfigPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmAutoConfigPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingGsmAutoConfigPropertyInfo = (~) Bool
type AttrTransferType SettingGsmAutoConfigPropertyInfo = Bool
type AttrGetType SettingGsmAutoConfigPropertyInfo = Bool
type AttrLabel SettingGsmAutoConfigPropertyInfo = "auto-config"
type AttrOrigin SettingGsmAutoConfigPropertyInfo = SettingGsm
attrGet = getSettingGsmAutoConfig
attrSet = setSettingGsmAutoConfig
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmAutoConfig
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.autoConfig"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:autoConfig"
})
#endif
getSettingGsmDeviceId :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmDeviceId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmDeviceId 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
"getSettingGsmDeviceId" (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
"device-id"
setSettingGsmDeviceId :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmDeviceId :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmDeviceId 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
"device-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmDeviceId :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmDeviceId :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmDeviceId 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
"device-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmDeviceId :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmDeviceId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmDeviceId 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
"device-id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmDeviceIdPropertyInfo
instance AttrInfo SettingGsmDeviceIdPropertyInfo where
type AttrAllowedOps SettingGsmDeviceIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmDeviceIdPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmDeviceIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmDeviceIdPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmDeviceIdPropertyInfo = T.Text
type AttrGetType SettingGsmDeviceIdPropertyInfo = T.Text
type AttrLabel SettingGsmDeviceIdPropertyInfo = "device-id"
type AttrOrigin SettingGsmDeviceIdPropertyInfo = SettingGsm
attrGet = getSettingGsmDeviceId
attrSet = setSettingGsmDeviceId
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmDeviceId
attrClear = clearSettingGsmDeviceId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.deviceId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:deviceId"
})
#endif
getSettingGsmHomeOnly :: (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmHomeOnly :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmHomeOnly 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
"home-only"
setSettingGsmHomeOnly :: (MonadIO m, IsSettingGsm o) => o -> Bool -> m ()
setSettingGsmHomeOnly :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Bool -> m ()
setSettingGsmHomeOnly 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
"home-only" Bool
val
constructSettingGsmHomeOnly :: (IsSettingGsm o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingGsmHomeOnly :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingGsmHomeOnly 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
"home-only" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingGsmHomeOnlyPropertyInfo
instance AttrInfo SettingGsmHomeOnlyPropertyInfo where
type AttrAllowedOps SettingGsmHomeOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmHomeOnlyPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmHomeOnlyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingGsmHomeOnlyPropertyInfo = (~) Bool
type AttrTransferType SettingGsmHomeOnlyPropertyInfo = Bool
type AttrGetType SettingGsmHomeOnlyPropertyInfo = Bool
type AttrLabel SettingGsmHomeOnlyPropertyInfo = "home-only"
type AttrOrigin SettingGsmHomeOnlyPropertyInfo = SettingGsm
attrGet = getSettingGsmHomeOnly
attrSet = setSettingGsmHomeOnly
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmHomeOnly
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.homeOnly"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:homeOnly"
})
#endif
getSettingGsmInitialEpsBearerApn :: (MonadIO m, IsSettingGsm o) => o -> m (Maybe T.Text)
getSettingGsmInitialEpsBearerApn :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> m (Maybe Text)
getSettingGsmInitialEpsBearerApn 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.getObjectPropertyString o
obj String
"initial-eps-bearer-apn"
setSettingGsmInitialEpsBearerApn :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmInitialEpsBearerApn :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmInitialEpsBearerApn 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
"initial-eps-bearer-apn" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmInitialEpsBearerApn :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmInitialEpsBearerApn :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmInitialEpsBearerApn 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
"initial-eps-bearer-apn" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmInitialEpsBearerApn :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmInitialEpsBearerApn :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmInitialEpsBearerApn 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
"initial-eps-bearer-apn" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmInitialEpsBearerApnPropertyInfo
instance AttrInfo SettingGsmInitialEpsBearerApnPropertyInfo where
type AttrAllowedOps SettingGsmInitialEpsBearerApnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmInitialEpsBearerApnPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmInitialEpsBearerApnPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmInitialEpsBearerApnPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmInitialEpsBearerApnPropertyInfo = T.Text
type AttrGetType SettingGsmInitialEpsBearerApnPropertyInfo = (Maybe T.Text)
type AttrLabel SettingGsmInitialEpsBearerApnPropertyInfo = "initial-eps-bearer-apn"
type AttrOrigin SettingGsmInitialEpsBearerApnPropertyInfo = SettingGsm
attrGet = getSettingGsmInitialEpsBearerApn
attrSet = setSettingGsmInitialEpsBearerApn
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmInitialEpsBearerApn
attrClear = clearSettingGsmInitialEpsBearerApn
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.initialEpsBearerApn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:initialEpsBearerApn"
})
#endif
getSettingGsmInitialEpsBearerConfigure :: (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmInitialEpsBearerConfigure :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Bool
getSettingGsmInitialEpsBearerConfigure 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
"initial-eps-bearer-configure"
setSettingGsmInitialEpsBearerConfigure :: (MonadIO m, IsSettingGsm o) => o -> Bool -> m ()
setSettingGsmInitialEpsBearerConfigure :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Bool -> m ()
setSettingGsmInitialEpsBearerConfigure 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
"initial-eps-bearer-configure" Bool
val
constructSettingGsmInitialEpsBearerConfigure :: (IsSettingGsm o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSettingGsmInitialEpsBearerConfigure :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSettingGsmInitialEpsBearerConfigure 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
"initial-eps-bearer-configure" Bool
val
#if defined(ENABLE_OVERLOADING)
data SettingGsmInitialEpsBearerConfigurePropertyInfo
instance AttrInfo SettingGsmInitialEpsBearerConfigurePropertyInfo where
type AttrAllowedOps SettingGsmInitialEpsBearerConfigurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmInitialEpsBearerConfigurePropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmInitialEpsBearerConfigurePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SettingGsmInitialEpsBearerConfigurePropertyInfo = (~) Bool
type AttrTransferType SettingGsmInitialEpsBearerConfigurePropertyInfo = Bool
type AttrGetType SettingGsmInitialEpsBearerConfigurePropertyInfo = Bool
type AttrLabel SettingGsmInitialEpsBearerConfigurePropertyInfo = "initial-eps-bearer-configure"
type AttrOrigin SettingGsmInitialEpsBearerConfigurePropertyInfo = SettingGsm
attrGet = getSettingGsmInitialEpsBearerConfigure
attrSet = setSettingGsmInitialEpsBearerConfigure
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmInitialEpsBearerConfigure
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.initialEpsBearerConfigure"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:initialEpsBearerConfigure"
})
#endif
getSettingGsmMtu :: (MonadIO m, IsSettingGsm o) => o -> m Word32
getSettingGsmMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> m Word32
getSettingGsmMtu 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"
setSettingGsmMtu :: (MonadIO m, IsSettingGsm o) => o -> Word32 -> m ()
setSettingGsmMtu :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Word32 -> m ()
setSettingGsmMtu 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
constructSettingGsmMtu :: (IsSettingGsm o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSettingGsmMtu :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSettingGsmMtu 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 SettingGsmMtuPropertyInfo
instance AttrInfo SettingGsmMtuPropertyInfo where
type AttrAllowedOps SettingGsmMtuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmMtuPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmMtuPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SettingGsmMtuPropertyInfo = (~) Word32
type AttrTransferType SettingGsmMtuPropertyInfo = Word32
type AttrGetType SettingGsmMtuPropertyInfo = Word32
type AttrLabel SettingGsmMtuPropertyInfo = "mtu"
type AttrOrigin SettingGsmMtuPropertyInfo = SettingGsm
attrGet = getSettingGsmMtu
attrSet = setSettingGsmMtu
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmMtu
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.mtu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:mtu"
})
#endif
getSettingGsmNetworkId :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmNetworkId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmNetworkId 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
"getSettingGsmNetworkId" (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
"network-id"
setSettingGsmNetworkId :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmNetworkId :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmNetworkId 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
"network-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmNetworkId :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmNetworkId :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmNetworkId 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
"network-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmNetworkId :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmNetworkId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmNetworkId 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
"network-id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmNetworkIdPropertyInfo
instance AttrInfo SettingGsmNetworkIdPropertyInfo where
type AttrAllowedOps SettingGsmNetworkIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmNetworkIdPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmNetworkIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmNetworkIdPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmNetworkIdPropertyInfo = T.Text
type AttrGetType SettingGsmNetworkIdPropertyInfo = T.Text
type AttrLabel SettingGsmNetworkIdPropertyInfo = "network-id"
type AttrOrigin SettingGsmNetworkIdPropertyInfo = SettingGsm
attrGet = getSettingGsmNetworkId
attrSet = setSettingGsmNetworkId
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmNetworkId
attrClear = clearSettingGsmNetworkId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.networkId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:networkId"
})
#endif
getSettingGsmNumber :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmNumber :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmNumber 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
"getSettingGsmNumber" (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
"number"
setSettingGsmNumber :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmNumber :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmNumber 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
"number" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmNumber :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmNumber :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmNumber 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
"number" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmNumber :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmNumber :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmNumber 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
"number" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmNumberPropertyInfo
instance AttrInfo SettingGsmNumberPropertyInfo where
type AttrAllowedOps SettingGsmNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmNumberPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmNumberPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmNumberPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmNumberPropertyInfo = T.Text
type AttrGetType SettingGsmNumberPropertyInfo = T.Text
type AttrLabel SettingGsmNumberPropertyInfo = "number"
type AttrOrigin SettingGsmNumberPropertyInfo = SettingGsm
attrGet = getSettingGsmNumber
attrSet = setSettingGsmNumber
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmNumber
attrClear = clearSettingGsmNumber
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.number"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:number"
})
#endif
getSettingGsmPassword :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmPassword :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmPassword 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
"getSettingGsmPassword" (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
"password"
setSettingGsmPassword :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmPassword :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmPassword 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
"password" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmPassword :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmPassword :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmPassword 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
"password" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmPassword :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmPassword :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmPassword 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
"password" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmPasswordPropertyInfo
instance AttrInfo SettingGsmPasswordPropertyInfo where
type AttrAllowedOps SettingGsmPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmPasswordPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmPasswordPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmPasswordPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmPasswordPropertyInfo = T.Text
type AttrGetType SettingGsmPasswordPropertyInfo = T.Text
type AttrLabel SettingGsmPasswordPropertyInfo = "password"
type AttrOrigin SettingGsmPasswordPropertyInfo = SettingGsm
attrGet = getSettingGsmPassword
attrSet = setSettingGsmPassword
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmPassword
attrClear = clearSettingGsmPassword
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.password"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:password"
})
#endif
getSettingGsmPasswordFlags :: (MonadIO m, IsSettingGsm o) => o -> m [NM.Flags.SettingSecretFlags]
getSettingGsmPasswordFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> m [SettingSecretFlags]
getSettingGsmPasswordFlags o
obj = IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [SettingSecretFlags] -> m [SettingSecretFlags])
-> IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [SettingSecretFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"password-flags"
setSettingGsmPasswordFlags :: (MonadIO m, IsSettingGsm o) => o -> [NM.Flags.SettingSecretFlags] -> m ()
setSettingGsmPasswordFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> [SettingSecretFlags] -> m ()
setSettingGsmPasswordFlags o
obj [SettingSecretFlags]
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 -> [SettingSecretFlags] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"password-flags" [SettingSecretFlags]
val
constructSettingGsmPasswordFlags :: (IsSettingGsm o, MIO.MonadIO m) => [NM.Flags.SettingSecretFlags] -> m (GValueConstruct o)
constructSettingGsmPasswordFlags :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
[SettingSecretFlags] -> m (GValueConstruct o)
constructSettingGsmPasswordFlags [SettingSecretFlags]
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 -> [SettingSecretFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"password-flags" [SettingSecretFlags]
val
#if defined(ENABLE_OVERLOADING)
data SettingGsmPasswordFlagsPropertyInfo
instance AttrInfo SettingGsmPasswordFlagsPropertyInfo where
type AttrAllowedOps SettingGsmPasswordFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmPasswordFlagsPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmPasswordFlagsPropertyInfo = (~) [NM.Flags.SettingSecretFlags]
type AttrTransferTypeConstraint SettingGsmPasswordFlagsPropertyInfo = (~) [NM.Flags.SettingSecretFlags]
type AttrTransferType SettingGsmPasswordFlagsPropertyInfo = [NM.Flags.SettingSecretFlags]
type AttrGetType SettingGsmPasswordFlagsPropertyInfo = [NM.Flags.SettingSecretFlags]
type AttrLabel SettingGsmPasswordFlagsPropertyInfo = "password-flags"
type AttrOrigin SettingGsmPasswordFlagsPropertyInfo = SettingGsm
attrGet = getSettingGsmPasswordFlags
attrSet = setSettingGsmPasswordFlags
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmPasswordFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.passwordFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:passwordFlags"
})
#endif
getSettingGsmPin :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmPin :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmPin 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
"getSettingGsmPin" (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
"pin"
setSettingGsmPin :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmPin :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmPin 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
"pin" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmPin :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmPin :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmPin 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
"pin" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmPin :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmPin :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmPin 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
"pin" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmPinPropertyInfo
instance AttrInfo SettingGsmPinPropertyInfo where
type AttrAllowedOps SettingGsmPinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmPinPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmPinPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmPinPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmPinPropertyInfo = T.Text
type AttrGetType SettingGsmPinPropertyInfo = T.Text
type AttrLabel SettingGsmPinPropertyInfo = "pin"
type AttrOrigin SettingGsmPinPropertyInfo = SettingGsm
attrGet = getSettingGsmPin
attrSet = setSettingGsmPin
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmPin
attrClear = clearSettingGsmPin
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.pin"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:pin"
})
#endif
getSettingGsmPinFlags :: (MonadIO m, IsSettingGsm o) => o -> m [NM.Flags.SettingSecretFlags]
getSettingGsmPinFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> m [SettingSecretFlags]
getSettingGsmPinFlags o
obj = IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [SettingSecretFlags] -> m [SettingSecretFlags])
-> IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [SettingSecretFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"pin-flags"
setSettingGsmPinFlags :: (MonadIO m, IsSettingGsm o) => o -> [NM.Flags.SettingSecretFlags] -> m ()
setSettingGsmPinFlags :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> [SettingSecretFlags] -> m ()
setSettingGsmPinFlags o
obj [SettingSecretFlags]
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 -> [SettingSecretFlags] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"pin-flags" [SettingSecretFlags]
val
constructSettingGsmPinFlags :: (IsSettingGsm o, MIO.MonadIO m) => [NM.Flags.SettingSecretFlags] -> m (GValueConstruct o)
constructSettingGsmPinFlags :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
[SettingSecretFlags] -> m (GValueConstruct o)
constructSettingGsmPinFlags [SettingSecretFlags]
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 -> [SettingSecretFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"pin-flags" [SettingSecretFlags]
val
#if defined(ENABLE_OVERLOADING)
data SettingGsmPinFlagsPropertyInfo
instance AttrInfo SettingGsmPinFlagsPropertyInfo where
type AttrAllowedOps SettingGsmPinFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SettingGsmPinFlagsPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmPinFlagsPropertyInfo = (~) [NM.Flags.SettingSecretFlags]
type AttrTransferTypeConstraint SettingGsmPinFlagsPropertyInfo = (~) [NM.Flags.SettingSecretFlags]
type AttrTransferType SettingGsmPinFlagsPropertyInfo = [NM.Flags.SettingSecretFlags]
type AttrGetType SettingGsmPinFlagsPropertyInfo = [NM.Flags.SettingSecretFlags]
type AttrLabel SettingGsmPinFlagsPropertyInfo = "pin-flags"
type AttrOrigin SettingGsmPinFlagsPropertyInfo = SettingGsm
attrGet = getSettingGsmPinFlags
attrSet = setSettingGsmPinFlags
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmPinFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.pinFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:pinFlags"
})
#endif
getSettingGsmSimId :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmSimId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmSimId 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
"getSettingGsmSimId" (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
"sim-id"
setSettingGsmSimId :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmSimId :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmSimId 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
"sim-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmSimId :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmSimId :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmSimId 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
"sim-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmSimId :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmSimId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmSimId 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
"sim-id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmSimIdPropertyInfo
instance AttrInfo SettingGsmSimIdPropertyInfo where
type AttrAllowedOps SettingGsmSimIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmSimIdPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmSimIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmSimIdPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmSimIdPropertyInfo = T.Text
type AttrGetType SettingGsmSimIdPropertyInfo = T.Text
type AttrLabel SettingGsmSimIdPropertyInfo = "sim-id"
type AttrOrigin SettingGsmSimIdPropertyInfo = SettingGsm
attrGet = getSettingGsmSimId
attrSet = setSettingGsmSimId
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmSimId
attrClear = clearSettingGsmSimId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.simId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:simId"
})
#endif
getSettingGsmSimOperatorId :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmSimOperatorId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmSimOperatorId 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
"getSettingGsmSimOperatorId" (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
"sim-operator-id"
setSettingGsmSimOperatorId :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmSimOperatorId :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmSimOperatorId 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
"sim-operator-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmSimOperatorId :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmSimOperatorId :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmSimOperatorId 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
"sim-operator-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmSimOperatorId :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmSimOperatorId :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmSimOperatorId 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
"sim-operator-id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmSimOperatorIdPropertyInfo
instance AttrInfo SettingGsmSimOperatorIdPropertyInfo where
type AttrAllowedOps SettingGsmSimOperatorIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmSimOperatorIdPropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmSimOperatorIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmSimOperatorIdPropertyInfo = (~) T.Text
type AttrTransferType SettingGsmSimOperatorIdPropertyInfo = T.Text
type AttrGetType SettingGsmSimOperatorIdPropertyInfo = T.Text
type AttrLabel SettingGsmSimOperatorIdPropertyInfo = "sim-operator-id"
type AttrOrigin SettingGsmSimOperatorIdPropertyInfo = SettingGsm
attrGet = getSettingGsmSimOperatorId
attrSet = setSettingGsmSimOperatorId
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmSimOperatorId
attrClear = clearSettingGsmSimOperatorId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.simOperatorId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:simOperatorId"
})
#endif
getSettingGsmUsername :: (MonadIO m, IsSettingGsm o) => o -> m T.Text
getSettingGsmUsername :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m Text
getSettingGsmUsername 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
"getSettingGsmUsername" (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
"username"
setSettingGsmUsername :: (MonadIO m, IsSettingGsm o) => o -> T.Text -> m ()
setSettingGsmUsername :: forall (m :: * -> *) o.
(MonadIO m, IsSettingGsm o) =>
o -> Text -> m ()
setSettingGsmUsername 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
"username" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSettingGsmUsername :: (IsSettingGsm o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSettingGsmUsername :: forall o (m :: * -> *).
(IsSettingGsm o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSettingGsmUsername 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
"username" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSettingGsmUsername :: (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmUsername :: forall (m :: * -> *) o. (MonadIO m, IsSettingGsm o) => o -> m ()
clearSettingGsmUsername 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
"username" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SettingGsmUsernamePropertyInfo
instance AttrInfo SettingGsmUsernamePropertyInfo where
type AttrAllowedOps SettingGsmUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SettingGsmUsernamePropertyInfo = IsSettingGsm
type AttrSetTypeConstraint SettingGsmUsernamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SettingGsmUsernamePropertyInfo = (~) T.Text
type AttrTransferType SettingGsmUsernamePropertyInfo = T.Text
type AttrGetType SettingGsmUsernamePropertyInfo = T.Text
type AttrLabel SettingGsmUsernamePropertyInfo = "username"
type AttrOrigin SettingGsmUsernamePropertyInfo = SettingGsm
attrGet = getSettingGsmUsername
attrSet = setSettingGsmUsername
attrTransfer _ v = do
return v
attrConstruct = constructSettingGsmUsername
attrClear = clearSettingGsmUsername
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.username"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#g:attr:username"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingGsm
type instance O.AttributeList SettingGsm = SettingGsmAttributeList
type SettingGsmAttributeList = ('[ '("apn", SettingGsmApnPropertyInfo), '("autoConfig", SettingGsmAutoConfigPropertyInfo), '("deviceId", SettingGsmDeviceIdPropertyInfo), '("homeOnly", SettingGsmHomeOnlyPropertyInfo), '("initialEpsBearerApn", SettingGsmInitialEpsBearerApnPropertyInfo), '("initialEpsBearerConfigure", SettingGsmInitialEpsBearerConfigurePropertyInfo), '("mtu", SettingGsmMtuPropertyInfo), '("name", NM.Setting.SettingNamePropertyInfo), '("networkId", SettingGsmNetworkIdPropertyInfo), '("number", SettingGsmNumberPropertyInfo), '("password", SettingGsmPasswordPropertyInfo), '("passwordFlags", SettingGsmPasswordFlagsPropertyInfo), '("pin", SettingGsmPinPropertyInfo), '("pinFlags", SettingGsmPinFlagsPropertyInfo), '("simId", SettingGsmSimIdPropertyInfo), '("simOperatorId", SettingGsmSimOperatorIdPropertyInfo), '("username", SettingGsmUsernamePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
settingGsmApn :: AttrLabelProxy "apn"
settingGsmApn = AttrLabelProxy
settingGsmAutoConfig :: AttrLabelProxy "autoConfig"
settingGsmAutoConfig = AttrLabelProxy
settingGsmDeviceId :: AttrLabelProxy "deviceId"
settingGsmDeviceId = AttrLabelProxy
settingGsmHomeOnly :: AttrLabelProxy "homeOnly"
settingGsmHomeOnly = AttrLabelProxy
settingGsmInitialEpsBearerApn :: AttrLabelProxy "initialEpsBearerApn"
settingGsmInitialEpsBearerApn = AttrLabelProxy
settingGsmInitialEpsBearerConfigure :: AttrLabelProxy "initialEpsBearerConfigure"
settingGsmInitialEpsBearerConfigure = AttrLabelProxy
settingGsmMtu :: AttrLabelProxy "mtu"
settingGsmMtu = AttrLabelProxy
settingGsmNetworkId :: AttrLabelProxy "networkId"
settingGsmNetworkId = AttrLabelProxy
settingGsmNumber :: AttrLabelProxy "number"
settingGsmNumber = AttrLabelProxy
settingGsmPassword :: AttrLabelProxy "password"
settingGsmPassword = AttrLabelProxy
settingGsmPasswordFlags :: AttrLabelProxy "passwordFlags"
settingGsmPasswordFlags = AttrLabelProxy
settingGsmPin :: AttrLabelProxy "pin"
settingGsmPin = AttrLabelProxy
settingGsmPinFlags :: AttrLabelProxy "pinFlags"
settingGsmPinFlags = AttrLabelProxy
settingGsmSimId :: AttrLabelProxy "simId"
settingGsmSimId = AttrLabelProxy
settingGsmSimOperatorId :: AttrLabelProxy "simOperatorId"
settingGsmSimOperatorId = AttrLabelProxy
settingGsmUsername :: AttrLabelProxy "username"
settingGsmUsername = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SettingGsm = SettingGsmSignalList
type SettingGsmSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_setting_gsm_new" nm_setting_gsm_new ::
IO (Ptr SettingGsm)
settingGsmNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SettingGsm
settingGsmNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SettingGsm
settingGsmNew = IO SettingGsm -> m SettingGsm
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingGsm -> m SettingGsm) -> IO SettingGsm -> m SettingGsm
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingGsm
result <- IO (Ptr SettingGsm)
nm_setting_gsm_new
Text -> Ptr SettingGsm -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmNew" Ptr SettingGsm
result
SettingGsm
result' <- ((ManagedPtr SettingGsm -> SettingGsm)
-> Ptr SettingGsm -> IO SettingGsm
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SettingGsm -> SettingGsm
SettingGsm) Ptr SettingGsm
result
SettingGsm -> IO SettingGsm
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingGsm
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_setting_gsm_get_apn" nm_setting_gsm_get_apn ::
Ptr SettingGsm ->
IO CString
settingGsmGetApn ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetApn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetApn 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_apn Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetApn" 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 SettingGsmGetApnMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetApnMethodInfo a signature where
overloadedMethod = settingGsmGetApn
instance O.OverloadedMethodInfo SettingGsmGetApnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetApn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetApn"
})
#endif
foreign import ccall "nm_setting_gsm_get_auto_config" nm_setting_gsm_get_auto_config ::
Ptr SettingGsm ->
IO CInt
settingGsmGetAutoConfig ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m Bool
settingGsmGetAutoConfig :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Bool
settingGsmGetAutoConfig 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingGsm -> IO CInt
nm_setting_gsm_get_auto_config Ptr SettingGsm
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 SettingGsmGetAutoConfigMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetAutoConfigMethodInfo a signature where
overloadedMethod = settingGsmGetAutoConfig
instance O.OverloadedMethodInfo SettingGsmGetAutoConfigMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetAutoConfig",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetAutoConfig"
})
#endif
foreign import ccall "nm_setting_gsm_get_device_id" nm_setting_gsm_get_device_id ::
Ptr SettingGsm ->
IO CString
settingGsmGetDeviceId ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetDeviceId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetDeviceId 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_device_id Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetDeviceId" 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 SettingGsmGetDeviceIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetDeviceIdMethodInfo a signature where
overloadedMethod = settingGsmGetDeviceId
instance O.OverloadedMethodInfo SettingGsmGetDeviceIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetDeviceId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetDeviceId"
})
#endif
foreign import ccall "nm_setting_gsm_get_home_only" nm_setting_gsm_get_home_only ::
Ptr SettingGsm ->
IO CInt
settingGsmGetHomeOnly ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m Bool
settingGsmGetHomeOnly :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Bool
settingGsmGetHomeOnly 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingGsm -> IO CInt
nm_setting_gsm_get_home_only Ptr SettingGsm
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 SettingGsmGetHomeOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetHomeOnlyMethodInfo a signature where
overloadedMethod = settingGsmGetHomeOnly
instance O.OverloadedMethodInfo SettingGsmGetHomeOnlyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetHomeOnly",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetHomeOnly"
})
#endif
foreign import ccall "nm_setting_gsm_get_initial_eps_apn" nm_setting_gsm_get_initial_eps_apn ::
Ptr SettingGsm ->
IO CString
settingGsmGetInitialEpsApn ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetInitialEpsApn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetInitialEpsApn 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_initial_eps_apn Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetInitialEpsApn" 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 SettingGsmGetInitialEpsApnMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetInitialEpsApnMethodInfo a signature where
overloadedMethod = settingGsmGetInitialEpsApn
instance O.OverloadedMethodInfo SettingGsmGetInitialEpsApnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetInitialEpsApn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetInitialEpsApn"
})
#endif
foreign import ccall "nm_setting_gsm_get_initial_eps_config" nm_setting_gsm_get_initial_eps_config ::
Ptr SettingGsm ->
IO CInt
settingGsmGetInitialEpsConfig ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m Bool
settingGsmGetInitialEpsConfig :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Bool
settingGsmGetInitialEpsConfig 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CInt
result <- Ptr SettingGsm -> IO CInt
nm_setting_gsm_get_initial_eps_config Ptr SettingGsm
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 SettingGsmGetInitialEpsConfigMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetInitialEpsConfigMethodInfo a signature where
overloadedMethod = settingGsmGetInitialEpsConfig
instance O.OverloadedMethodInfo SettingGsmGetInitialEpsConfigMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetInitialEpsConfig",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetInitialEpsConfig"
})
#endif
foreign import ccall "nm_setting_gsm_get_mtu" nm_setting_gsm_get_mtu ::
Ptr SettingGsm ->
IO Word32
settingGsmGetMtu ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m Word32
settingGsmGetMtu :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Word32
settingGsmGetMtu 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
Word32
result <- Ptr SettingGsm -> IO Word32
nm_setting_gsm_get_mtu Ptr SettingGsm
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 SettingGsmGetMtuMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetMtuMethodInfo a signature where
overloadedMethod = settingGsmGetMtu
instance O.OverloadedMethodInfo SettingGsmGetMtuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetMtu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetMtu"
})
#endif
foreign import ccall "nm_setting_gsm_get_network_id" nm_setting_gsm_get_network_id ::
Ptr SettingGsm ->
IO CString
settingGsmGetNetworkId ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetNetworkId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetNetworkId 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_network_id Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetNetworkId" 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 SettingGsmGetNetworkIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetNetworkIdMethodInfo a signature where
overloadedMethod = settingGsmGetNetworkId
instance O.OverloadedMethodInfo SettingGsmGetNetworkIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetNetworkId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetNetworkId"
})
#endif
foreign import ccall "nm_setting_gsm_get_number" nm_setting_gsm_get_number ::
Ptr SettingGsm ->
IO CString
{-# DEPRECATED settingGsmGetNumber ["(Since version 1.16)","User-provided values for this setting are no longer used."] #-}
settingGsmGetNumber ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetNumber :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetNumber 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_number Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetNumber" 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 SettingGsmGetNumberMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetNumberMethodInfo a signature where
overloadedMethod = settingGsmGetNumber
instance O.OverloadedMethodInfo SettingGsmGetNumberMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetNumber",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetNumber"
})
#endif
foreign import ccall "nm_setting_gsm_get_password" nm_setting_gsm_get_password ::
Ptr SettingGsm ->
IO CString
settingGsmGetPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetPassword :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetPassword 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_password Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetPassword" 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 SettingGsmGetPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetPasswordMethodInfo a signature where
overloadedMethod = settingGsmGetPassword
instance O.OverloadedMethodInfo SettingGsmGetPasswordMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetPassword"
})
#endif
foreign import ccall "nm_setting_gsm_get_password_flags" nm_setting_gsm_get_password_flags ::
Ptr SettingGsm ->
IO CUInt
settingGsmGetPasswordFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m [NM.Flags.SettingSecretFlags]
settingGsmGetPasswordFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m [SettingSecretFlags]
settingGsmGetPasswordFlags a
setting = IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [SettingSecretFlags] -> m [SettingSecretFlags])
-> IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingGsm -> IO CUInt
nm_setting_gsm_get_password_flags Ptr SettingGsm
setting'
let result' :: [SettingSecretFlags]
result' = CUInt -> [SettingSecretFlags]
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
[SettingSecretFlags] -> IO [SettingSecretFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [SettingSecretFlags]
result'
#if defined(ENABLE_OVERLOADING)
data SettingGsmGetPasswordFlagsMethodInfo
instance (signature ~ (m [NM.Flags.SettingSecretFlags]), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetPasswordFlagsMethodInfo a signature where
overloadedMethod = settingGsmGetPasswordFlags
instance O.OverloadedMethodInfo SettingGsmGetPasswordFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetPasswordFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetPasswordFlags"
})
#endif
foreign import ccall "nm_setting_gsm_get_pin" nm_setting_gsm_get_pin ::
Ptr SettingGsm ->
IO CString
settingGsmGetPin ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetPin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetPin 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_pin Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetPin" 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 SettingGsmGetPinMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetPinMethodInfo a signature where
overloadedMethod = settingGsmGetPin
instance O.OverloadedMethodInfo SettingGsmGetPinMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetPin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetPin"
})
#endif
foreign import ccall "nm_setting_gsm_get_pin_flags" nm_setting_gsm_get_pin_flags ::
Ptr SettingGsm ->
IO CUInt
settingGsmGetPinFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m [NM.Flags.SettingSecretFlags]
settingGsmGetPinFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m [SettingSecretFlags]
settingGsmGetPinFlags a
setting = IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [SettingSecretFlags] -> m [SettingSecretFlags])
-> IO [SettingSecretFlags] -> m [SettingSecretFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CUInt
result <- Ptr SettingGsm -> IO CUInt
nm_setting_gsm_get_pin_flags Ptr SettingGsm
setting'
let result' :: [SettingSecretFlags]
result' = CUInt -> [SettingSecretFlags]
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
[SettingSecretFlags] -> IO [SettingSecretFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [SettingSecretFlags]
result'
#if defined(ENABLE_OVERLOADING)
data SettingGsmGetPinFlagsMethodInfo
instance (signature ~ (m [NM.Flags.SettingSecretFlags]), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetPinFlagsMethodInfo a signature where
overloadedMethod = settingGsmGetPinFlags
instance O.OverloadedMethodInfo SettingGsmGetPinFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetPinFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetPinFlags"
})
#endif
foreign import ccall "nm_setting_gsm_get_sim_id" nm_setting_gsm_get_sim_id ::
Ptr SettingGsm ->
IO CString
settingGsmGetSimId ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetSimId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetSimId 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_sim_id Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetSimId" 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 SettingGsmGetSimIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetSimIdMethodInfo a signature where
overloadedMethod = settingGsmGetSimId
instance O.OverloadedMethodInfo SettingGsmGetSimIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetSimId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetSimId"
})
#endif
foreign import ccall "nm_setting_gsm_get_sim_operator_id" nm_setting_gsm_get_sim_operator_id ::
Ptr SettingGsm ->
IO CString
settingGsmGetSimOperatorId ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetSimOperatorId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetSimOperatorId 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_sim_operator_id Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetSimOperatorId" 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 SettingGsmGetSimOperatorIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetSimOperatorIdMethodInfo a signature where
overloadedMethod = settingGsmGetSimOperatorId
instance O.OverloadedMethodInfo SettingGsmGetSimOperatorIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetSimOperatorId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetSimOperatorId"
})
#endif
foreign import ccall "nm_setting_gsm_get_username" nm_setting_gsm_get_username ::
Ptr SettingGsm ->
IO CString
settingGsmGetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsSettingGsm a) =>
a
-> m T.Text
settingGsmGetUsername :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSettingGsm a) =>
a -> m Text
settingGsmGetUsername 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 SettingGsm
setting' <- a -> IO (Ptr SettingGsm)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setting
CString
result <- Ptr SettingGsm -> IO CString
nm_setting_gsm_get_username Ptr SettingGsm
setting'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingGsmGetUsername" 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 SettingGsmGetUsernameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsSettingGsm a) => O.OverloadedMethod SettingGsmGetUsernameMethodInfo a signature where
overloadedMethod = settingGsmGetUsername
instance O.OverloadedMethodInfo SettingGsmGetUsernameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.SettingGsm.settingGsmGetUsername",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-SettingGsm.html#v:settingGsmGetUsername"
})
#endif