{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.DeviceModem
(
DeviceModem(..) ,
IsDeviceModem ,
toDeviceModem ,
#if defined(ENABLE_OVERLOADING)
ResolveDeviceModemMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DeviceModemGetApnMethodInfo ,
#endif
deviceModemGetApn ,
#if defined(ENABLE_OVERLOADING)
DeviceModemGetCurrentCapabilitiesMethodInfo,
#endif
deviceModemGetCurrentCapabilities ,
#if defined(ENABLE_OVERLOADING)
DeviceModemGetDeviceIdMethodInfo ,
#endif
deviceModemGetDeviceId ,
#if defined(ENABLE_OVERLOADING)
DeviceModemGetModemCapabilitiesMethodInfo,
#endif
deviceModemGetModemCapabilities ,
#if defined(ENABLE_OVERLOADING)
DeviceModemGetOperatorCodeMethodInfo ,
#endif
deviceModemGetOperatorCode ,
#if defined(ENABLE_OVERLOADING)
DeviceModemApnPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemApn ,
#endif
getDeviceModemApn ,
#if defined(ENABLE_OVERLOADING)
DeviceModemCurrentCapabilitiesPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemCurrentCapabilities ,
#endif
getDeviceModemCurrentCapabilities ,
#if defined(ENABLE_OVERLOADING)
DeviceModemDeviceIdPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemDeviceId ,
#endif
getDeviceModemDeviceId ,
#if defined(ENABLE_OVERLOADING)
DeviceModemModemCapabilitiesPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemModemCapabilities ,
#endif
getDeviceModemModemCapabilities ,
#if defined(ENABLE_OVERLOADING)
DeviceModemOperatorCodePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemOperatorCode ,
#endif
getDeviceModemOperatorCode ,
) 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.MainContext as GLib.MainContext
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
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.ActiveConnection as NM.ActiveConnection
import {-# SOURCE #-} qualified GI.NM.Objects.Checkpoint as NM.Checkpoint
import {-# SOURCE #-} qualified GI.NM.Objects.Client as NM.Client
import {-# SOURCE #-} qualified GI.NM.Objects.Device as NM.Device
import {-# SOURCE #-} qualified GI.NM.Objects.DhcpConfig as NM.DhcpConfig
import {-# SOURCE #-} qualified GI.NM.Objects.IPConfig as NM.IPConfig
import {-# SOURCE #-} qualified GI.NM.Objects.Object as NM.Object
import {-# SOURCE #-} qualified GI.NM.Objects.RemoteConnection as NM.RemoteConnection
import {-# SOURCE #-} qualified GI.NM.Objects.Setting as NM.Setting
import {-# SOURCE #-} qualified GI.NM.Objects.Setting8021x as NM.Setting8021x
import {-# SOURCE #-} qualified GI.NM.Objects.SettingAdsl as NM.SettingAdsl
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBluetooth as NM.SettingBluetooth
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBond as NM.SettingBond
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridge as NM.SettingBridge
import {-# SOURCE #-} qualified GI.NM.Objects.SettingBridgePort as NM.SettingBridgePort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingCdma as NM.SettingCdma
import {-# SOURCE #-} qualified GI.NM.Objects.SettingConnection as NM.SettingConnection
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDcb as NM.SettingDcb
import {-# SOURCE #-} qualified GI.NM.Objects.SettingDummy as NM.SettingDummy
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGeneric as NM.SettingGeneric
import {-# SOURCE #-} qualified GI.NM.Objects.SettingGsm as NM.SettingGsm
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP4Config as NM.SettingIP4Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIP6Config as NM.SettingIP6Config
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPConfig as NM.SettingIPConfig
import {-# SOURCE #-} qualified GI.NM.Objects.SettingIPTunnel as NM.SettingIPTunnel
import {-# SOURCE #-} qualified GI.NM.Objects.SettingInfiniband as NM.SettingInfiniband
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacsec as NM.SettingMacsec
import {-# SOURCE #-} qualified GI.NM.Objects.SettingMacvlan as NM.SettingMacvlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOlpcMesh as NM.SettingOlpcMesh
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsBridge as NM.SettingOvsBridge
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsInterface as NM.SettingOvsInterface
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsPatch as NM.SettingOvsPatch
import {-# SOURCE #-} qualified GI.NM.Objects.SettingOvsPort as NM.SettingOvsPort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingPpp as NM.SettingPpp
import {-# SOURCE #-} qualified GI.NM.Objects.SettingPppoe as NM.SettingPppoe
import {-# SOURCE #-} qualified GI.NM.Objects.SettingProxy as NM.SettingProxy
import {-# SOURCE #-} qualified GI.NM.Objects.SettingSerial as NM.SettingSerial
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTCConfig as NM.SettingTCConfig
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTeam as NM.SettingTeam
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTeamPort as NM.SettingTeamPort
import {-# SOURCE #-} qualified GI.NM.Objects.SettingTun as NM.SettingTun
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVlan as NM.SettingVlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVpn as NM.SettingVpn
import {-# SOURCE #-} qualified GI.NM.Objects.SettingVxlan as NM.SettingVxlan
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWimax as NM.SettingWimax
import {-# SOURCE #-} qualified GI.NM.Objects.SettingWired as NM.SettingWired
import {-# SOURCE #-} qualified GI.NM.Objects.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.DnsEntry as NM.DnsEntry
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.LldpNeighbor as NM.LldpNeighbor
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.Device as NM.Device
import {-# SOURCE #-} qualified GI.NM.Objects.Object as NM.Object
#endif
newtype DeviceModem = DeviceModem (SP.ManagedPtr DeviceModem)
deriving (DeviceModem -> DeviceModem -> Bool
(DeviceModem -> DeviceModem -> Bool)
-> (DeviceModem -> DeviceModem -> Bool) -> Eq DeviceModem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeviceModem -> DeviceModem -> Bool
== :: DeviceModem -> DeviceModem -> Bool
$c/= :: DeviceModem -> DeviceModem -> Bool
/= :: DeviceModem -> DeviceModem -> Bool
Eq)
instance SP.ManagedPtrNewtype DeviceModem where
toManagedPtr :: DeviceModem -> ManagedPtr DeviceModem
toManagedPtr (DeviceModem ManagedPtr DeviceModem
p) = ManagedPtr DeviceModem
p
foreign import ccall "nm_device_modem_get_type"
c_nm_device_modem_get_type :: IO B.Types.GType
instance B.Types.TypedObject DeviceModem where
glibType :: IO GType
glibType = IO GType
c_nm_device_modem_get_type
instance B.Types.GObject DeviceModem
class (SP.GObject o, O.IsDescendantOf DeviceModem o) => IsDeviceModem o
instance (SP.GObject o, O.IsDescendantOf DeviceModem o) => IsDeviceModem o
instance O.HasParentTypes DeviceModem
type instance O.ParentTypes DeviceModem = '[NM.Device.Device, NM.Object.Object, GObject.Object.Object]
toDeviceModem :: (MIO.MonadIO m, IsDeviceModem o) => o -> m DeviceModem
toDeviceModem :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceModem o) =>
o -> m DeviceModem
toDeviceModem = IO DeviceModem -> m DeviceModem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DeviceModem -> m DeviceModem)
-> (o -> IO DeviceModem) -> o -> m DeviceModem
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DeviceModem -> DeviceModem) -> o -> IO DeviceModem
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DeviceModem -> DeviceModem
DeviceModem
instance B.GValue.IsGValue (Maybe DeviceModem) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_device_modem_get_type
gvalueSet_ :: Ptr GValue -> Maybe DeviceModem -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DeviceModem
P.Nothing = Ptr GValue -> Ptr DeviceModem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DeviceModem
forall a. Ptr a
FP.nullPtr :: FP.Ptr DeviceModem)
gvalueSet_ Ptr GValue
gv (P.Just DeviceModem
obj) = DeviceModem -> (Ptr DeviceModem -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DeviceModem
obj (Ptr GValue -> Ptr DeviceModem -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DeviceModem)
gvalueGet_ Ptr GValue
gv = do
Ptr DeviceModem
ptr <- Ptr GValue -> IO (Ptr DeviceModem)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DeviceModem)
if Ptr DeviceModem
ptr Ptr DeviceModem -> Ptr DeviceModem -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DeviceModem
forall a. Ptr a
FP.nullPtr
then DeviceModem -> Maybe DeviceModem
forall a. a -> Maybe a
P.Just (DeviceModem -> Maybe DeviceModem)
-> IO DeviceModem -> IO (Maybe DeviceModem)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DeviceModem -> DeviceModem)
-> Ptr DeviceModem -> IO DeviceModem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DeviceModem -> DeviceModem
DeviceModem Ptr DeviceModem
ptr
else Maybe DeviceModem -> IO (Maybe DeviceModem)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DeviceModem
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDeviceModemMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDeviceModemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDeviceModemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDeviceModemMethod "connectionCompatible" o = NM.Device.DeviceConnectionCompatibleMethodInfo
ResolveDeviceModemMethod "connectionValid" o = NM.Device.DeviceConnectionValidMethodInfo
ResolveDeviceModemMethod "delete" o = NM.Device.DeviceDeleteMethodInfo
ResolveDeviceModemMethod "deleteAsync" o = NM.Device.DeviceDeleteAsyncMethodInfo
ResolveDeviceModemMethod "deleteFinish" o = NM.Device.DeviceDeleteFinishMethodInfo
ResolveDeviceModemMethod "disconnect" o = NM.Device.DeviceDisconnectMethodInfo
ResolveDeviceModemMethod "disconnectAsync" o = NM.Device.DeviceDisconnectAsyncMethodInfo
ResolveDeviceModemMethod "disconnectFinish" o = NM.Device.DeviceDisconnectFinishMethodInfo
ResolveDeviceModemMethod "filterConnections" o = NM.Device.DeviceFilterConnectionsMethodInfo
ResolveDeviceModemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDeviceModemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDeviceModemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDeviceModemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDeviceModemMethod "isReal" o = NM.Device.DeviceIsRealMethodInfo
ResolveDeviceModemMethod "isSoftware" o = NM.Device.DeviceIsSoftwareMethodInfo
ResolveDeviceModemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDeviceModemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDeviceModemMethod "reapply" o = NM.Device.DeviceReapplyMethodInfo
ResolveDeviceModemMethod "reapplyAsync" o = NM.Device.DeviceReapplyAsyncMethodInfo
ResolveDeviceModemMethod "reapplyFinish" o = NM.Device.DeviceReapplyFinishMethodInfo
ResolveDeviceModemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDeviceModemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDeviceModemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDeviceModemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDeviceModemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDeviceModemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDeviceModemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDeviceModemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDeviceModemMethod "getActiveConnection" o = NM.Device.DeviceGetActiveConnectionMethodInfo
ResolveDeviceModemMethod "getApn" o = DeviceModemGetApnMethodInfo
ResolveDeviceModemMethod "getAppliedConnection" o = NM.Device.DeviceGetAppliedConnectionMethodInfo
ResolveDeviceModemMethod "getAppliedConnectionAsync" o = NM.Device.DeviceGetAppliedConnectionAsyncMethodInfo
ResolveDeviceModemMethod "getAppliedConnectionFinish" o = NM.Device.DeviceGetAppliedConnectionFinishMethodInfo
ResolveDeviceModemMethod "getAutoconnect" o = NM.Device.DeviceGetAutoconnectMethodInfo
ResolveDeviceModemMethod "getAvailableConnections" o = NM.Device.DeviceGetAvailableConnectionsMethodInfo
ResolveDeviceModemMethod "getCapabilities" o = NM.Device.DeviceGetCapabilitiesMethodInfo
ResolveDeviceModemMethod "getClient" o = NM.Object.ObjectGetClientMethodInfo
ResolveDeviceModemMethod "getConnectivity" o = NM.Device.DeviceGetConnectivityMethodInfo
ResolveDeviceModemMethod "getCurrentCapabilities" o = DeviceModemGetCurrentCapabilitiesMethodInfo
ResolveDeviceModemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDeviceModemMethod "getDescription" o = NM.Device.DeviceGetDescriptionMethodInfo
ResolveDeviceModemMethod "getDeviceId" o = DeviceModemGetDeviceIdMethodInfo
ResolveDeviceModemMethod "getDeviceType" o = NM.Device.DeviceGetDeviceTypeMethodInfo
ResolveDeviceModemMethod "getDhcp4Config" o = NM.Device.DeviceGetDhcp4ConfigMethodInfo
ResolveDeviceModemMethod "getDhcp6Config" o = NM.Device.DeviceGetDhcp6ConfigMethodInfo
ResolveDeviceModemMethod "getDriver" o = NM.Device.DeviceGetDriverMethodInfo
ResolveDeviceModemMethod "getDriverVersion" o = NM.Device.DeviceGetDriverVersionMethodInfo
ResolveDeviceModemMethod "getFirmwareMissing" o = NM.Device.DeviceGetFirmwareMissingMethodInfo
ResolveDeviceModemMethod "getFirmwareVersion" o = NM.Device.DeviceGetFirmwareVersionMethodInfo
ResolveDeviceModemMethod "getHwAddress" o = NM.Device.DeviceGetHwAddressMethodInfo
ResolveDeviceModemMethod "getIface" o = NM.Device.DeviceGetIfaceMethodInfo
ResolveDeviceModemMethod "getInterfaceFlags" o = NM.Device.DeviceGetInterfaceFlagsMethodInfo
ResolveDeviceModemMethod "getIp4Config" o = NM.Device.DeviceGetIp4ConfigMethodInfo
ResolveDeviceModemMethod "getIp6Config" o = NM.Device.DeviceGetIp6ConfigMethodInfo
ResolveDeviceModemMethod "getIpIface" o = NM.Device.DeviceGetIpIfaceMethodInfo
ResolveDeviceModemMethod "getLldpNeighbors" o = NM.Device.DeviceGetLldpNeighborsMethodInfo
ResolveDeviceModemMethod "getManaged" o = NM.Device.DeviceGetManagedMethodInfo
ResolveDeviceModemMethod "getMetered" o = NM.Device.DeviceGetMeteredMethodInfo
ResolveDeviceModemMethod "getModemCapabilities" o = DeviceModemGetModemCapabilitiesMethodInfo
ResolveDeviceModemMethod "getMtu" o = NM.Device.DeviceGetMtuMethodInfo
ResolveDeviceModemMethod "getNmPluginMissing" o = NM.Device.DeviceGetNmPluginMissingMethodInfo
ResolveDeviceModemMethod "getOperatorCode" o = DeviceModemGetOperatorCodeMethodInfo
ResolveDeviceModemMethod "getPath" o = NM.Device.DeviceGetPathMethodInfo
ResolveDeviceModemMethod "getPhysicalPortId" o = NM.Device.DeviceGetPhysicalPortIdMethodInfo
ResolveDeviceModemMethod "getPorts" o = NM.Device.DeviceGetPortsMethodInfo
ResolveDeviceModemMethod "getProduct" o = NM.Device.DeviceGetProductMethodInfo
ResolveDeviceModemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDeviceModemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDeviceModemMethod "getSettingType" o = NM.Device.DeviceGetSettingTypeMethodInfo
ResolveDeviceModemMethod "getState" o = NM.Device.DeviceGetStateMethodInfo
ResolveDeviceModemMethod "getStateReason" o = NM.Device.DeviceGetStateReasonMethodInfo
ResolveDeviceModemMethod "getTypeDescription" o = NM.Device.DeviceGetTypeDescriptionMethodInfo
ResolveDeviceModemMethod "getUdi" o = NM.Device.DeviceGetUdiMethodInfo
ResolveDeviceModemMethod "getVendor" o = NM.Device.DeviceGetVendorMethodInfo
ResolveDeviceModemMethod "setAutoconnect" o = NM.Device.DeviceSetAutoconnectMethodInfo
ResolveDeviceModemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDeviceModemMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDeviceModemMethod "setManaged" o = NM.Device.DeviceSetManagedMethodInfo
ResolveDeviceModemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDeviceModemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDeviceModemMethod t DeviceModem, O.OverloadedMethod info DeviceModem p) => OL.IsLabel t (DeviceModem -> 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 ~ ResolveDeviceModemMethod t DeviceModem, O.OverloadedMethod info DeviceModem p, R.HasField t DeviceModem p) => R.HasField t DeviceModem p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDeviceModemMethod t DeviceModem, O.OverloadedMethodInfo info DeviceModem) => OL.IsLabel t (O.MethodProxy info DeviceModem) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDeviceModemApn :: (MonadIO m, IsDeviceModem o) => o -> m T.Text
getDeviceModemApn :: forall (m :: * -> *) o. (MonadIO m, IsDeviceModem o) => o -> m Text
getDeviceModemApn 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
"getDeviceModemApn" (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"
#if defined(ENABLE_OVERLOADING)
data DeviceModemApnPropertyInfo
instance AttrInfo DeviceModemApnPropertyInfo where
type AttrAllowedOps DeviceModemApnPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DeviceModemApnPropertyInfo = IsDeviceModem
type AttrSetTypeConstraint DeviceModemApnPropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceModemApnPropertyInfo = (~) ()
type AttrTransferType DeviceModemApnPropertyInfo = ()
type AttrGetType DeviceModemApnPropertyInfo = T.Text
type AttrLabel DeviceModemApnPropertyInfo = "apn"
type AttrOrigin DeviceModemApnPropertyInfo = DeviceModem
attrGet = getDeviceModemApn
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.apn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#g:attr:apn"
})
#endif
getDeviceModemCurrentCapabilities :: (MonadIO m, IsDeviceModem o) => o -> m [NM.Flags.DeviceModemCapabilities]
getDeviceModemCurrentCapabilities :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceModem o) =>
o -> m [DeviceModemCapabilities]
getDeviceModemCurrentCapabilities o
obj = IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities])
-> IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [DeviceModemCapabilities]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"current-capabilities"
#if defined(ENABLE_OVERLOADING)
data DeviceModemCurrentCapabilitiesPropertyInfo
instance AttrInfo DeviceModemCurrentCapabilitiesPropertyInfo where
type AttrAllowedOps DeviceModemCurrentCapabilitiesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DeviceModemCurrentCapabilitiesPropertyInfo = IsDeviceModem
type AttrSetTypeConstraint DeviceModemCurrentCapabilitiesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceModemCurrentCapabilitiesPropertyInfo = (~) ()
type AttrTransferType DeviceModemCurrentCapabilitiesPropertyInfo = ()
type AttrGetType DeviceModemCurrentCapabilitiesPropertyInfo = [NM.Flags.DeviceModemCapabilities]
type AttrLabel DeviceModemCurrentCapabilitiesPropertyInfo = "current-capabilities"
type AttrOrigin DeviceModemCurrentCapabilitiesPropertyInfo = DeviceModem
attrGet = getDeviceModemCurrentCapabilities
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.currentCapabilities"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#g:attr:currentCapabilities"
})
#endif
getDeviceModemDeviceId :: (MonadIO m, IsDeviceModem o) => o -> m T.Text
getDeviceModemDeviceId :: forall (m :: * -> *) o. (MonadIO m, IsDeviceModem o) => o -> m Text
getDeviceModemDeviceId 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
"getDeviceModemDeviceId" (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"
#if defined(ENABLE_OVERLOADING)
data DeviceModemDeviceIdPropertyInfo
instance AttrInfo DeviceModemDeviceIdPropertyInfo where
type AttrAllowedOps DeviceModemDeviceIdPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DeviceModemDeviceIdPropertyInfo = IsDeviceModem
type AttrSetTypeConstraint DeviceModemDeviceIdPropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceModemDeviceIdPropertyInfo = (~) ()
type AttrTransferType DeviceModemDeviceIdPropertyInfo = ()
type AttrGetType DeviceModemDeviceIdPropertyInfo = T.Text
type AttrLabel DeviceModemDeviceIdPropertyInfo = "device-id"
type AttrOrigin DeviceModemDeviceIdPropertyInfo = DeviceModem
attrGet = getDeviceModemDeviceId
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#g:attr:deviceId"
})
#endif
getDeviceModemModemCapabilities :: (MonadIO m, IsDeviceModem o) => o -> m [NM.Flags.DeviceModemCapabilities]
getDeviceModemModemCapabilities :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceModem o) =>
o -> m [DeviceModemCapabilities]
getDeviceModemModemCapabilities o
obj = IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities])
-> IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [DeviceModemCapabilities]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"modem-capabilities"
#if defined(ENABLE_OVERLOADING)
data DeviceModemModemCapabilitiesPropertyInfo
instance AttrInfo DeviceModemModemCapabilitiesPropertyInfo where
type AttrAllowedOps DeviceModemModemCapabilitiesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DeviceModemModemCapabilitiesPropertyInfo = IsDeviceModem
type AttrSetTypeConstraint DeviceModemModemCapabilitiesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceModemModemCapabilitiesPropertyInfo = (~) ()
type AttrTransferType DeviceModemModemCapabilitiesPropertyInfo = ()
type AttrGetType DeviceModemModemCapabilitiesPropertyInfo = [NM.Flags.DeviceModemCapabilities]
type AttrLabel DeviceModemModemCapabilitiesPropertyInfo = "modem-capabilities"
type AttrOrigin DeviceModemModemCapabilitiesPropertyInfo = DeviceModem
attrGet = getDeviceModemModemCapabilities
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.modemCapabilities"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#g:attr:modemCapabilities"
})
#endif
getDeviceModemOperatorCode :: (MonadIO m, IsDeviceModem o) => o -> m T.Text
getDeviceModemOperatorCode :: forall (m :: * -> *) o. (MonadIO m, IsDeviceModem o) => o -> m Text
getDeviceModemOperatorCode 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
"getDeviceModemOperatorCode" (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
"operator-code"
#if defined(ENABLE_OVERLOADING)
data DeviceModemOperatorCodePropertyInfo
instance AttrInfo DeviceModemOperatorCodePropertyInfo where
type AttrAllowedOps DeviceModemOperatorCodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DeviceModemOperatorCodePropertyInfo = IsDeviceModem
type AttrSetTypeConstraint DeviceModemOperatorCodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceModemOperatorCodePropertyInfo = (~) ()
type AttrTransferType DeviceModemOperatorCodePropertyInfo = ()
type AttrGetType DeviceModemOperatorCodePropertyInfo = T.Text
type AttrLabel DeviceModemOperatorCodePropertyInfo = "operator-code"
type AttrOrigin DeviceModemOperatorCodePropertyInfo = DeviceModem
attrGet = getDeviceModemOperatorCode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.operatorCode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#g:attr:operatorCode"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DeviceModem
type instance O.AttributeList DeviceModem = DeviceModemAttributeList
type DeviceModemAttributeList = ('[ '("activeConnection", NM.Device.DeviceActiveConnectionPropertyInfo), '("apn", DeviceModemApnPropertyInfo), '("autoconnect", NM.Device.DeviceAutoconnectPropertyInfo), '("availableConnections", NM.Device.DeviceAvailableConnectionsPropertyInfo), '("capabilities", NM.Device.DeviceCapabilitiesPropertyInfo), '("client", NM.Object.ObjectClientPropertyInfo), '("currentCapabilities", DeviceModemCurrentCapabilitiesPropertyInfo), '("deviceId", DeviceModemDeviceIdPropertyInfo), '("deviceType", NM.Device.DeviceDeviceTypePropertyInfo), '("dhcp4Config", NM.Device.DeviceDhcp4ConfigPropertyInfo), '("dhcp6Config", NM.Device.DeviceDhcp6ConfigPropertyInfo), '("driver", NM.Device.DeviceDriverPropertyInfo), '("driverVersion", NM.Device.DeviceDriverVersionPropertyInfo), '("firmwareMissing", NM.Device.DeviceFirmwareMissingPropertyInfo), '("firmwareVersion", NM.Device.DeviceFirmwareVersionPropertyInfo), '("hwAddress", NM.Device.DeviceHwAddressPropertyInfo), '("interface", NM.Device.DeviceInterfacePropertyInfo), '("interfaceFlags", NM.Device.DeviceInterfaceFlagsPropertyInfo), '("ipInterface", NM.Device.DeviceIpInterfacePropertyInfo), '("ip4Config", NM.Device.DeviceIp4ConfigPropertyInfo), '("ip4Connectivity", NM.Device.DeviceIp4ConnectivityPropertyInfo), '("ip6Config", NM.Device.DeviceIp6ConfigPropertyInfo), '("ip6Connectivity", NM.Device.DeviceIp6ConnectivityPropertyInfo), '("lldpNeighbors", NM.Device.DeviceLldpNeighborsPropertyInfo), '("managed", NM.Device.DeviceManagedPropertyInfo), '("metered", NM.Device.DeviceMeteredPropertyInfo), '("modemCapabilities", DeviceModemModemCapabilitiesPropertyInfo), '("mtu", NM.Device.DeviceMtuPropertyInfo), '("nmPluginMissing", NM.Device.DeviceNmPluginMissingPropertyInfo), '("operatorCode", DeviceModemOperatorCodePropertyInfo), '("path", NM.Device.DevicePathPropertyInfo), '("physicalPortId", NM.Device.DevicePhysicalPortIdPropertyInfo), '("ports", NM.Device.DevicePortsPropertyInfo), '("product", NM.Device.DeviceProductPropertyInfo), '("real", NM.Device.DeviceRealPropertyInfo), '("state", NM.Device.DeviceStatePropertyInfo), '("stateReason", NM.Device.DeviceStateReasonPropertyInfo), '("udi", NM.Device.DeviceUdiPropertyInfo), '("vendor", NM.Device.DeviceVendorPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
deviceModemApn :: AttrLabelProxy "apn"
deviceModemApn = AttrLabelProxy
deviceModemCurrentCapabilities :: AttrLabelProxy "currentCapabilities"
deviceModemCurrentCapabilities = AttrLabelProxy
deviceModemDeviceId :: AttrLabelProxy "deviceId"
deviceModemDeviceId = AttrLabelProxy
deviceModemModemCapabilities :: AttrLabelProxy "modemCapabilities"
deviceModemModemCapabilities = AttrLabelProxy
deviceModemOperatorCode :: AttrLabelProxy "operatorCode"
deviceModemOperatorCode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DeviceModem = DeviceModemSignalList
type DeviceModemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("stateChanged", NM.Device.DeviceStateChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_device_modem_get_apn" nm_device_modem_get_apn ::
Ptr DeviceModem ->
IO CString
deviceModemGetApn ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceModem a) =>
a
-> m T.Text
deviceModemGetApn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceModem a) =>
a -> m Text
deviceModemGetApn a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DeviceModem
self' <- a -> IO (Ptr DeviceModem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DeviceModem -> IO CString
nm_device_modem_get_apn Ptr DeviceModem
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"deviceModemGetApn" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeviceModemGetApnMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeviceModem a) => O.OverloadedMethod DeviceModemGetApnMethodInfo a signature where
overloadedMethod = deviceModemGetApn
instance O.OverloadedMethodInfo DeviceModemGetApnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceModemGetApn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#v:deviceModemGetApn"
})
#endif
foreign import ccall "nm_device_modem_get_current_capabilities" nm_device_modem_get_current_capabilities ::
Ptr DeviceModem ->
IO CUInt
deviceModemGetCurrentCapabilities ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceModem a) =>
a
-> m [NM.Flags.DeviceModemCapabilities]
deviceModemGetCurrentCapabilities :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceModem a) =>
a -> m [DeviceModemCapabilities]
deviceModemGetCurrentCapabilities a
self = IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities])
-> IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a b. (a -> b) -> a -> b
$ do
Ptr DeviceModem
self' <- a -> IO (Ptr DeviceModem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr DeviceModem -> IO CUInt
nm_device_modem_get_current_capabilities Ptr DeviceModem
self'
let result' :: [DeviceModemCapabilities]
result' = CUInt -> [DeviceModemCapabilities]
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
self
[DeviceModemCapabilities] -> IO [DeviceModemCapabilities]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [DeviceModemCapabilities]
result'
#if defined(ENABLE_OVERLOADING)
data DeviceModemGetCurrentCapabilitiesMethodInfo
instance (signature ~ (m [NM.Flags.DeviceModemCapabilities]), MonadIO m, IsDeviceModem a) => O.OverloadedMethod DeviceModemGetCurrentCapabilitiesMethodInfo a signature where
overloadedMethod = deviceModemGetCurrentCapabilities
instance O.OverloadedMethodInfo DeviceModemGetCurrentCapabilitiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceModemGetCurrentCapabilities",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#v:deviceModemGetCurrentCapabilities"
})
#endif
foreign import ccall "nm_device_modem_get_device_id" nm_device_modem_get_device_id ::
Ptr DeviceModem ->
IO CString
deviceModemGetDeviceId ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceModem a) =>
a
-> m T.Text
deviceModemGetDeviceId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceModem a) =>
a -> m Text
deviceModemGetDeviceId a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DeviceModem
self' <- a -> IO (Ptr DeviceModem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DeviceModem -> IO CString
nm_device_modem_get_device_id Ptr DeviceModem
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"deviceModemGetDeviceId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeviceModemGetDeviceIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeviceModem a) => O.OverloadedMethod DeviceModemGetDeviceIdMethodInfo a signature where
overloadedMethod = deviceModemGetDeviceId
instance O.OverloadedMethodInfo DeviceModemGetDeviceIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceModemGetDeviceId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#v:deviceModemGetDeviceId"
})
#endif
foreign import ccall "nm_device_modem_get_modem_capabilities" nm_device_modem_get_modem_capabilities ::
Ptr DeviceModem ->
IO CUInt
deviceModemGetModemCapabilities ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceModem a) =>
a
-> m [NM.Flags.DeviceModemCapabilities]
deviceModemGetModemCapabilities :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceModem a) =>
a -> m [DeviceModemCapabilities]
deviceModemGetModemCapabilities a
self = IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities])
-> IO [DeviceModemCapabilities] -> m [DeviceModemCapabilities]
forall a b. (a -> b) -> a -> b
$ do
Ptr DeviceModem
self' <- a -> IO (Ptr DeviceModem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr DeviceModem -> IO CUInt
nm_device_modem_get_modem_capabilities Ptr DeviceModem
self'
let result' :: [DeviceModemCapabilities]
result' = CUInt -> [DeviceModemCapabilities]
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
self
[DeviceModemCapabilities] -> IO [DeviceModemCapabilities]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [DeviceModemCapabilities]
result'
#if defined(ENABLE_OVERLOADING)
data DeviceModemGetModemCapabilitiesMethodInfo
instance (signature ~ (m [NM.Flags.DeviceModemCapabilities]), MonadIO m, IsDeviceModem a) => O.OverloadedMethod DeviceModemGetModemCapabilitiesMethodInfo a signature where
overloadedMethod = deviceModemGetModemCapabilities
instance O.OverloadedMethodInfo DeviceModemGetModemCapabilitiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceModemGetModemCapabilities",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#v:deviceModemGetModemCapabilities"
})
#endif
foreign import ccall "nm_device_modem_get_operator_code" nm_device_modem_get_operator_code ::
Ptr DeviceModem ->
IO CString
deviceModemGetOperatorCode ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceModem a) =>
a
-> m T.Text
deviceModemGetOperatorCode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceModem a) =>
a -> m Text
deviceModemGetOperatorCode a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DeviceModem
self' <- a -> IO (Ptr DeviceModem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DeviceModem -> IO CString
nm_device_modem_get_operator_code Ptr DeviceModem
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"deviceModemGetOperatorCode" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeviceModemGetOperatorCodeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeviceModem a) => O.OverloadedMethod DeviceModemGetOperatorCodeMethodInfo a signature where
overloadedMethod = deviceModemGetOperatorCode
instance O.OverloadedMethodInfo DeviceModemGetOperatorCodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceModem.deviceModemGetOperatorCode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceModem.html#v:deviceModemGetOperatorCode"
})
#endif