{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.DeviceInfiniband
(
DeviceInfiniband(..) ,
IsDeviceInfiniband ,
toDeviceInfiniband ,
#if defined(ENABLE_OVERLOADING)
ResolveDeviceInfinibandMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DeviceInfinibandGetCarrierMethodInfo ,
#endif
deviceInfinibandGetCarrier ,
#if defined(ENABLE_OVERLOADING)
DeviceInfinibandCarrierPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
deviceInfinibandCarrier ,
#endif
getDeviceInfinibandCarrier ,
) 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.Objects.Device as NM.Device
import {-# SOURCE #-} qualified GI.NM.Objects.Object as NM.Object
#endif
newtype DeviceInfiniband = DeviceInfiniband (SP.ManagedPtr DeviceInfiniband)
deriving (DeviceInfiniband -> DeviceInfiniband -> Bool
(DeviceInfiniband -> DeviceInfiniband -> Bool)
-> (DeviceInfiniband -> DeviceInfiniband -> Bool)
-> Eq DeviceInfiniband
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeviceInfiniband -> DeviceInfiniband -> Bool
== :: DeviceInfiniband -> DeviceInfiniband -> Bool
$c/= :: DeviceInfiniband -> DeviceInfiniband -> Bool
/= :: DeviceInfiniband -> DeviceInfiniband -> Bool
Eq)
instance SP.ManagedPtrNewtype DeviceInfiniband where
toManagedPtr :: DeviceInfiniband -> ManagedPtr DeviceInfiniband
toManagedPtr (DeviceInfiniband ManagedPtr DeviceInfiniband
p) = ManagedPtr DeviceInfiniband
p
foreign import ccall "nm_device_infiniband_get_type"
c_nm_device_infiniband_get_type :: IO B.Types.GType
instance B.Types.TypedObject DeviceInfiniband where
glibType :: IO GType
glibType = IO GType
c_nm_device_infiniband_get_type
instance B.Types.GObject DeviceInfiniband
class (SP.GObject o, O.IsDescendantOf DeviceInfiniband o) => IsDeviceInfiniband o
instance (SP.GObject o, O.IsDescendantOf DeviceInfiniband o) => IsDeviceInfiniband o
instance O.HasParentTypes DeviceInfiniband
type instance O.ParentTypes DeviceInfiniband = '[NM.Device.Device, NM.Object.Object, GObject.Object.Object]
toDeviceInfiniband :: (MIO.MonadIO m, IsDeviceInfiniband o) => o -> m DeviceInfiniband
toDeviceInfiniband :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceInfiniband o) =>
o -> m DeviceInfiniband
toDeviceInfiniband = IO DeviceInfiniband -> m DeviceInfiniband
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DeviceInfiniband -> m DeviceInfiniband)
-> (o -> IO DeviceInfiniband) -> o -> m DeviceInfiniband
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DeviceInfiniband -> DeviceInfiniband)
-> o -> IO DeviceInfiniband
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DeviceInfiniband -> DeviceInfiniband
DeviceInfiniband
instance B.GValue.IsGValue (Maybe DeviceInfiniband) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_device_infiniband_get_type
gvalueSet_ :: Ptr GValue -> Maybe DeviceInfiniband -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DeviceInfiniband
P.Nothing = Ptr GValue -> Ptr DeviceInfiniband -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DeviceInfiniband
forall a. Ptr a
FP.nullPtr :: FP.Ptr DeviceInfiniband)
gvalueSet_ Ptr GValue
gv (P.Just DeviceInfiniband
obj) = DeviceInfiniband -> (Ptr DeviceInfiniband -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DeviceInfiniband
obj (Ptr GValue -> Ptr DeviceInfiniband -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DeviceInfiniband)
gvalueGet_ Ptr GValue
gv = do
Ptr DeviceInfiniband
ptr <- Ptr GValue -> IO (Ptr DeviceInfiniband)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DeviceInfiniband)
if Ptr DeviceInfiniband
ptr Ptr DeviceInfiniband -> Ptr DeviceInfiniband -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DeviceInfiniband
forall a. Ptr a
FP.nullPtr
then DeviceInfiniband -> Maybe DeviceInfiniband
forall a. a -> Maybe a
P.Just (DeviceInfiniband -> Maybe DeviceInfiniband)
-> IO DeviceInfiniband -> IO (Maybe DeviceInfiniband)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DeviceInfiniband -> DeviceInfiniband)
-> Ptr DeviceInfiniband -> IO DeviceInfiniband
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DeviceInfiniband -> DeviceInfiniband
DeviceInfiniband Ptr DeviceInfiniband
ptr
else Maybe DeviceInfiniband -> IO (Maybe DeviceInfiniband)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DeviceInfiniband
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDeviceInfinibandMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDeviceInfinibandMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDeviceInfinibandMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDeviceInfinibandMethod "connectionCompatible" o = NM.Device.DeviceConnectionCompatibleMethodInfo
ResolveDeviceInfinibandMethod "connectionValid" o = NM.Device.DeviceConnectionValidMethodInfo
ResolveDeviceInfinibandMethod "delete" o = NM.Device.DeviceDeleteMethodInfo
ResolveDeviceInfinibandMethod "deleteAsync" o = NM.Device.DeviceDeleteAsyncMethodInfo
ResolveDeviceInfinibandMethod "deleteFinish" o = NM.Device.DeviceDeleteFinishMethodInfo
ResolveDeviceInfinibandMethod "disconnect" o = NM.Device.DeviceDisconnectMethodInfo
ResolveDeviceInfinibandMethod "disconnectAsync" o = NM.Device.DeviceDisconnectAsyncMethodInfo
ResolveDeviceInfinibandMethod "disconnectFinish" o = NM.Device.DeviceDisconnectFinishMethodInfo
ResolveDeviceInfinibandMethod "filterConnections" o = NM.Device.DeviceFilterConnectionsMethodInfo
ResolveDeviceInfinibandMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDeviceInfinibandMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDeviceInfinibandMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDeviceInfinibandMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDeviceInfinibandMethod "isReal" o = NM.Device.DeviceIsRealMethodInfo
ResolveDeviceInfinibandMethod "isSoftware" o = NM.Device.DeviceIsSoftwareMethodInfo
ResolveDeviceInfinibandMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDeviceInfinibandMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDeviceInfinibandMethod "reapply" o = NM.Device.DeviceReapplyMethodInfo
ResolveDeviceInfinibandMethod "reapplyAsync" o = NM.Device.DeviceReapplyAsyncMethodInfo
ResolveDeviceInfinibandMethod "reapplyFinish" o = NM.Device.DeviceReapplyFinishMethodInfo
ResolveDeviceInfinibandMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDeviceInfinibandMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDeviceInfinibandMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDeviceInfinibandMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDeviceInfinibandMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDeviceInfinibandMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDeviceInfinibandMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDeviceInfinibandMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDeviceInfinibandMethod "getActiveConnection" o = NM.Device.DeviceGetActiveConnectionMethodInfo
ResolveDeviceInfinibandMethod "getAppliedConnection" o = NM.Device.DeviceGetAppliedConnectionMethodInfo
ResolveDeviceInfinibandMethod "getAppliedConnectionAsync" o = NM.Device.DeviceGetAppliedConnectionAsyncMethodInfo
ResolveDeviceInfinibandMethod "getAppliedConnectionFinish" o = NM.Device.DeviceGetAppliedConnectionFinishMethodInfo
ResolveDeviceInfinibandMethod "getAutoconnect" o = NM.Device.DeviceGetAutoconnectMethodInfo
ResolveDeviceInfinibandMethod "getAvailableConnections" o = NM.Device.DeviceGetAvailableConnectionsMethodInfo
ResolveDeviceInfinibandMethod "getCapabilities" o = NM.Device.DeviceGetCapabilitiesMethodInfo
ResolveDeviceInfinibandMethod "getCarrier" o = DeviceInfinibandGetCarrierMethodInfo
ResolveDeviceInfinibandMethod "getClient" o = NM.Object.ObjectGetClientMethodInfo
ResolveDeviceInfinibandMethod "getConnectivity" o = NM.Device.DeviceGetConnectivityMethodInfo
ResolveDeviceInfinibandMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDeviceInfinibandMethod "getDescription" o = NM.Device.DeviceGetDescriptionMethodInfo
ResolveDeviceInfinibandMethod "getDeviceType" o = NM.Device.DeviceGetDeviceTypeMethodInfo
ResolveDeviceInfinibandMethod "getDhcp4Config" o = NM.Device.DeviceGetDhcp4ConfigMethodInfo
ResolveDeviceInfinibandMethod "getDhcp6Config" o = NM.Device.DeviceGetDhcp6ConfigMethodInfo
ResolveDeviceInfinibandMethod "getDriver" o = NM.Device.DeviceGetDriverMethodInfo
ResolveDeviceInfinibandMethod "getDriverVersion" o = NM.Device.DeviceGetDriverVersionMethodInfo
ResolveDeviceInfinibandMethod "getFirmwareMissing" o = NM.Device.DeviceGetFirmwareMissingMethodInfo
ResolveDeviceInfinibandMethod "getFirmwareVersion" o = NM.Device.DeviceGetFirmwareVersionMethodInfo
ResolveDeviceInfinibandMethod "getHwAddress" o = NM.Device.DeviceGetHwAddressMethodInfo
ResolveDeviceInfinibandMethod "getIface" o = NM.Device.DeviceGetIfaceMethodInfo
ResolveDeviceInfinibandMethod "getInterfaceFlags" o = NM.Device.DeviceGetInterfaceFlagsMethodInfo
ResolveDeviceInfinibandMethod "getIp4Config" o = NM.Device.DeviceGetIp4ConfigMethodInfo
ResolveDeviceInfinibandMethod "getIp6Config" o = NM.Device.DeviceGetIp6ConfigMethodInfo
ResolveDeviceInfinibandMethod "getIpIface" o = NM.Device.DeviceGetIpIfaceMethodInfo
ResolveDeviceInfinibandMethod "getLldpNeighbors" o = NM.Device.DeviceGetLldpNeighborsMethodInfo
ResolveDeviceInfinibandMethod "getManaged" o = NM.Device.DeviceGetManagedMethodInfo
ResolveDeviceInfinibandMethod "getMetered" o = NM.Device.DeviceGetMeteredMethodInfo
ResolveDeviceInfinibandMethod "getMtu" o = NM.Device.DeviceGetMtuMethodInfo
ResolveDeviceInfinibandMethod "getNmPluginMissing" o = NM.Device.DeviceGetNmPluginMissingMethodInfo
ResolveDeviceInfinibandMethod "getPath" o = NM.Device.DeviceGetPathMethodInfo
ResolveDeviceInfinibandMethod "getPhysicalPortId" o = NM.Device.DeviceGetPhysicalPortIdMethodInfo
ResolveDeviceInfinibandMethod "getPorts" o = NM.Device.DeviceGetPortsMethodInfo
ResolveDeviceInfinibandMethod "getProduct" o = NM.Device.DeviceGetProductMethodInfo
ResolveDeviceInfinibandMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDeviceInfinibandMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDeviceInfinibandMethod "getSettingType" o = NM.Device.DeviceGetSettingTypeMethodInfo
ResolveDeviceInfinibandMethod "getState" o = NM.Device.DeviceGetStateMethodInfo
ResolveDeviceInfinibandMethod "getStateReason" o = NM.Device.DeviceGetStateReasonMethodInfo
ResolveDeviceInfinibandMethod "getTypeDescription" o = NM.Device.DeviceGetTypeDescriptionMethodInfo
ResolveDeviceInfinibandMethod "getUdi" o = NM.Device.DeviceGetUdiMethodInfo
ResolveDeviceInfinibandMethod "getVendor" o = NM.Device.DeviceGetVendorMethodInfo
ResolveDeviceInfinibandMethod "setAutoconnect" o = NM.Device.DeviceSetAutoconnectMethodInfo
ResolveDeviceInfinibandMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDeviceInfinibandMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDeviceInfinibandMethod "setManaged" o = NM.Device.DeviceSetManagedMethodInfo
ResolveDeviceInfinibandMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDeviceInfinibandMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDeviceInfinibandMethod t DeviceInfiniband, O.OverloadedMethod info DeviceInfiniband p) => OL.IsLabel t (DeviceInfiniband -> 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 ~ ResolveDeviceInfinibandMethod t DeviceInfiniband, O.OverloadedMethod info DeviceInfiniband p, R.HasField t DeviceInfiniband p) => R.HasField t DeviceInfiniband p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDeviceInfinibandMethod t DeviceInfiniband, O.OverloadedMethodInfo info DeviceInfiniband) => OL.IsLabel t (O.MethodProxy info DeviceInfiniband) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDeviceInfinibandCarrier :: (MonadIO m, IsDeviceInfiniband o) => o -> m Bool
getDeviceInfinibandCarrier :: forall (m :: * -> *) o.
(MonadIO m, IsDeviceInfiniband o) =>
o -> m Bool
getDeviceInfinibandCarrier 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
"carrier"
#if defined(ENABLE_OVERLOADING)
data DeviceInfinibandCarrierPropertyInfo
instance AttrInfo DeviceInfinibandCarrierPropertyInfo where
type AttrAllowedOps DeviceInfinibandCarrierPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DeviceInfinibandCarrierPropertyInfo = IsDeviceInfiniband
type AttrSetTypeConstraint DeviceInfinibandCarrierPropertyInfo = (~) ()
type AttrTransferTypeConstraint DeviceInfinibandCarrierPropertyInfo = (~) ()
type AttrTransferType DeviceInfinibandCarrierPropertyInfo = ()
type AttrGetType DeviceInfinibandCarrierPropertyInfo = Bool
type AttrLabel DeviceInfinibandCarrierPropertyInfo = "carrier"
type AttrOrigin DeviceInfinibandCarrierPropertyInfo = DeviceInfiniband
attrGet = getDeviceInfinibandCarrier
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceInfiniband.carrier"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceInfiniband.html#g:attr:carrier"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DeviceInfiniband
type instance O.AttributeList DeviceInfiniband = DeviceInfinibandAttributeList
type DeviceInfinibandAttributeList = ('[ '("activeConnection", NM.Device.DeviceActiveConnectionPropertyInfo), '("autoconnect", NM.Device.DeviceAutoconnectPropertyInfo), '("availableConnections", NM.Device.DeviceAvailableConnectionsPropertyInfo), '("capabilities", NM.Device.DeviceCapabilitiesPropertyInfo), '("carrier", DeviceInfinibandCarrierPropertyInfo), '("client", NM.Object.ObjectClientPropertyInfo), '("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), '("mtu", NM.Device.DeviceMtuPropertyInfo), '("nmPluginMissing", NM.Device.DeviceNmPluginMissingPropertyInfo), '("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)
deviceInfinibandCarrier :: AttrLabelProxy "carrier"
deviceInfinibandCarrier = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DeviceInfiniband = DeviceInfinibandSignalList
type DeviceInfinibandSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("stateChanged", NM.Device.DeviceStateChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_device_infiniband_get_carrier" nm_device_infiniband_get_carrier ::
Ptr DeviceInfiniband ->
IO CInt
deviceInfinibandGetCarrier ::
(B.CallStack.HasCallStack, MonadIO m, IsDeviceInfiniband a) =>
a
-> m Bool
deviceInfinibandGetCarrier :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceInfiniband a) =>
a -> m Bool
deviceInfinibandGetCarrier a
device = 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 DeviceInfiniband
device' <- a -> IO (Ptr DeviceInfiniband)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
device
CInt
result <- Ptr DeviceInfiniband -> IO CInt
nm_device_infiniband_get_carrier Ptr DeviceInfiniband
device'
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
device
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DeviceInfinibandGetCarrierMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDeviceInfiniband a) => O.OverloadedMethod DeviceInfinibandGetCarrierMethodInfo a signature where
overloadedMethod = deviceInfinibandGetCarrier
instance O.OverloadedMethodInfo DeviceInfinibandGetCarrierMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.DeviceInfiniband.deviceInfinibandGetCarrier",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-DeviceInfiniband.html#v:deviceInfinibandGetCarrier"
})
#endif