{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.NM.Objects.Client
(
#if defined(ENABLE_OVERLOADING)
ClientCheckpointRollbackFinishMethodInfo,
#endif
Client(..) ,
IsClient ,
toClient ,
#if defined(ENABLE_OVERLOADING)
ResolveClientMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientActivateConnectionAsyncMethodInfo ,
#endif
clientActivateConnectionAsync ,
#if defined(ENABLE_OVERLOADING)
ClientActivateConnectionFinishMethodInfo,
#endif
clientActivateConnectionFinish ,
#if defined(ENABLE_OVERLOADING)
ClientAddAndActivateConnection2MethodInfo,
#endif
clientAddAndActivateConnection2 ,
#if defined(ENABLE_OVERLOADING)
ClientAddAndActivateConnection2FinishMethodInfo,
#endif
clientAddAndActivateConnection2Finish ,
#if defined(ENABLE_OVERLOADING)
ClientAddAndActivateConnectionAsyncMethodInfo,
#endif
clientAddAndActivateConnectionAsync ,
#if defined(ENABLE_OVERLOADING)
ClientAddAndActivateConnectionFinishMethodInfo,
#endif
clientAddAndActivateConnectionFinish ,
#if defined(ENABLE_OVERLOADING)
ClientAddConnection2MethodInfo ,
#endif
clientAddConnection2 ,
#if defined(ENABLE_OVERLOADING)
ClientAddConnection2FinishMethodInfo ,
#endif
clientAddConnection2Finish ,
#if defined(ENABLE_OVERLOADING)
ClientAddConnectionAsyncMethodInfo ,
#endif
clientAddConnectionAsync ,
#if defined(ENABLE_OVERLOADING)
ClientAddConnectionFinishMethodInfo ,
#endif
clientAddConnectionFinish ,
#if defined(ENABLE_OVERLOADING)
ClientCheckConnectivityMethodInfo ,
#endif
clientCheckConnectivity ,
#if defined(ENABLE_OVERLOADING)
ClientCheckConnectivityAsyncMethodInfo ,
#endif
clientCheckConnectivityAsync ,
#if defined(ENABLE_OVERLOADING)
ClientCheckConnectivityFinishMethodInfo ,
#endif
clientCheckConnectivityFinish ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointAdjustRollbackTimeoutMethodInfo,
#endif
clientCheckpointAdjustRollbackTimeout ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointAdjustRollbackTimeoutFinishMethodInfo,
#endif
clientCheckpointAdjustRollbackTimeoutFinish,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointCreateMethodInfo ,
#endif
clientCheckpointCreate ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointCreateFinishMethodInfo ,
#endif
clientCheckpointCreateFinish ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointDestroyMethodInfo ,
#endif
clientCheckpointDestroy ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointDestroyFinishMethodInfo ,
#endif
clientCheckpointDestroyFinish ,
#if defined(ENABLE_OVERLOADING)
ClientCheckpointRollbackMethodInfo ,
#endif
clientCheckpointRollback ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckGetAvailableMethodInfo,
#endif
clientConnectivityCheckGetAvailable ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckGetEnabledMethodInfo,
#endif
clientConnectivityCheckGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckGetUriMethodInfo ,
#endif
clientConnectivityCheckGetUri ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckSetEnabledMethodInfo,
#endif
clientConnectivityCheckSetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientDbusCallMethodInfo ,
#endif
clientDbusCall ,
#if defined(ENABLE_OVERLOADING)
ClientDbusCallFinishMethodInfo ,
#endif
clientDbusCallFinish ,
#if defined(ENABLE_OVERLOADING)
ClientDbusSetPropertyMethodInfo ,
#endif
clientDbusSetProperty ,
#if defined(ENABLE_OVERLOADING)
ClientDbusSetPropertyFinishMethodInfo ,
#endif
clientDbusSetPropertyFinish ,
#if defined(ENABLE_OVERLOADING)
ClientDeactivateConnectionMethodInfo ,
#endif
clientDeactivateConnection ,
#if defined(ENABLE_OVERLOADING)
ClientDeactivateConnectionAsyncMethodInfo,
#endif
clientDeactivateConnectionAsync ,
#if defined(ENABLE_OVERLOADING)
ClientDeactivateConnectionFinishMethodInfo,
#endif
clientDeactivateConnectionFinish ,
#if defined(ENABLE_OVERLOADING)
ClientGetActivatingConnectionMethodInfo ,
#endif
clientGetActivatingConnection ,
#if defined(ENABLE_OVERLOADING)
ClientGetActiveConnectionsMethodInfo ,
#endif
clientGetActiveConnections ,
#if defined(ENABLE_OVERLOADING)
ClientGetAllDevicesMethodInfo ,
#endif
clientGetAllDevices ,
#if defined(ENABLE_OVERLOADING)
ClientGetCapabilitiesMethodInfo ,
#endif
clientGetCapabilities ,
#if defined(ENABLE_OVERLOADING)
ClientGetCheckpointsMethodInfo ,
#endif
clientGetCheckpoints ,
#if defined(ENABLE_OVERLOADING)
ClientGetConnectionByIdMethodInfo ,
#endif
clientGetConnectionById ,
#if defined(ENABLE_OVERLOADING)
ClientGetConnectionByPathMethodInfo ,
#endif
clientGetConnectionByPath ,
#if defined(ENABLE_OVERLOADING)
ClientGetConnectionByUuidMethodInfo ,
#endif
clientGetConnectionByUuid ,
#if defined(ENABLE_OVERLOADING)
ClientGetConnectionsMethodInfo ,
#endif
clientGetConnections ,
#if defined(ENABLE_OVERLOADING)
ClientGetConnectivityMethodInfo ,
#endif
clientGetConnectivity ,
#if defined(ENABLE_OVERLOADING)
ClientGetContextBusyWatcherMethodInfo ,
#endif
clientGetContextBusyWatcher ,
#if defined(ENABLE_OVERLOADING)
ClientGetDbusConnectionMethodInfo ,
#endif
clientGetDbusConnection ,
#if defined(ENABLE_OVERLOADING)
ClientGetDbusNameOwnerMethodInfo ,
#endif
clientGetDbusNameOwner ,
#if defined(ENABLE_OVERLOADING)
ClientGetDeviceByIfaceMethodInfo ,
#endif
clientGetDeviceByIface ,
#if defined(ENABLE_OVERLOADING)
ClientGetDeviceByPathMethodInfo ,
#endif
clientGetDeviceByPath ,
#if defined(ENABLE_OVERLOADING)
ClientGetDevicesMethodInfo ,
#endif
clientGetDevices ,
#if defined(ENABLE_OVERLOADING)
ClientGetDnsConfigurationMethodInfo ,
#endif
clientGetDnsConfiguration ,
#if defined(ENABLE_OVERLOADING)
ClientGetDnsModeMethodInfo ,
#endif
clientGetDnsMode ,
#if defined(ENABLE_OVERLOADING)
ClientGetDnsRcManagerMethodInfo ,
#endif
clientGetDnsRcManager ,
#if defined(ENABLE_OVERLOADING)
ClientGetInstanceFlagsMethodInfo ,
#endif
clientGetInstanceFlags ,
#if defined(ENABLE_OVERLOADING)
ClientGetLoggingMethodInfo ,
#endif
clientGetLogging ,
#if defined(ENABLE_OVERLOADING)
ClientGetMainContextMethodInfo ,
#endif
clientGetMainContext ,
#if defined(ENABLE_OVERLOADING)
ClientGetMeteredMethodInfo ,
#endif
clientGetMetered ,
#if defined(ENABLE_OVERLOADING)
ClientGetNmRunningMethodInfo ,
#endif
clientGetNmRunning ,
#if defined(ENABLE_OVERLOADING)
ClientGetObjectByPathMethodInfo ,
#endif
clientGetObjectByPath ,
#if defined(ENABLE_OVERLOADING)
ClientGetPermissionResultMethodInfo ,
#endif
clientGetPermissionResult ,
#if defined(ENABLE_OVERLOADING)
ClientGetPermissionsStateMethodInfo ,
#endif
clientGetPermissionsState ,
#if defined(ENABLE_OVERLOADING)
ClientGetPrimaryConnectionMethodInfo ,
#endif
clientGetPrimaryConnection ,
#if defined(ENABLE_OVERLOADING)
ClientGetRadioFlagsMethodInfo ,
#endif
clientGetRadioFlags ,
#if defined(ENABLE_OVERLOADING)
ClientGetStartupMethodInfo ,
#endif
clientGetStartup ,
#if defined(ENABLE_OVERLOADING)
ClientGetStateMethodInfo ,
#endif
clientGetState ,
#if defined(ENABLE_OVERLOADING)
ClientGetVersionMethodInfo ,
#endif
clientGetVersion ,
#if defined(ENABLE_OVERLOADING)
ClientGetVersionInfoMethodInfo ,
#endif
clientGetVersionInfo ,
#if defined(ENABLE_OVERLOADING)
ClientLoadConnectionsMethodInfo ,
#endif
clientLoadConnections ,
#if defined(ENABLE_OVERLOADING)
ClientLoadConnectionsAsyncMethodInfo ,
#endif
clientLoadConnectionsAsync ,
#if defined(ENABLE_OVERLOADING)
ClientLoadConnectionsFinishMethodInfo ,
#endif
clientLoadConnectionsFinish ,
#if defined(ENABLE_OVERLOADING)
ClientNetworkingGetEnabledMethodInfo ,
#endif
clientNetworkingGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientNetworkingSetEnabledMethodInfo ,
#endif
clientNetworkingSetEnabled ,
clientNew ,
clientNewAsync ,
clientNewFinish ,
#if defined(ENABLE_OVERLOADING)
ClientReloadMethodInfo ,
#endif
clientReload ,
#if defined(ENABLE_OVERLOADING)
ClientReloadConnectionsMethodInfo ,
#endif
clientReloadConnections ,
#if defined(ENABLE_OVERLOADING)
ClientReloadConnectionsAsyncMethodInfo ,
#endif
clientReloadConnectionsAsync ,
#if defined(ENABLE_OVERLOADING)
ClientReloadConnectionsFinishMethodInfo ,
#endif
clientReloadConnectionsFinish ,
#if defined(ENABLE_OVERLOADING)
ClientReloadFinishMethodInfo ,
#endif
clientReloadFinish ,
#if defined(ENABLE_OVERLOADING)
ClientSaveHostnameMethodInfo ,
#endif
clientSaveHostname ,
#if defined(ENABLE_OVERLOADING)
ClientSaveHostnameAsyncMethodInfo ,
#endif
clientSaveHostnameAsync ,
#if defined(ENABLE_OVERLOADING)
ClientSaveHostnameFinishMethodInfo ,
#endif
clientSaveHostnameFinish ,
#if defined(ENABLE_OVERLOADING)
ClientSetLoggingMethodInfo ,
#endif
clientSetLogging ,
#if defined(ENABLE_OVERLOADING)
ClientWaitShutdownMethodInfo ,
#endif
clientWaitShutdown ,
clientWaitShutdownFinish ,
#if defined(ENABLE_OVERLOADING)
ClientWimaxGetEnabledMethodInfo ,
#endif
clientWimaxGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWimaxHardwareGetEnabledMethodInfo ,
#endif
clientWimaxHardwareGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWimaxSetEnabledMethodInfo ,
#endif
clientWimaxSetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWirelessGetEnabledMethodInfo ,
#endif
clientWirelessGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWirelessHardwareGetEnabledMethodInfo,
#endif
clientWirelessHardwareGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWirelessSetEnabledMethodInfo ,
#endif
clientWirelessSetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWwanGetEnabledMethodInfo ,
#endif
clientWwanGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWwanHardwareGetEnabledMethodInfo ,
#endif
clientWwanHardwareGetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWwanSetEnabledMethodInfo ,
#endif
clientWwanSetEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientActivatingConnectionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientActivatingConnection ,
#endif
getClientActivatingConnection ,
#if defined(ENABLE_OVERLOADING)
ClientActiveConnectionsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientActiveConnections ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientAllDevicesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientAllDevices ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientCanModifyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientCanModify ,
#endif
getClientCanModify ,
#if defined(ENABLE_OVERLOADING)
ClientCapabilitiesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientCapabilities ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientCheckpointsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientCheckpoints ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientConnectionsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientConnections ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientConnectivityPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientConnectivity ,
#endif
getClientConnectivity ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckAvailablePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
clientConnectivityCheckAvailable ,
#endif
getClientConnectivityCheckAvailable ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckEnabledPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
clientConnectivityCheckEnabled ,
#endif
constructClientConnectivityCheckEnabled ,
getClientConnectivityCheckEnabled ,
setClientConnectivityCheckEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientConnectivityCheckUriPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientConnectivityCheckUri ,
#endif
getClientConnectivityCheckUri ,
#if defined(ENABLE_OVERLOADING)
ClientDbusConnectionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDbusConnection ,
#endif
constructClientDbusConnection ,
getClientDbusConnection ,
#if defined(ENABLE_OVERLOADING)
ClientDbusNameOwnerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDbusNameOwner ,
#endif
getClientDbusNameOwner ,
#if defined(ENABLE_OVERLOADING)
ClientDevicesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDevices ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientDnsConfigurationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDnsConfiguration ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientDnsModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDnsMode ,
#endif
getClientDnsMode ,
#if defined(ENABLE_OVERLOADING)
ClientDnsRcManagerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientDnsRcManager ,
#endif
getClientDnsRcManager ,
#if defined(ENABLE_OVERLOADING)
ClientHostnamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientHostname ,
#endif
getClientHostname ,
#if defined(ENABLE_OVERLOADING)
ClientInstanceFlagsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientInstanceFlags ,
#endif
constructClientInstanceFlags ,
getClientInstanceFlags ,
setClientInstanceFlags ,
#if defined(ENABLE_OVERLOADING)
ClientMeteredPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientMetered ,
#endif
getClientMetered ,
#if defined(ENABLE_OVERLOADING)
ClientNetworkingEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientNetworkingEnabled ,
#endif
constructClientNetworkingEnabled ,
getClientNetworkingEnabled ,
setClientNetworkingEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientNmRunningPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientNmRunning ,
#endif
getClientNmRunning ,
#if defined(ENABLE_OVERLOADING)
ClientPermissionsStatePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientPermissionsState ,
#endif
getClientPermissionsState ,
#if defined(ENABLE_OVERLOADING)
ClientPrimaryConnectionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientPrimaryConnection ,
#endif
getClientPrimaryConnection ,
#if defined(ENABLE_OVERLOADING)
ClientRadioFlagsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientRadioFlags ,
#endif
getClientRadioFlags ,
#if defined(ENABLE_OVERLOADING)
ClientStartupPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientStartup ,
#endif
getClientStartup ,
#if defined(ENABLE_OVERLOADING)
ClientStatePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientState ,
#endif
getClientState ,
#if defined(ENABLE_OVERLOADING)
ClientVersionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientVersion ,
#endif
getClientVersion ,
#if defined(ENABLE_OVERLOADING)
ClientVersionInfoPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientVersionInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
ClientWimaxEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientWimaxEnabled ,
#endif
constructClientWimaxEnabled ,
getClientWimaxEnabled ,
setClientWimaxEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWimaxHardwareEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientWimaxHardwareEnabled ,
#endif
getClientWimaxHardwareEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWirelessEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientWirelessEnabled ,
#endif
constructClientWirelessEnabled ,
getClientWirelessEnabled ,
setClientWirelessEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWirelessHardwareEnabledPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
clientWirelessHardwareEnabled ,
#endif
getClientWirelessHardwareEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWwanEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientWwanEnabled ,
#endif
constructClientWwanEnabled ,
getClientWwanEnabled ,
setClientWwanEnabled ,
#if defined(ENABLE_OVERLOADING)
ClientWwanHardwareEnabledPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
clientWwanHardwareEnabled ,
#endif
getClientWwanHardwareEnabled ,
ClientActiveConnectionAddedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientActiveConnectionAddedSignalInfo ,
#endif
afterClientActiveConnectionAdded ,
onClientActiveConnectionAdded ,
ClientActiveConnectionRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientActiveConnectionRemovedSignalInfo ,
#endif
afterClientActiveConnectionRemoved ,
onClientActiveConnectionRemoved ,
ClientAnyDeviceAddedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientAnyDeviceAddedSignalInfo ,
#endif
afterClientAnyDeviceAdded ,
onClientAnyDeviceAdded ,
ClientAnyDeviceRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientAnyDeviceRemovedSignalInfo ,
#endif
afterClientAnyDeviceRemoved ,
onClientAnyDeviceRemoved ,
ClientConnectionAddedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientConnectionAddedSignalInfo ,
#endif
afterClientConnectionAdded ,
onClientConnectionAdded ,
ClientConnectionRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientConnectionRemovedSignalInfo ,
#endif
afterClientConnectionRemoved ,
onClientConnectionRemoved ,
ClientDeviceAddedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientDeviceAddedSignalInfo ,
#endif
afterClientDeviceAdded ,
onClientDeviceAdded ,
ClientDeviceRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientDeviceRemovedSignalInfo ,
#endif
afterClientDeviceRemoved ,
onClientDeviceRemoved ,
ClientPermissionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ClientPermissionChangedSignalInfo ,
#endif
afterClientPermissionChanged ,
onClientPermissionChanged ,
) 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.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.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 {-# 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.Device as NM.Device
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.Structs.DnsEntry as NM.DnsEntry
#endif
newtype Client = Client (SP.ManagedPtr Client)
deriving (Client -> Client -> Bool
(Client -> Client -> Bool)
-> (Client -> Client -> Bool) -> Eq Client
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Client -> Client -> Bool
== :: Client -> Client -> Bool
$c/= :: Client -> Client -> Bool
/= :: Client -> Client -> Bool
Eq)
instance SP.ManagedPtrNewtype Client where
toManagedPtr :: Client -> ManagedPtr Client
toManagedPtr (Client ManagedPtr Client
p) = ManagedPtr Client
p
foreign import ccall "nm_client_get_type"
c_nm_client_get_type :: IO B.Types.GType
instance B.Types.TypedObject Client where
glibType :: IO GType
glibType = IO GType
c_nm_client_get_type
instance B.Types.GObject Client
class (SP.GObject o, O.IsDescendantOf Client o) => IsClient o
instance (SP.GObject o, O.IsDescendantOf Client o) => IsClient o
instance O.HasParentTypes Client
type instance O.ParentTypes Client = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.Initable.Initable]
toClient :: (MIO.MonadIO m, IsClient o) => o -> m Client
toClient :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Client
toClient = IO Client -> m Client
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Client -> m Client) -> (o -> IO Client) -> o -> m Client
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Client -> Client) -> o -> IO Client
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Client -> Client
Client
instance B.GValue.IsGValue (Maybe Client) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_nm_client_get_type
gvalueSet_ :: Ptr GValue -> Maybe Client -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Client
P.Nothing = Ptr GValue -> Ptr Client -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Client
forall a. Ptr a
FP.nullPtr :: FP.Ptr Client)
gvalueSet_ Ptr GValue
gv (P.Just Client
obj) = Client -> (Ptr Client -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Client
obj (Ptr GValue -> Ptr Client -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Client)
gvalueGet_ Ptr GValue
gv = do
Ptr Client
ptr <- Ptr GValue -> IO (Ptr Client)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Client)
if Ptr Client
ptr Ptr Client -> Ptr Client -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Client
forall a. Ptr a
FP.nullPtr
then Client -> Maybe Client
forall a. a -> Maybe a
P.Just (Client -> Maybe Client) -> IO Client -> IO (Maybe Client)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Client -> Client) -> Ptr Client -> IO Client
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Client -> Client
Client Ptr Client
ptr
else Maybe Client -> IO (Maybe Client)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Client
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveClientMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveClientMethod "activateConnectionAsync" o = ClientActivateConnectionAsyncMethodInfo
ResolveClientMethod "activateConnectionFinish" o = ClientActivateConnectionFinishMethodInfo
ResolveClientMethod "addAndActivateConnection2" o = ClientAddAndActivateConnection2MethodInfo
ResolveClientMethod "addAndActivateConnection2Finish" o = ClientAddAndActivateConnection2FinishMethodInfo
ResolveClientMethod "addAndActivateConnectionAsync" o = ClientAddAndActivateConnectionAsyncMethodInfo
ResolveClientMethod "addAndActivateConnectionFinish" o = ClientAddAndActivateConnectionFinishMethodInfo
ResolveClientMethod "addConnection2" o = ClientAddConnection2MethodInfo
ResolveClientMethod "addConnection2Finish" o = ClientAddConnection2FinishMethodInfo
ResolveClientMethod "addConnectionAsync" o = ClientAddConnectionAsyncMethodInfo
ResolveClientMethod "addConnectionFinish" o = ClientAddConnectionFinishMethodInfo
ResolveClientMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveClientMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveClientMethod "checkConnectivity" o = ClientCheckConnectivityMethodInfo
ResolveClientMethod "checkConnectivityAsync" o = ClientCheckConnectivityAsyncMethodInfo
ResolveClientMethod "checkConnectivityFinish" o = ClientCheckConnectivityFinishMethodInfo
ResolveClientMethod "checkpointAdjustRollbackTimeout" o = ClientCheckpointAdjustRollbackTimeoutMethodInfo
ResolveClientMethod "checkpointAdjustRollbackTimeoutFinish" o = ClientCheckpointAdjustRollbackTimeoutFinishMethodInfo
ResolveClientMethod "checkpointCreate" o = ClientCheckpointCreateMethodInfo
ResolveClientMethod "checkpointCreateFinish" o = ClientCheckpointCreateFinishMethodInfo
ResolveClientMethod "checkpointDestroy" o = ClientCheckpointDestroyMethodInfo
ResolveClientMethod "checkpointDestroyFinish" o = ClientCheckpointDestroyFinishMethodInfo
ResolveClientMethod "checkpointRollback" o = ClientCheckpointRollbackMethodInfo
ResolveClientMethod "checkpointRollbackFinish" o = ClientCheckpointRollbackFinishMethodInfo
ResolveClientMethod "connectivityCheckGetAvailable" o = ClientConnectivityCheckGetAvailableMethodInfo
ResolveClientMethod "connectivityCheckGetEnabled" o = ClientConnectivityCheckGetEnabledMethodInfo
ResolveClientMethod "connectivityCheckGetUri" o = ClientConnectivityCheckGetUriMethodInfo
ResolveClientMethod "connectivityCheckSetEnabled" o = ClientConnectivityCheckSetEnabledMethodInfo
ResolveClientMethod "dbusCall" o = ClientDbusCallMethodInfo
ResolveClientMethod "dbusCallFinish" o = ClientDbusCallFinishMethodInfo
ResolveClientMethod "dbusSetProperty" o = ClientDbusSetPropertyMethodInfo
ResolveClientMethod "dbusSetPropertyFinish" o = ClientDbusSetPropertyFinishMethodInfo
ResolveClientMethod "deactivateConnection" o = ClientDeactivateConnectionMethodInfo
ResolveClientMethod "deactivateConnectionAsync" o = ClientDeactivateConnectionAsyncMethodInfo
ResolveClientMethod "deactivateConnectionFinish" o = ClientDeactivateConnectionFinishMethodInfo
ResolveClientMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveClientMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveClientMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveClientMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveClientMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo
ResolveClientMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo
ResolveClientMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveClientMethod "loadConnections" o = ClientLoadConnectionsMethodInfo
ResolveClientMethod "loadConnectionsAsync" o = ClientLoadConnectionsAsyncMethodInfo
ResolveClientMethod "loadConnectionsFinish" o = ClientLoadConnectionsFinishMethodInfo
ResolveClientMethod "networkingGetEnabled" o = ClientNetworkingGetEnabledMethodInfo
ResolveClientMethod "networkingSetEnabled" o = ClientNetworkingSetEnabledMethodInfo
ResolveClientMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveClientMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveClientMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveClientMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveClientMethod "reload" o = ClientReloadMethodInfo
ResolveClientMethod "reloadConnections" o = ClientReloadConnectionsMethodInfo
ResolveClientMethod "reloadConnectionsAsync" o = ClientReloadConnectionsAsyncMethodInfo
ResolveClientMethod "reloadConnectionsFinish" o = ClientReloadConnectionsFinishMethodInfo
ResolveClientMethod "reloadFinish" o = ClientReloadFinishMethodInfo
ResolveClientMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveClientMethod "saveHostname" o = ClientSaveHostnameMethodInfo
ResolveClientMethod "saveHostnameAsync" o = ClientSaveHostnameAsyncMethodInfo
ResolveClientMethod "saveHostnameFinish" o = ClientSaveHostnameFinishMethodInfo
ResolveClientMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveClientMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveClientMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveClientMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveClientMethod "waitShutdown" o = ClientWaitShutdownMethodInfo
ResolveClientMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveClientMethod "wimaxGetEnabled" o = ClientWimaxGetEnabledMethodInfo
ResolveClientMethod "wimaxHardwareGetEnabled" o = ClientWimaxHardwareGetEnabledMethodInfo
ResolveClientMethod "wimaxSetEnabled" o = ClientWimaxSetEnabledMethodInfo
ResolveClientMethod "wirelessGetEnabled" o = ClientWirelessGetEnabledMethodInfo
ResolveClientMethod "wirelessHardwareGetEnabled" o = ClientWirelessHardwareGetEnabledMethodInfo
ResolveClientMethod "wirelessSetEnabled" o = ClientWirelessSetEnabledMethodInfo
ResolveClientMethod "wwanGetEnabled" o = ClientWwanGetEnabledMethodInfo
ResolveClientMethod "wwanHardwareGetEnabled" o = ClientWwanHardwareGetEnabledMethodInfo
ResolveClientMethod "wwanSetEnabled" o = ClientWwanSetEnabledMethodInfo
ResolveClientMethod "getActivatingConnection" o = ClientGetActivatingConnectionMethodInfo
ResolveClientMethod "getActiveConnections" o = ClientGetActiveConnectionsMethodInfo
ResolveClientMethod "getAllDevices" o = ClientGetAllDevicesMethodInfo
ResolveClientMethod "getCapabilities" o = ClientGetCapabilitiesMethodInfo
ResolveClientMethod "getCheckpoints" o = ClientGetCheckpointsMethodInfo
ResolveClientMethod "getConnectionById" o = ClientGetConnectionByIdMethodInfo
ResolveClientMethod "getConnectionByPath" o = ClientGetConnectionByPathMethodInfo
ResolveClientMethod "getConnectionByUuid" o = ClientGetConnectionByUuidMethodInfo
ResolveClientMethod "getConnections" o = ClientGetConnectionsMethodInfo
ResolveClientMethod "getConnectivity" o = ClientGetConnectivityMethodInfo
ResolveClientMethod "getContextBusyWatcher" o = ClientGetContextBusyWatcherMethodInfo
ResolveClientMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveClientMethod "getDbusConnection" o = ClientGetDbusConnectionMethodInfo
ResolveClientMethod "getDbusNameOwner" o = ClientGetDbusNameOwnerMethodInfo
ResolveClientMethod "getDeviceByIface" o = ClientGetDeviceByIfaceMethodInfo
ResolveClientMethod "getDeviceByPath" o = ClientGetDeviceByPathMethodInfo
ResolveClientMethod "getDevices" o = ClientGetDevicesMethodInfo
ResolveClientMethod "getDnsConfiguration" o = ClientGetDnsConfigurationMethodInfo
ResolveClientMethod "getDnsMode" o = ClientGetDnsModeMethodInfo
ResolveClientMethod "getDnsRcManager" o = ClientGetDnsRcManagerMethodInfo
ResolveClientMethod "getInstanceFlags" o = ClientGetInstanceFlagsMethodInfo
ResolveClientMethod "getLogging" o = ClientGetLoggingMethodInfo
ResolveClientMethod "getMainContext" o = ClientGetMainContextMethodInfo
ResolveClientMethod "getMetered" o = ClientGetMeteredMethodInfo
ResolveClientMethod "getNmRunning" o = ClientGetNmRunningMethodInfo
ResolveClientMethod "getObjectByPath" o = ClientGetObjectByPathMethodInfo
ResolveClientMethod "getPermissionResult" o = ClientGetPermissionResultMethodInfo
ResolveClientMethod "getPermissionsState" o = ClientGetPermissionsStateMethodInfo
ResolveClientMethod "getPrimaryConnection" o = ClientGetPrimaryConnectionMethodInfo
ResolveClientMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveClientMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveClientMethod "getRadioFlags" o = ClientGetRadioFlagsMethodInfo
ResolveClientMethod "getStartup" o = ClientGetStartupMethodInfo
ResolveClientMethod "getState" o = ClientGetStateMethodInfo
ResolveClientMethod "getVersion" o = ClientGetVersionMethodInfo
ResolveClientMethod "getVersionInfo" o = ClientGetVersionInfoMethodInfo
ResolveClientMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveClientMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveClientMethod "setLogging" o = ClientSetLoggingMethodInfo
ResolveClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveClientMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveClientMethod t Client, O.OverloadedMethod info Client p) => OL.IsLabel t (Client -> 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 ~ ResolveClientMethod t Client, O.OverloadedMethod info Client p, R.HasField t Client p) => R.HasField t Client p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveClientMethod t Client, O.OverloadedMethodInfo info Client) => OL.IsLabel t (O.MethodProxy info Client) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ClientActiveConnectionAddedCallback =
NM.ActiveConnection.ActiveConnection
-> IO ()
type C_ClientActiveConnectionAddedCallback =
Ptr Client ->
Ptr NM.ActiveConnection.ActiveConnection ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientActiveConnectionAddedCallback :: C_ClientActiveConnectionAddedCallback -> IO (FunPtr C_ClientActiveConnectionAddedCallback)
wrap_ClientActiveConnectionAddedCallback ::
GObject a => (a -> ClientActiveConnectionAddedCallback) ->
C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionAddedCallback :: forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionAddedCallback a -> ClientActiveConnectionAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr ActiveConnection
activeConnection Ptr ()
_ = do
ActiveConnection
activeConnection' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
activeConnection
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientActiveConnectionAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) ActiveConnection
activeConnection'
onClientActiveConnectionAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientActiveConnectionAddedCallback) -> m SignalHandlerId
onClientActiveConnectionAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientActiveConnectionAddedCallback)
-> m SignalHandlerId
onClientActiveConnectionAdded a
obj (?self::a) => ClientActiveConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientActiveConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientActiveConnectionAddedCallback
ClientActiveConnectionAddedCallback
cb
let wrapped' :: C_ClientActiveConnectionAddedCallback
wrapped' = (a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionAddedCallback a -> ClientActiveConnectionAddedCallback
wrapped
FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' <- C_ClientActiveConnectionAddedCallback
-> IO (FunPtr C_ClientActiveConnectionAddedCallback)
mk_ClientActiveConnectionAddedCallback C_ClientActiveConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientActiveConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"active-connection-added" FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientActiveConnectionAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientActiveConnectionAddedCallback) -> m SignalHandlerId
afterClientActiveConnectionAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientActiveConnectionAddedCallback)
-> m SignalHandlerId
afterClientActiveConnectionAdded a
obj (?self::a) => ClientActiveConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientActiveConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientActiveConnectionAddedCallback
ClientActiveConnectionAddedCallback
cb
let wrapped' :: C_ClientActiveConnectionAddedCallback
wrapped' = (a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionAddedCallback a -> ClientActiveConnectionAddedCallback
wrapped
FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' <- C_ClientActiveConnectionAddedCallback
-> IO (FunPtr C_ClientActiveConnectionAddedCallback)
mk_ClientActiveConnectionAddedCallback C_ClientActiveConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientActiveConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"active-connection-added" FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientActiveConnectionAddedSignalInfo
instance SignalInfo ClientActiveConnectionAddedSignalInfo where
type HaskellCallbackType ClientActiveConnectionAddedSignalInfo = ClientActiveConnectionAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientActiveConnectionAddedCallback cb
cb'' <- mk_ClientActiveConnectionAddedCallback cb'
connectSignalFunPtr obj "active-connection-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::active-connection-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:activeConnectionAdded"})
#endif
type ClientActiveConnectionRemovedCallback =
NM.ActiveConnection.ActiveConnection
-> IO ()
type C_ClientActiveConnectionRemovedCallback =
Ptr Client ->
Ptr NM.ActiveConnection.ActiveConnection ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientActiveConnectionRemovedCallback :: C_ClientActiveConnectionRemovedCallback -> IO (FunPtr C_ClientActiveConnectionRemovedCallback)
wrap_ClientActiveConnectionRemovedCallback ::
GObject a => (a -> ClientActiveConnectionRemovedCallback) ->
C_ClientActiveConnectionRemovedCallback
wrap_ClientActiveConnectionRemovedCallback :: forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionRemovedCallback a -> ClientActiveConnectionAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr ActiveConnection
activeConnection Ptr ()
_ = do
ActiveConnection
activeConnection' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
activeConnection
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientActiveConnectionAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) ActiveConnection
activeConnection'
onClientActiveConnectionRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientActiveConnectionRemovedCallback) -> m SignalHandlerId
onClientActiveConnectionRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientActiveConnectionAddedCallback)
-> m SignalHandlerId
onClientActiveConnectionRemoved a
obj (?self::a) => ClientActiveConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientActiveConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientActiveConnectionAddedCallback
ClientActiveConnectionAddedCallback
cb
let wrapped' :: C_ClientActiveConnectionAddedCallback
wrapped' = (a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionRemovedCallback a -> ClientActiveConnectionAddedCallback
wrapped
FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' <- C_ClientActiveConnectionAddedCallback
-> IO (FunPtr C_ClientActiveConnectionAddedCallback)
mk_ClientActiveConnectionRemovedCallback C_ClientActiveConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientActiveConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"active-connection-removed" FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientActiveConnectionRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientActiveConnectionRemovedCallback) -> m SignalHandlerId
afterClientActiveConnectionRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientActiveConnectionAddedCallback)
-> m SignalHandlerId
afterClientActiveConnectionRemoved a
obj (?self::a) => ClientActiveConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientActiveConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientActiveConnectionAddedCallback
ClientActiveConnectionAddedCallback
cb
let wrapped' :: C_ClientActiveConnectionAddedCallback
wrapped' = (a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientActiveConnectionAddedCallback)
-> C_ClientActiveConnectionAddedCallback
wrap_ClientActiveConnectionRemovedCallback a -> ClientActiveConnectionAddedCallback
wrapped
FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' <- C_ClientActiveConnectionAddedCallback
-> IO (FunPtr C_ClientActiveConnectionAddedCallback)
mk_ClientActiveConnectionRemovedCallback C_ClientActiveConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientActiveConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"active-connection-removed" FunPtr C_ClientActiveConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientActiveConnectionRemovedSignalInfo
instance SignalInfo ClientActiveConnectionRemovedSignalInfo where
type HaskellCallbackType ClientActiveConnectionRemovedSignalInfo = ClientActiveConnectionRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientActiveConnectionRemovedCallback cb
cb'' <- mk_ClientActiveConnectionRemovedCallback cb'
connectSignalFunPtr obj "active-connection-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::active-connection-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:activeConnectionRemoved"})
#endif
type ClientAnyDeviceAddedCallback =
NM.Device.Device
-> IO ()
type C_ClientAnyDeviceAddedCallback =
Ptr Client ->
Ptr NM.Device.Device ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientAnyDeviceAddedCallback :: C_ClientAnyDeviceAddedCallback -> IO (FunPtr C_ClientAnyDeviceAddedCallback)
wrap_ClientAnyDeviceAddedCallback ::
GObject a => (a -> ClientAnyDeviceAddedCallback) ->
C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceAddedCallback :: forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr Device
device Ptr ()
_ = do
Device
device' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
device
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientAnyDeviceAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) Device
device'
onClientAnyDeviceAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientAnyDeviceAddedCallback) -> m SignalHandlerId
onClientAnyDeviceAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
onClientAnyDeviceAdded a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientAnyDeviceAddedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"any-device-added" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientAnyDeviceAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientAnyDeviceAddedCallback) -> m SignalHandlerId
afterClientAnyDeviceAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
afterClientAnyDeviceAdded a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientAnyDeviceAddedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"any-device-added" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientAnyDeviceAddedSignalInfo
instance SignalInfo ClientAnyDeviceAddedSignalInfo where
type HaskellCallbackType ClientAnyDeviceAddedSignalInfo = ClientAnyDeviceAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientAnyDeviceAddedCallback cb
cb'' <- mk_ClientAnyDeviceAddedCallback cb'
connectSignalFunPtr obj "any-device-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::any-device-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:anyDeviceAdded"})
#endif
type ClientAnyDeviceRemovedCallback =
NM.Device.Device
-> IO ()
type C_ClientAnyDeviceRemovedCallback =
Ptr Client ->
Ptr NM.Device.Device ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientAnyDeviceRemovedCallback :: C_ClientAnyDeviceRemovedCallback -> IO (FunPtr C_ClientAnyDeviceRemovedCallback)
wrap_ClientAnyDeviceRemovedCallback ::
GObject a => (a -> ClientAnyDeviceRemovedCallback) ->
C_ClientAnyDeviceRemovedCallback
wrap_ClientAnyDeviceRemovedCallback :: forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr Device
device Ptr ()
_ = do
Device
device' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
device
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientAnyDeviceAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) Device
device'
onClientAnyDeviceRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientAnyDeviceRemovedCallback) -> m SignalHandlerId
onClientAnyDeviceRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
onClientAnyDeviceRemoved a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientAnyDeviceRemovedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"any-device-removed" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientAnyDeviceRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientAnyDeviceRemovedCallback) -> m SignalHandlerId
afterClientAnyDeviceRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
afterClientAnyDeviceRemoved a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientAnyDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientAnyDeviceRemovedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"any-device-removed" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientAnyDeviceRemovedSignalInfo
instance SignalInfo ClientAnyDeviceRemovedSignalInfo where
type HaskellCallbackType ClientAnyDeviceRemovedSignalInfo = ClientAnyDeviceRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientAnyDeviceRemovedCallback cb
cb'' <- mk_ClientAnyDeviceRemovedCallback cb'
connectSignalFunPtr obj "any-device-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::any-device-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:anyDeviceRemoved"})
#endif
type ClientConnectionAddedCallback =
NM.RemoteConnection.RemoteConnection
-> IO ()
type C_ClientConnectionAddedCallback =
Ptr Client ->
Ptr NM.RemoteConnection.RemoteConnection ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientConnectionAddedCallback :: C_ClientConnectionAddedCallback -> IO (FunPtr C_ClientConnectionAddedCallback)
wrap_ClientConnectionAddedCallback ::
GObject a => (a -> ClientConnectionAddedCallback) ->
C_ClientConnectionAddedCallback
wrap_ClientConnectionAddedCallback :: forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionAddedCallback a -> ClientConnectionAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr RemoteConnection
connection Ptr ()
_ = do
RemoteConnection
connection' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
connection
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientConnectionAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) RemoteConnection
connection'
onClientConnectionAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientConnectionAddedCallback) -> m SignalHandlerId
onClientConnectionAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientConnectionAddedCallback)
-> m SignalHandlerId
onClientConnectionAdded a
obj (?self::a) => ClientConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientConnectionAddedCallback
ClientConnectionAddedCallback
cb
let wrapped' :: C_ClientConnectionAddedCallback
wrapped' = (a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionAddedCallback a -> ClientConnectionAddedCallback
wrapped
FunPtr C_ClientConnectionAddedCallback
wrapped'' <- C_ClientConnectionAddedCallback
-> IO (FunPtr C_ClientConnectionAddedCallback)
mk_ClientConnectionAddedCallback C_ClientConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-added" FunPtr C_ClientConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientConnectionAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientConnectionAddedCallback) -> m SignalHandlerId
afterClientConnectionAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientConnectionAddedCallback)
-> m SignalHandlerId
afterClientConnectionAdded a
obj (?self::a) => ClientConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientConnectionAddedCallback
ClientConnectionAddedCallback
cb
let wrapped' :: C_ClientConnectionAddedCallback
wrapped' = (a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionAddedCallback a -> ClientConnectionAddedCallback
wrapped
FunPtr C_ClientConnectionAddedCallback
wrapped'' <- C_ClientConnectionAddedCallback
-> IO (FunPtr C_ClientConnectionAddedCallback)
mk_ClientConnectionAddedCallback C_ClientConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-added" FunPtr C_ClientConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientConnectionAddedSignalInfo
instance SignalInfo ClientConnectionAddedSignalInfo where
type HaskellCallbackType ClientConnectionAddedSignalInfo = ClientConnectionAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientConnectionAddedCallback cb
cb'' <- mk_ClientConnectionAddedCallback cb'
connectSignalFunPtr obj "connection-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::connection-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:connectionAdded"})
#endif
type ClientConnectionRemovedCallback =
NM.RemoteConnection.RemoteConnection
-> IO ()
type C_ClientConnectionRemovedCallback =
Ptr Client ->
Ptr NM.RemoteConnection.RemoteConnection ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientConnectionRemovedCallback :: C_ClientConnectionRemovedCallback -> IO (FunPtr C_ClientConnectionRemovedCallback)
wrap_ClientConnectionRemovedCallback ::
GObject a => (a -> ClientConnectionRemovedCallback) ->
C_ClientConnectionRemovedCallback
wrap_ClientConnectionRemovedCallback :: forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionRemovedCallback a -> ClientConnectionAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr RemoteConnection
connection Ptr ()
_ = do
RemoteConnection
connection' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
connection
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientConnectionAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) RemoteConnection
connection'
onClientConnectionRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientConnectionRemovedCallback) -> m SignalHandlerId
onClientConnectionRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientConnectionAddedCallback)
-> m SignalHandlerId
onClientConnectionRemoved a
obj (?self::a) => ClientConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientConnectionAddedCallback
ClientConnectionAddedCallback
cb
let wrapped' :: C_ClientConnectionAddedCallback
wrapped' = (a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionRemovedCallback a -> ClientConnectionAddedCallback
wrapped
FunPtr C_ClientConnectionAddedCallback
wrapped'' <- C_ClientConnectionAddedCallback
-> IO (FunPtr C_ClientConnectionAddedCallback)
mk_ClientConnectionRemovedCallback C_ClientConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-removed" FunPtr C_ClientConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientConnectionRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientConnectionRemovedCallback) -> m SignalHandlerId
afterClientConnectionRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientConnectionAddedCallback)
-> m SignalHandlerId
afterClientConnectionRemoved a
obj (?self::a) => ClientConnectionAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientConnectionAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientConnectionAddedCallback
ClientConnectionAddedCallback
cb
let wrapped' :: C_ClientConnectionAddedCallback
wrapped' = (a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
forall a.
GObject a =>
(a -> ClientConnectionAddedCallback)
-> C_ClientConnectionAddedCallback
wrap_ClientConnectionRemovedCallback a -> ClientConnectionAddedCallback
wrapped
FunPtr C_ClientConnectionAddedCallback
wrapped'' <- C_ClientConnectionAddedCallback
-> IO (FunPtr C_ClientConnectionAddedCallback)
mk_ClientConnectionRemovedCallback C_ClientConnectionAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientConnectionAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-removed" FunPtr C_ClientConnectionAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientConnectionRemovedSignalInfo
instance SignalInfo ClientConnectionRemovedSignalInfo where
type HaskellCallbackType ClientConnectionRemovedSignalInfo = ClientConnectionRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientConnectionRemovedCallback cb
cb'' <- mk_ClientConnectionRemovedCallback cb'
connectSignalFunPtr obj "connection-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::connection-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:connectionRemoved"})
#endif
type ClientDeviceAddedCallback =
NM.Device.Device
-> IO ()
type C_ClientDeviceAddedCallback =
Ptr Client ->
Ptr NM.Device.Device ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientDeviceAddedCallback :: C_ClientDeviceAddedCallback -> IO (FunPtr C_ClientDeviceAddedCallback)
wrap_ClientDeviceAddedCallback ::
GObject a => (a -> ClientDeviceAddedCallback) ->
C_ClientDeviceAddedCallback
wrap_ClientDeviceAddedCallback :: forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr Device
device Ptr ()
_ = do
Device
device' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
device
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientAnyDeviceAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) Device
device'
onClientDeviceAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientDeviceAddedCallback) -> m SignalHandlerId
onClientDeviceAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
onClientDeviceAdded a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientDeviceAddedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"device-added" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientDeviceAdded :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientDeviceAddedCallback) -> m SignalHandlerId
afterClientDeviceAdded :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
afterClientDeviceAdded a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceAddedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientDeviceAddedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"device-added" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientDeviceAddedSignalInfo
instance SignalInfo ClientDeviceAddedSignalInfo where
type HaskellCallbackType ClientDeviceAddedSignalInfo = ClientDeviceAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientDeviceAddedCallback cb
cb'' <- mk_ClientDeviceAddedCallback cb'
connectSignalFunPtr obj "device-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::device-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:deviceAdded"})
#endif
type ClientDeviceRemovedCallback =
NM.Device.Device
-> IO ()
type C_ClientDeviceRemovedCallback =
Ptr Client ->
Ptr NM.Device.Device ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientDeviceRemovedCallback :: C_ClientDeviceRemovedCallback -> IO (FunPtr C_ClientDeviceRemovedCallback)
wrap_ClientDeviceRemovedCallback ::
GObject a => (a -> ClientDeviceRemovedCallback) ->
C_ClientDeviceRemovedCallback
wrap_ClientDeviceRemovedCallback :: forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
gi'cb Ptr Client
gi'selfPtr Ptr Device
device Ptr ()
_ = do
Device
device' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
device
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientAnyDeviceAddedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) Device
device'
onClientDeviceRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientDeviceRemovedCallback) -> m SignalHandlerId
onClientDeviceRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
onClientDeviceRemoved a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientDeviceRemovedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"device-removed" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientDeviceRemoved :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientDeviceRemovedCallback) -> m SignalHandlerId
afterClientDeviceRemoved :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientAnyDeviceAddedCallback)
-> m SignalHandlerId
afterClientDeviceRemoved a
obj (?self::a) => ClientAnyDeviceAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientAnyDeviceAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientAnyDeviceAddedCallback
ClientAnyDeviceAddedCallback
cb
let wrapped' :: C_ClientAnyDeviceAddedCallback
wrapped' = (a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
forall a.
GObject a =>
(a -> ClientAnyDeviceAddedCallback)
-> C_ClientAnyDeviceAddedCallback
wrap_ClientDeviceRemovedCallback a -> ClientAnyDeviceAddedCallback
wrapped
FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' <- C_ClientAnyDeviceAddedCallback
-> IO (FunPtr C_ClientAnyDeviceAddedCallback)
mk_ClientDeviceRemovedCallback C_ClientAnyDeviceAddedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientAnyDeviceAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"device-removed" FunPtr C_ClientAnyDeviceAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientDeviceRemovedSignalInfo
instance SignalInfo ClientDeviceRemovedSignalInfo where
type HaskellCallbackType ClientDeviceRemovedSignalInfo = ClientDeviceRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientDeviceRemovedCallback cb
cb'' <- mk_ClientDeviceRemovedCallback cb'
connectSignalFunPtr obj "device-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::device-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:deviceRemoved"})
#endif
type ClientPermissionChangedCallback =
Word32
-> Word32
-> IO ()
type C_ClientPermissionChangedCallback =
Ptr Client ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ClientPermissionChangedCallback :: C_ClientPermissionChangedCallback -> IO (FunPtr C_ClientPermissionChangedCallback)
wrap_ClientPermissionChangedCallback ::
GObject a => (a -> ClientPermissionChangedCallback) ->
C_ClientPermissionChangedCallback
wrap_ClientPermissionChangedCallback :: forall a.
GObject a =>
(a -> ClientPermissionChangedCallback)
-> C_ClientPermissionChangedCallback
wrap_ClientPermissionChangedCallback a -> ClientPermissionChangedCallback
gi'cb Ptr Client
gi'selfPtr Word32
permission Word32
result_ Ptr ()
_ = do
Ptr Client -> (Client -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Client
gi'selfPtr ((Client -> IO ()) -> IO ()) -> (Client -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Client
gi'self -> a -> ClientPermissionChangedCallback
gi'cb (Client -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Client
gi'self) Word32
permission Word32
result_
onClientPermissionChanged :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientPermissionChangedCallback) -> m SignalHandlerId
onClientPermissionChanged :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientPermissionChangedCallback)
-> m SignalHandlerId
onClientPermissionChanged a
obj (?self::a) => ClientPermissionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientPermissionChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientPermissionChangedCallback
ClientPermissionChangedCallback
cb
let wrapped' :: C_ClientPermissionChangedCallback
wrapped' = (a -> ClientPermissionChangedCallback)
-> C_ClientPermissionChangedCallback
forall a.
GObject a =>
(a -> ClientPermissionChangedCallback)
-> C_ClientPermissionChangedCallback
wrap_ClientPermissionChangedCallback a -> ClientPermissionChangedCallback
wrapped
FunPtr C_ClientPermissionChangedCallback
wrapped'' <- C_ClientPermissionChangedCallback
-> IO (FunPtr C_ClientPermissionChangedCallback)
mk_ClientPermissionChangedCallback C_ClientPermissionChangedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientPermissionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"permission-changed" FunPtr C_ClientPermissionChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterClientPermissionChanged :: (IsClient a, MonadIO m) => a -> ((?self :: a) => ClientPermissionChangedCallback) -> m SignalHandlerId
afterClientPermissionChanged :: forall a (m :: * -> *).
(IsClient a, MonadIO m) =>
a
-> ((?self::a) => ClientPermissionChangedCallback)
-> m SignalHandlerId
afterClientPermissionChanged a
obj (?self::a) => ClientPermissionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ClientPermissionChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ClientPermissionChangedCallback
ClientPermissionChangedCallback
cb
let wrapped' :: C_ClientPermissionChangedCallback
wrapped' = (a -> ClientPermissionChangedCallback)
-> C_ClientPermissionChangedCallback
forall a.
GObject a =>
(a -> ClientPermissionChangedCallback)
-> C_ClientPermissionChangedCallback
wrap_ClientPermissionChangedCallback a -> ClientPermissionChangedCallback
wrapped
FunPtr C_ClientPermissionChangedCallback
wrapped'' <- C_ClientPermissionChangedCallback
-> IO (FunPtr C_ClientPermissionChangedCallback)
mk_ClientPermissionChangedCallback C_ClientPermissionChangedCallback
wrapped'
a
-> Text
-> FunPtr C_ClientPermissionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"permission-changed" FunPtr C_ClientPermissionChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ClientPermissionChangedSignalInfo
instance SignalInfo ClientPermissionChangedSignalInfo where
type HaskellCallbackType ClientPermissionChangedSignalInfo = ClientPermissionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ClientPermissionChangedCallback cb
cb'' <- mk_ClientPermissionChangedCallback cb'
connectSignalFunPtr obj "permission-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client::permission-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:signal:permissionChanged"})
#endif
getClientActivatingConnection :: (MonadIO m, IsClient o) => o -> m NM.ActiveConnection.ActiveConnection
getClientActivatingConnection :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m ActiveConnection
getClientActivatingConnection o
obj = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe ActiveConnection) -> IO ActiveConnection
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getClientActivatingConnection" (IO (Maybe ActiveConnection) -> IO ActiveConnection)
-> IO (Maybe ActiveConnection) -> IO ActiveConnection
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ActiveConnection -> ActiveConnection)
-> IO (Maybe ActiveConnection)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"activating-connection" ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection
#if defined(ENABLE_OVERLOADING)
data ClientActivatingConnectionPropertyInfo
instance AttrInfo ClientActivatingConnectionPropertyInfo where
type AttrAllowedOps ClientActivatingConnectionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientActivatingConnectionPropertyInfo = IsClient
type AttrSetTypeConstraint ClientActivatingConnectionPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientActivatingConnectionPropertyInfo = (~) ()
type AttrTransferType ClientActivatingConnectionPropertyInfo = ()
type AttrGetType ClientActivatingConnectionPropertyInfo = NM.ActiveConnection.ActiveConnection
type AttrLabel ClientActivatingConnectionPropertyInfo = "activating-connection"
type AttrOrigin ClientActivatingConnectionPropertyInfo = Client
attrGet = getClientActivatingConnection
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.activatingConnection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:activatingConnection"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ClientActiveConnectionsPropertyInfo
instance AttrInfo ClientActiveConnectionsPropertyInfo where
type AttrAllowedOps ClientActiveConnectionsPropertyInfo = '[]
type AttrSetTypeConstraint ClientActiveConnectionsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientActiveConnectionsPropertyInfo = (~) ()
type AttrTransferType ClientActiveConnectionsPropertyInfo = ()
type AttrBaseTypeConstraint ClientActiveConnectionsPropertyInfo = (~) ()
type AttrGetType ClientActiveConnectionsPropertyInfo = ()
type AttrLabel ClientActiveConnectionsPropertyInfo = ""
type AttrOrigin ClientActiveConnectionsPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
#if defined(ENABLE_OVERLOADING)
data ClientAllDevicesPropertyInfo
instance AttrInfo ClientAllDevicesPropertyInfo where
type AttrAllowedOps ClientAllDevicesPropertyInfo = '[]
type AttrSetTypeConstraint ClientAllDevicesPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientAllDevicesPropertyInfo = (~) ()
type AttrTransferType ClientAllDevicesPropertyInfo = ()
type AttrBaseTypeConstraint ClientAllDevicesPropertyInfo = (~) ()
type AttrGetType ClientAllDevicesPropertyInfo = ()
type AttrLabel ClientAllDevicesPropertyInfo = ""
type AttrOrigin ClientAllDevicesPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
getClientCanModify :: (MonadIO m, IsClient o) => o -> m Bool
getClientCanModify :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientCanModify 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
"can-modify"
#if defined(ENABLE_OVERLOADING)
data ClientCanModifyPropertyInfo
instance AttrInfo ClientCanModifyPropertyInfo where
type AttrAllowedOps ClientCanModifyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientCanModifyPropertyInfo = IsClient
type AttrSetTypeConstraint ClientCanModifyPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientCanModifyPropertyInfo = (~) ()
type AttrTransferType ClientCanModifyPropertyInfo = ()
type AttrGetType ClientCanModifyPropertyInfo = Bool
type AttrLabel ClientCanModifyPropertyInfo = "can-modify"
type AttrOrigin ClientCanModifyPropertyInfo = Client
attrGet = getClientCanModify
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.canModify"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:canModify"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ClientCapabilitiesPropertyInfo
instance AttrInfo ClientCapabilitiesPropertyInfo where
type AttrAllowedOps ClientCapabilitiesPropertyInfo = '[]
type AttrSetTypeConstraint ClientCapabilitiesPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientCapabilitiesPropertyInfo = (~) ()
type AttrTransferType ClientCapabilitiesPropertyInfo = ()
type AttrBaseTypeConstraint ClientCapabilitiesPropertyInfo = (~) ()
type AttrGetType ClientCapabilitiesPropertyInfo = ()
type AttrLabel ClientCapabilitiesPropertyInfo = ""
type AttrOrigin ClientCapabilitiesPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointsPropertyInfo
instance AttrInfo ClientCheckpointsPropertyInfo where
type AttrAllowedOps ClientCheckpointsPropertyInfo = '[]
type AttrSetTypeConstraint ClientCheckpointsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientCheckpointsPropertyInfo = (~) ()
type AttrTransferType ClientCheckpointsPropertyInfo = ()
type AttrBaseTypeConstraint ClientCheckpointsPropertyInfo = (~) ()
type AttrGetType ClientCheckpointsPropertyInfo = ()
type AttrLabel ClientCheckpointsPropertyInfo = ""
type AttrOrigin ClientCheckpointsPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
#if defined(ENABLE_OVERLOADING)
data ClientConnectionsPropertyInfo
instance AttrInfo ClientConnectionsPropertyInfo where
type AttrAllowedOps ClientConnectionsPropertyInfo = '[]
type AttrSetTypeConstraint ClientConnectionsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientConnectionsPropertyInfo = (~) ()
type AttrTransferType ClientConnectionsPropertyInfo = ()
type AttrBaseTypeConstraint ClientConnectionsPropertyInfo = (~) ()
type AttrGetType ClientConnectionsPropertyInfo = ()
type AttrLabel ClientConnectionsPropertyInfo = ""
type AttrOrigin ClientConnectionsPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
getClientConnectivity :: (MonadIO m, IsClient o) => o -> m NM.Enums.ConnectivityState
getClientConnectivity :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m ConnectivityState
getClientConnectivity o
obj = IO ConnectivityState -> m ConnectivityState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ConnectivityState -> m ConnectivityState)
-> IO ConnectivityState -> m ConnectivityState
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ConnectivityState
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"connectivity"
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityPropertyInfo
instance AttrInfo ClientConnectivityPropertyInfo where
type AttrAllowedOps ClientConnectivityPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientConnectivityPropertyInfo = IsClient
type AttrSetTypeConstraint ClientConnectivityPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientConnectivityPropertyInfo = (~) ()
type AttrTransferType ClientConnectivityPropertyInfo = ()
type AttrGetType ClientConnectivityPropertyInfo = NM.Enums.ConnectivityState
type AttrLabel ClientConnectivityPropertyInfo = "connectivity"
type AttrOrigin ClientConnectivityPropertyInfo = Client
attrGet = getClientConnectivity
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.connectivity"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:connectivity"
})
#endif
getClientConnectivityCheckAvailable :: (MonadIO m, IsClient o) => o -> m Bool
getClientConnectivityCheckAvailable :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientConnectivityCheckAvailable 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
"connectivity-check-available"
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckAvailablePropertyInfo
instance AttrInfo ClientConnectivityCheckAvailablePropertyInfo where
type AttrAllowedOps ClientConnectivityCheckAvailablePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientConnectivityCheckAvailablePropertyInfo = IsClient
type AttrSetTypeConstraint ClientConnectivityCheckAvailablePropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientConnectivityCheckAvailablePropertyInfo = (~) ()
type AttrTransferType ClientConnectivityCheckAvailablePropertyInfo = ()
type AttrGetType ClientConnectivityCheckAvailablePropertyInfo = Bool
type AttrLabel ClientConnectivityCheckAvailablePropertyInfo = "connectivity-check-available"
type AttrOrigin ClientConnectivityCheckAvailablePropertyInfo = Client
attrGet = getClientConnectivityCheckAvailable
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.connectivityCheckAvailable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:connectivityCheckAvailable"
})
#endif
getClientConnectivityCheckEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientConnectivityCheckEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientConnectivityCheckEnabled 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
"connectivity-check-enabled"
setClientConnectivityCheckEnabled :: (MonadIO m, IsClient o) => o -> Bool -> m ()
setClientConnectivityCheckEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Bool -> m ()
setClientConnectivityCheckEnabled 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
"connectivity-check-enabled" Bool
val
constructClientConnectivityCheckEnabled :: (IsClient o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructClientConnectivityCheckEnabled :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructClientConnectivityCheckEnabled 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
"connectivity-check-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckEnabledPropertyInfo
instance AttrInfo ClientConnectivityCheckEnabledPropertyInfo where
type AttrAllowedOps ClientConnectivityCheckEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientConnectivityCheckEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientConnectivityCheckEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ClientConnectivityCheckEnabledPropertyInfo = (~) Bool
type AttrTransferType ClientConnectivityCheckEnabledPropertyInfo = Bool
type AttrGetType ClientConnectivityCheckEnabledPropertyInfo = Bool
type AttrLabel ClientConnectivityCheckEnabledPropertyInfo = "connectivity-check-enabled"
type AttrOrigin ClientConnectivityCheckEnabledPropertyInfo = Client
attrGet = getClientConnectivityCheckEnabled
attrSet = setClientConnectivityCheckEnabled
attrTransfer _ v = do
return v
attrConstruct = constructClientConnectivityCheckEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.connectivityCheckEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:connectivityCheckEnabled"
})
#endif
getClientConnectivityCheckUri :: (MonadIO m, IsClient o) => o -> m (Maybe T.Text)
getClientConnectivityCheckUri :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m (Maybe Text)
getClientConnectivityCheckUri 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
"connectivity-check-uri"
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckUriPropertyInfo
instance AttrInfo ClientConnectivityCheckUriPropertyInfo where
type AttrAllowedOps ClientConnectivityCheckUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientConnectivityCheckUriPropertyInfo = IsClient
type AttrSetTypeConstraint ClientConnectivityCheckUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientConnectivityCheckUriPropertyInfo = (~) ()
type AttrTransferType ClientConnectivityCheckUriPropertyInfo = ()
type AttrGetType ClientConnectivityCheckUriPropertyInfo = (Maybe T.Text)
type AttrLabel ClientConnectivityCheckUriPropertyInfo = "connectivity-check-uri"
type AttrOrigin ClientConnectivityCheckUriPropertyInfo = Client
attrGet = getClientConnectivityCheckUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.connectivityCheckUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:connectivityCheckUri"
})
#endif
getClientDbusConnection :: (MonadIO m, IsClient o) => o -> m Gio.DBusConnection.DBusConnection
getClientDbusConnection :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m DBusConnection
getClientDbusConnection o
obj = IO DBusConnection -> m DBusConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DBusConnection -> m DBusConnection)
-> IO DBusConnection -> m DBusConnection
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DBusConnection) -> IO DBusConnection
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getClientDbusConnection" (IO (Maybe DBusConnection) -> IO DBusConnection)
-> IO (Maybe DBusConnection) -> IO DBusConnection
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DBusConnection -> DBusConnection)
-> IO (Maybe DBusConnection)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"dbus-connection" ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection
constructClientDbusConnection :: (IsClient o, MIO.MonadIO m, Gio.DBusConnection.IsDBusConnection a) => a -> m (GValueConstruct o)
constructClientDbusConnection :: forall o (m :: * -> *) a.
(IsClient o, MonadIO m, IsDBusConnection a) =>
a -> m (GValueConstruct o)
constructClientDbusConnection a
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 a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"dbus-connection" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data ClientDbusConnectionPropertyInfo
instance AttrInfo ClientDbusConnectionPropertyInfo where
type AttrAllowedOps ClientDbusConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientDbusConnectionPropertyInfo = IsClient
type AttrSetTypeConstraint ClientDbusConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferTypeConstraint ClientDbusConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferType ClientDbusConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrGetType ClientDbusConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrLabel ClientDbusConnectionPropertyInfo = "dbus-connection"
type AttrOrigin ClientDbusConnectionPropertyInfo = Client
attrGet = getClientDbusConnection
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.DBusConnection.DBusConnection v
attrConstruct = constructClientDbusConnection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.dbusConnection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:dbusConnection"
})
#endif
getClientDbusNameOwner :: (MonadIO m, IsClient o) => o -> m T.Text
getClientDbusNameOwner :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Text
getClientDbusNameOwner 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
"getClientDbusNameOwner" (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
"dbus-name-owner"
#if defined(ENABLE_OVERLOADING)
data ClientDbusNameOwnerPropertyInfo
instance AttrInfo ClientDbusNameOwnerPropertyInfo where
type AttrAllowedOps ClientDbusNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientDbusNameOwnerPropertyInfo = IsClient
type AttrSetTypeConstraint ClientDbusNameOwnerPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientDbusNameOwnerPropertyInfo = (~) ()
type AttrTransferType ClientDbusNameOwnerPropertyInfo = ()
type AttrGetType ClientDbusNameOwnerPropertyInfo = T.Text
type AttrLabel ClientDbusNameOwnerPropertyInfo = "dbus-name-owner"
type AttrOrigin ClientDbusNameOwnerPropertyInfo = Client
attrGet = getClientDbusNameOwner
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.dbusNameOwner"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:dbusNameOwner"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ClientDevicesPropertyInfo
instance AttrInfo ClientDevicesPropertyInfo where
type AttrAllowedOps ClientDevicesPropertyInfo = '[]
type AttrSetTypeConstraint ClientDevicesPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientDevicesPropertyInfo = (~) ()
type AttrTransferType ClientDevicesPropertyInfo = ()
type AttrBaseTypeConstraint ClientDevicesPropertyInfo = (~) ()
type AttrGetType ClientDevicesPropertyInfo = ()
type AttrLabel ClientDevicesPropertyInfo = ""
type AttrOrigin ClientDevicesPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
#if defined(ENABLE_OVERLOADING)
data ClientDnsConfigurationPropertyInfo
instance AttrInfo ClientDnsConfigurationPropertyInfo where
type AttrAllowedOps ClientDnsConfigurationPropertyInfo = '[]
type AttrSetTypeConstraint ClientDnsConfigurationPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientDnsConfigurationPropertyInfo = (~) ()
type AttrTransferType ClientDnsConfigurationPropertyInfo = ()
type AttrBaseTypeConstraint ClientDnsConfigurationPropertyInfo = (~) ()
type AttrGetType ClientDnsConfigurationPropertyInfo = ()
type AttrLabel ClientDnsConfigurationPropertyInfo = ""
type AttrOrigin ClientDnsConfigurationPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
getClientDnsMode :: (MonadIO m, IsClient o) => o -> m T.Text
getClientDnsMode :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Text
getClientDnsMode 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
"getClientDnsMode" (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
"dns-mode"
#if defined(ENABLE_OVERLOADING)
data ClientDnsModePropertyInfo
instance AttrInfo ClientDnsModePropertyInfo where
type AttrAllowedOps ClientDnsModePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientDnsModePropertyInfo = IsClient
type AttrSetTypeConstraint ClientDnsModePropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientDnsModePropertyInfo = (~) ()
type AttrTransferType ClientDnsModePropertyInfo = ()
type AttrGetType ClientDnsModePropertyInfo = T.Text
type AttrLabel ClientDnsModePropertyInfo = "dns-mode"
type AttrOrigin ClientDnsModePropertyInfo = Client
attrGet = getClientDnsMode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.dnsMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:dnsMode"
})
#endif
getClientDnsRcManager :: (MonadIO m, IsClient o) => o -> m T.Text
getClientDnsRcManager :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Text
getClientDnsRcManager 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
"getClientDnsRcManager" (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
"dns-rc-manager"
#if defined(ENABLE_OVERLOADING)
data ClientDnsRcManagerPropertyInfo
instance AttrInfo ClientDnsRcManagerPropertyInfo where
type AttrAllowedOps ClientDnsRcManagerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientDnsRcManagerPropertyInfo = IsClient
type AttrSetTypeConstraint ClientDnsRcManagerPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientDnsRcManagerPropertyInfo = (~) ()
type AttrTransferType ClientDnsRcManagerPropertyInfo = ()
type AttrGetType ClientDnsRcManagerPropertyInfo = T.Text
type AttrLabel ClientDnsRcManagerPropertyInfo = "dns-rc-manager"
type AttrOrigin ClientDnsRcManagerPropertyInfo = Client
attrGet = getClientDnsRcManager
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.dnsRcManager"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:dnsRcManager"
})
#endif
getClientHostname :: (MonadIO m, IsClient o) => o -> m (Maybe T.Text)
getClientHostname :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m (Maybe Text)
getClientHostname 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
"hostname"
#if defined(ENABLE_OVERLOADING)
data ClientHostnamePropertyInfo
instance AttrInfo ClientHostnamePropertyInfo where
type AttrAllowedOps ClientHostnamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientHostnamePropertyInfo = IsClient
type AttrSetTypeConstraint ClientHostnamePropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientHostnamePropertyInfo = (~) ()
type AttrTransferType ClientHostnamePropertyInfo = ()
type AttrGetType ClientHostnamePropertyInfo = (Maybe T.Text)
type AttrLabel ClientHostnamePropertyInfo = "hostname"
type AttrOrigin ClientHostnamePropertyInfo = Client
attrGet = getClientHostname
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.hostname"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:hostname"
})
#endif
getClientInstanceFlags :: (MonadIO m, IsClient o) => o -> m Word32
getClientInstanceFlags :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Word32
getClientInstanceFlags 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
"instance-flags"
setClientInstanceFlags :: (MonadIO m, IsClient o) => o -> Word32 -> m ()
setClientInstanceFlags :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Word32 -> m ()
setClientInstanceFlags 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
"instance-flags" Word32
val
constructClientInstanceFlags :: (IsClient o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructClientInstanceFlags :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructClientInstanceFlags 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
"instance-flags" Word32
val
#if defined(ENABLE_OVERLOADING)
data ClientInstanceFlagsPropertyInfo
instance AttrInfo ClientInstanceFlagsPropertyInfo where
type AttrAllowedOps ClientInstanceFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientInstanceFlagsPropertyInfo = IsClient
type AttrSetTypeConstraint ClientInstanceFlagsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint ClientInstanceFlagsPropertyInfo = (~) Word32
type AttrTransferType ClientInstanceFlagsPropertyInfo = Word32
type AttrGetType ClientInstanceFlagsPropertyInfo = Word32
type AttrLabel ClientInstanceFlagsPropertyInfo = "instance-flags"
type AttrOrigin ClientInstanceFlagsPropertyInfo = Client
attrGet = getClientInstanceFlags
attrSet = setClientInstanceFlags
attrTransfer _ v = do
return v
attrConstruct = constructClientInstanceFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.instanceFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:instanceFlags"
})
#endif
getClientMetered :: (MonadIO m, IsClient o) => o -> m Word32
getClientMetered :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Word32
getClientMetered 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
"metered"
#if defined(ENABLE_OVERLOADING)
data ClientMeteredPropertyInfo
instance AttrInfo ClientMeteredPropertyInfo where
type AttrAllowedOps ClientMeteredPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientMeteredPropertyInfo = IsClient
type AttrSetTypeConstraint ClientMeteredPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientMeteredPropertyInfo = (~) ()
type AttrTransferType ClientMeteredPropertyInfo = ()
type AttrGetType ClientMeteredPropertyInfo = Word32
type AttrLabel ClientMeteredPropertyInfo = "metered"
type AttrOrigin ClientMeteredPropertyInfo = Client
attrGet = getClientMetered
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.metered"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:metered"
})
#endif
getClientNetworkingEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientNetworkingEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientNetworkingEnabled 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
"networking-enabled"
setClientNetworkingEnabled :: (MonadIO m, IsClient o) => o -> Bool -> m ()
setClientNetworkingEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Bool -> m ()
setClientNetworkingEnabled 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
"networking-enabled" Bool
val
constructClientNetworkingEnabled :: (IsClient o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructClientNetworkingEnabled :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructClientNetworkingEnabled 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
"networking-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data ClientNetworkingEnabledPropertyInfo
instance AttrInfo ClientNetworkingEnabledPropertyInfo where
type AttrAllowedOps ClientNetworkingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientNetworkingEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientNetworkingEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ClientNetworkingEnabledPropertyInfo = (~) Bool
type AttrTransferType ClientNetworkingEnabledPropertyInfo = Bool
type AttrGetType ClientNetworkingEnabledPropertyInfo = Bool
type AttrLabel ClientNetworkingEnabledPropertyInfo = "networking-enabled"
type AttrOrigin ClientNetworkingEnabledPropertyInfo = Client
attrGet = getClientNetworkingEnabled
attrSet = setClientNetworkingEnabled
attrTransfer _ v = do
return v
attrConstruct = constructClientNetworkingEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.networkingEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:networkingEnabled"
})
#endif
getClientNmRunning :: (MonadIO m, IsClient o) => o -> m Bool
getClientNmRunning :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientNmRunning 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
"nm-running"
#if defined(ENABLE_OVERLOADING)
data ClientNmRunningPropertyInfo
instance AttrInfo ClientNmRunningPropertyInfo where
type AttrAllowedOps ClientNmRunningPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientNmRunningPropertyInfo = IsClient
type AttrSetTypeConstraint ClientNmRunningPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientNmRunningPropertyInfo = (~) ()
type AttrTransferType ClientNmRunningPropertyInfo = ()
type AttrGetType ClientNmRunningPropertyInfo = Bool
type AttrLabel ClientNmRunningPropertyInfo = "nm-running"
type AttrOrigin ClientNmRunningPropertyInfo = Client
attrGet = getClientNmRunning
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.nmRunning"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:nmRunning"
})
#endif
getClientPermissionsState :: (MonadIO m, IsClient o) => o -> m NM.Enums.Ternary
getClientPermissionsState :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Ternary
getClientPermissionsState o
obj = IO Ternary -> m Ternary
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Ternary -> m Ternary) -> IO Ternary -> m Ternary
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Ternary
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"permissions-state"
#if defined(ENABLE_OVERLOADING)
data ClientPermissionsStatePropertyInfo
instance AttrInfo ClientPermissionsStatePropertyInfo where
type AttrAllowedOps ClientPermissionsStatePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientPermissionsStatePropertyInfo = IsClient
type AttrSetTypeConstraint ClientPermissionsStatePropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientPermissionsStatePropertyInfo = (~) ()
type AttrTransferType ClientPermissionsStatePropertyInfo = ()
type AttrGetType ClientPermissionsStatePropertyInfo = NM.Enums.Ternary
type AttrLabel ClientPermissionsStatePropertyInfo = "permissions-state"
type AttrOrigin ClientPermissionsStatePropertyInfo = Client
attrGet = getClientPermissionsState
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.permissionsState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:permissionsState"
})
#endif
getClientPrimaryConnection :: (MonadIO m, IsClient o) => o -> m NM.ActiveConnection.ActiveConnection
getClientPrimaryConnection :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> m ActiveConnection
getClientPrimaryConnection o
obj = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe ActiveConnection) -> IO ActiveConnection
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getClientPrimaryConnection" (IO (Maybe ActiveConnection) -> IO ActiveConnection)
-> IO (Maybe ActiveConnection) -> IO ActiveConnection
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ActiveConnection -> ActiveConnection)
-> IO (Maybe ActiveConnection)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"primary-connection" ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection
#if defined(ENABLE_OVERLOADING)
data ClientPrimaryConnectionPropertyInfo
instance AttrInfo ClientPrimaryConnectionPropertyInfo where
type AttrAllowedOps ClientPrimaryConnectionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientPrimaryConnectionPropertyInfo = IsClient
type AttrSetTypeConstraint ClientPrimaryConnectionPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientPrimaryConnectionPropertyInfo = (~) ()
type AttrTransferType ClientPrimaryConnectionPropertyInfo = ()
type AttrGetType ClientPrimaryConnectionPropertyInfo = NM.ActiveConnection.ActiveConnection
type AttrLabel ClientPrimaryConnectionPropertyInfo = "primary-connection"
type AttrOrigin ClientPrimaryConnectionPropertyInfo = Client
attrGet = getClientPrimaryConnection
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.primaryConnection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:primaryConnection"
})
#endif
getClientRadioFlags :: (MonadIO m, IsClient o) => o -> m Word32
getClientRadioFlags :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Word32
getClientRadioFlags 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
"radio-flags"
#if defined(ENABLE_OVERLOADING)
data ClientRadioFlagsPropertyInfo
instance AttrInfo ClientRadioFlagsPropertyInfo where
type AttrAllowedOps ClientRadioFlagsPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientRadioFlagsPropertyInfo = IsClient
type AttrSetTypeConstraint ClientRadioFlagsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientRadioFlagsPropertyInfo = (~) ()
type AttrTransferType ClientRadioFlagsPropertyInfo = ()
type AttrGetType ClientRadioFlagsPropertyInfo = Word32
type AttrLabel ClientRadioFlagsPropertyInfo = "radio-flags"
type AttrOrigin ClientRadioFlagsPropertyInfo = Client
attrGet = getClientRadioFlags
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.radioFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:radioFlags"
})
#endif
getClientStartup :: (MonadIO m, IsClient o) => o -> m Bool
getClientStartup :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientStartup 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
"startup"
#if defined(ENABLE_OVERLOADING)
data ClientStartupPropertyInfo
instance AttrInfo ClientStartupPropertyInfo where
type AttrAllowedOps ClientStartupPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientStartupPropertyInfo = IsClient
type AttrSetTypeConstraint ClientStartupPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientStartupPropertyInfo = (~) ()
type AttrTransferType ClientStartupPropertyInfo = ()
type AttrGetType ClientStartupPropertyInfo = Bool
type AttrLabel ClientStartupPropertyInfo = "startup"
type AttrOrigin ClientStartupPropertyInfo = Client
attrGet = getClientStartup
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.startup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:startup"
})
#endif
getClientState :: (MonadIO m, IsClient o) => o -> m NM.Enums.State
getClientState :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m State
getClientState o
obj = IO State -> m State
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO State -> m State) -> IO State -> m State
forall a b. (a -> b) -> a -> b
$ o -> String -> IO State
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"state"
#if defined(ENABLE_OVERLOADING)
data ClientStatePropertyInfo
instance AttrInfo ClientStatePropertyInfo where
type AttrAllowedOps ClientStatePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientStatePropertyInfo = IsClient
type AttrSetTypeConstraint ClientStatePropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientStatePropertyInfo = (~) ()
type AttrTransferType ClientStatePropertyInfo = ()
type AttrGetType ClientStatePropertyInfo = NM.Enums.State
type AttrLabel ClientStatePropertyInfo = "state"
type AttrOrigin ClientStatePropertyInfo = Client
attrGet = getClientState
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.state"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:state"
})
#endif
getClientVersion :: (MonadIO m, IsClient o) => o -> m T.Text
getClientVersion :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Text
getClientVersion 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
"getClientVersion" (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
"version"
#if defined(ENABLE_OVERLOADING)
data ClientVersionPropertyInfo
instance AttrInfo ClientVersionPropertyInfo where
type AttrAllowedOps ClientVersionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ClientVersionPropertyInfo = IsClient
type AttrSetTypeConstraint ClientVersionPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientVersionPropertyInfo = (~) ()
type AttrTransferType ClientVersionPropertyInfo = ()
type AttrGetType ClientVersionPropertyInfo = T.Text
type AttrLabel ClientVersionPropertyInfo = "version"
type AttrOrigin ClientVersionPropertyInfo = Client
attrGet = getClientVersion
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.version"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:version"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ClientVersionInfoPropertyInfo
instance AttrInfo ClientVersionInfoPropertyInfo where
type AttrAllowedOps ClientVersionInfoPropertyInfo = '[]
type AttrSetTypeConstraint ClientVersionInfoPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientVersionInfoPropertyInfo = (~) ()
type AttrTransferType ClientVersionInfoPropertyInfo = ()
type AttrBaseTypeConstraint ClientVersionInfoPropertyInfo = (~) ()
type AttrGetType ClientVersionInfoPropertyInfo = ()
type AttrLabel ClientVersionInfoPropertyInfo = ""
type AttrOrigin ClientVersionInfoPropertyInfo = Client
attrGet = undefined
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
#endif
getClientWimaxEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWimaxEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWimaxEnabled 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
"wimax-enabled"
setClientWimaxEnabled :: (MonadIO m, IsClient o) => o -> Bool -> m ()
setClientWimaxEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Bool -> m ()
setClientWimaxEnabled 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
"wimax-enabled" Bool
val
constructClientWimaxEnabled :: (IsClient o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructClientWimaxEnabled :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructClientWimaxEnabled 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
"wimax-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data ClientWimaxEnabledPropertyInfo
instance AttrInfo ClientWimaxEnabledPropertyInfo where
type AttrAllowedOps ClientWimaxEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientWimaxEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWimaxEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ClientWimaxEnabledPropertyInfo = (~) Bool
type AttrTransferType ClientWimaxEnabledPropertyInfo = Bool
type AttrGetType ClientWimaxEnabledPropertyInfo = Bool
type AttrLabel ClientWimaxEnabledPropertyInfo = "wimax-enabled"
type AttrOrigin ClientWimaxEnabledPropertyInfo = Client
attrGet = getClientWimaxEnabled
attrSet = setClientWimaxEnabled
attrTransfer _ v = do
return v
attrConstruct = constructClientWimaxEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wimaxEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wimaxEnabled"
})
#endif
getClientWimaxHardwareEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWimaxHardwareEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWimaxHardwareEnabled 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
"wimax-hardware-enabled"
#if defined(ENABLE_OVERLOADING)
data ClientWimaxHardwareEnabledPropertyInfo
instance AttrInfo ClientWimaxHardwareEnabledPropertyInfo where
type AttrAllowedOps ClientWimaxHardwareEnabledPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientWimaxHardwareEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWimaxHardwareEnabledPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientWimaxHardwareEnabledPropertyInfo = (~) ()
type AttrTransferType ClientWimaxHardwareEnabledPropertyInfo = ()
type AttrGetType ClientWimaxHardwareEnabledPropertyInfo = Bool
type AttrLabel ClientWimaxHardwareEnabledPropertyInfo = "wimax-hardware-enabled"
type AttrOrigin ClientWimaxHardwareEnabledPropertyInfo = Client
attrGet = getClientWimaxHardwareEnabled
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wimaxHardwareEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wimaxHardwareEnabled"
})
#endif
getClientWirelessEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWirelessEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWirelessEnabled 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
"wireless-enabled"
setClientWirelessEnabled :: (MonadIO m, IsClient o) => o -> Bool -> m ()
setClientWirelessEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Bool -> m ()
setClientWirelessEnabled 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
"wireless-enabled" Bool
val
constructClientWirelessEnabled :: (IsClient o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructClientWirelessEnabled :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructClientWirelessEnabled 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
"wireless-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data ClientWirelessEnabledPropertyInfo
instance AttrInfo ClientWirelessEnabledPropertyInfo where
type AttrAllowedOps ClientWirelessEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientWirelessEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWirelessEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ClientWirelessEnabledPropertyInfo = (~) Bool
type AttrTransferType ClientWirelessEnabledPropertyInfo = Bool
type AttrGetType ClientWirelessEnabledPropertyInfo = Bool
type AttrLabel ClientWirelessEnabledPropertyInfo = "wireless-enabled"
type AttrOrigin ClientWirelessEnabledPropertyInfo = Client
attrGet = getClientWirelessEnabled
attrSet = setClientWirelessEnabled
attrTransfer _ v = do
return v
attrConstruct = constructClientWirelessEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wirelessEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wirelessEnabled"
})
#endif
getClientWirelessHardwareEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWirelessHardwareEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWirelessHardwareEnabled 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
"wireless-hardware-enabled"
#if defined(ENABLE_OVERLOADING)
data ClientWirelessHardwareEnabledPropertyInfo
instance AttrInfo ClientWirelessHardwareEnabledPropertyInfo where
type AttrAllowedOps ClientWirelessHardwareEnabledPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientWirelessHardwareEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWirelessHardwareEnabledPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientWirelessHardwareEnabledPropertyInfo = (~) ()
type AttrTransferType ClientWirelessHardwareEnabledPropertyInfo = ()
type AttrGetType ClientWirelessHardwareEnabledPropertyInfo = Bool
type AttrLabel ClientWirelessHardwareEnabledPropertyInfo = "wireless-hardware-enabled"
type AttrOrigin ClientWirelessHardwareEnabledPropertyInfo = Client
attrGet = getClientWirelessHardwareEnabled
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wirelessHardwareEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wirelessHardwareEnabled"
})
#endif
getClientWwanEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWwanEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWwanEnabled 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
"wwan-enabled"
setClientWwanEnabled :: (MonadIO m, IsClient o) => o -> Bool -> m ()
setClientWwanEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsClient o) =>
o -> Bool -> m ()
setClientWwanEnabled 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
"wwan-enabled" Bool
val
constructClientWwanEnabled :: (IsClient o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructClientWwanEnabled :: forall o (m :: * -> *).
(IsClient o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructClientWwanEnabled 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
"wwan-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data ClientWwanEnabledPropertyInfo
instance AttrInfo ClientWwanEnabledPropertyInfo where
type AttrAllowedOps ClientWwanEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ClientWwanEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWwanEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ClientWwanEnabledPropertyInfo = (~) Bool
type AttrTransferType ClientWwanEnabledPropertyInfo = Bool
type AttrGetType ClientWwanEnabledPropertyInfo = Bool
type AttrLabel ClientWwanEnabledPropertyInfo = "wwan-enabled"
type AttrOrigin ClientWwanEnabledPropertyInfo = Client
attrGet = getClientWwanEnabled
attrSet = setClientWwanEnabled
attrTransfer _ v = do
return v
attrConstruct = constructClientWwanEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wwanEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wwanEnabled"
})
#endif
getClientWwanHardwareEnabled :: (MonadIO m, IsClient o) => o -> m Bool
getClientWwanHardwareEnabled :: forall (m :: * -> *) o. (MonadIO m, IsClient o) => o -> m Bool
getClientWwanHardwareEnabled 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
"wwan-hardware-enabled"
#if defined(ENABLE_OVERLOADING)
data ClientWwanHardwareEnabledPropertyInfo
instance AttrInfo ClientWwanHardwareEnabledPropertyInfo where
type AttrAllowedOps ClientWwanHardwareEnabledPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ClientWwanHardwareEnabledPropertyInfo = IsClient
type AttrSetTypeConstraint ClientWwanHardwareEnabledPropertyInfo = (~) ()
type AttrTransferTypeConstraint ClientWwanHardwareEnabledPropertyInfo = (~) ()
type AttrTransferType ClientWwanHardwareEnabledPropertyInfo = ()
type AttrGetType ClientWwanHardwareEnabledPropertyInfo = Bool
type AttrLabel ClientWwanHardwareEnabledPropertyInfo = "wwan-hardware-enabled"
type AttrOrigin ClientWwanHardwareEnabledPropertyInfo = Client
attrGet = getClientWwanHardwareEnabled
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.wwanHardwareEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#g:attr:wwanHardwareEnabled"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Client
type instance O.AttributeList Client = ClientAttributeList
type ClientAttributeList = ('[ '("activatingConnection", ClientActivatingConnectionPropertyInfo), '("activeConnections", ClientActiveConnectionsPropertyInfo), '("allDevices", ClientAllDevicesPropertyInfo), '("canModify", ClientCanModifyPropertyInfo), '("capabilities", ClientCapabilitiesPropertyInfo), '("checkpoints", ClientCheckpointsPropertyInfo), '("connections", ClientConnectionsPropertyInfo), '("connectivity", ClientConnectivityPropertyInfo), '("connectivityCheckAvailable", ClientConnectivityCheckAvailablePropertyInfo), '("connectivityCheckEnabled", ClientConnectivityCheckEnabledPropertyInfo), '("connectivityCheckUri", ClientConnectivityCheckUriPropertyInfo), '("dbusConnection", ClientDbusConnectionPropertyInfo), '("dbusNameOwner", ClientDbusNameOwnerPropertyInfo), '("devices", ClientDevicesPropertyInfo), '("dnsConfiguration", ClientDnsConfigurationPropertyInfo), '("dnsMode", ClientDnsModePropertyInfo), '("dnsRcManager", ClientDnsRcManagerPropertyInfo), '("hostname", ClientHostnamePropertyInfo), '("instanceFlags", ClientInstanceFlagsPropertyInfo), '("metered", ClientMeteredPropertyInfo), '("networkingEnabled", ClientNetworkingEnabledPropertyInfo), '("nmRunning", ClientNmRunningPropertyInfo), '("permissionsState", ClientPermissionsStatePropertyInfo), '("primaryConnection", ClientPrimaryConnectionPropertyInfo), '("radioFlags", ClientRadioFlagsPropertyInfo), '("startup", ClientStartupPropertyInfo), '("state", ClientStatePropertyInfo), '("version", ClientVersionPropertyInfo), '("versionInfo", ClientVersionInfoPropertyInfo), '("wimaxEnabled", ClientWimaxEnabledPropertyInfo), '("wimaxHardwareEnabled", ClientWimaxHardwareEnabledPropertyInfo), '("wirelessEnabled", ClientWirelessEnabledPropertyInfo), '("wirelessHardwareEnabled", ClientWirelessHardwareEnabledPropertyInfo), '("wwanEnabled", ClientWwanEnabledPropertyInfo), '("wwanHardwareEnabled", ClientWwanHardwareEnabledPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
clientActivatingConnection :: AttrLabelProxy "activatingConnection"
clientActivatingConnection = AttrLabelProxy
clientActiveConnections :: AttrLabelProxy "activeConnections"
clientActiveConnections = AttrLabelProxy
clientAllDevices :: AttrLabelProxy "allDevices"
clientAllDevices = AttrLabelProxy
clientCanModify :: AttrLabelProxy "canModify"
clientCanModify = AttrLabelProxy
clientCapabilities :: AttrLabelProxy "capabilities"
clientCapabilities = AttrLabelProxy
clientCheckpoints :: AttrLabelProxy "checkpoints"
clientCheckpoints = AttrLabelProxy
clientConnections :: AttrLabelProxy "connections"
clientConnections = AttrLabelProxy
clientConnectivity :: AttrLabelProxy "connectivity"
clientConnectivity = AttrLabelProxy
clientConnectivityCheckAvailable :: AttrLabelProxy "connectivityCheckAvailable"
clientConnectivityCheckAvailable = AttrLabelProxy
clientConnectivityCheckEnabled :: AttrLabelProxy "connectivityCheckEnabled"
clientConnectivityCheckEnabled = AttrLabelProxy
clientConnectivityCheckUri :: AttrLabelProxy "connectivityCheckUri"
clientConnectivityCheckUri = AttrLabelProxy
clientDbusConnection :: AttrLabelProxy "dbusConnection"
clientDbusConnection = AttrLabelProxy
clientDbusNameOwner :: AttrLabelProxy "dbusNameOwner"
clientDbusNameOwner = AttrLabelProxy
clientDevices :: AttrLabelProxy "devices"
clientDevices = AttrLabelProxy
clientDnsConfiguration :: AttrLabelProxy "dnsConfiguration"
clientDnsConfiguration = AttrLabelProxy
clientDnsMode :: AttrLabelProxy "dnsMode"
clientDnsMode = AttrLabelProxy
clientDnsRcManager :: AttrLabelProxy "dnsRcManager"
clientDnsRcManager = AttrLabelProxy
clientHostname :: AttrLabelProxy "hostname"
clientHostname = AttrLabelProxy
clientInstanceFlags :: AttrLabelProxy "instanceFlags"
clientInstanceFlags = AttrLabelProxy
clientMetered :: AttrLabelProxy "metered"
clientMetered = AttrLabelProxy
clientNetworkingEnabled :: AttrLabelProxy "networkingEnabled"
clientNetworkingEnabled = AttrLabelProxy
clientNmRunning :: AttrLabelProxy "nmRunning"
clientNmRunning = AttrLabelProxy
clientPermissionsState :: AttrLabelProxy "permissionsState"
clientPermissionsState = AttrLabelProxy
clientPrimaryConnection :: AttrLabelProxy "primaryConnection"
clientPrimaryConnection = AttrLabelProxy
clientRadioFlags :: AttrLabelProxy "radioFlags"
clientRadioFlags = AttrLabelProxy
clientStartup :: AttrLabelProxy "startup"
clientStartup = AttrLabelProxy
clientState :: AttrLabelProxy "state"
clientState = AttrLabelProxy
clientVersion :: AttrLabelProxy "version"
clientVersion = AttrLabelProxy
clientVersionInfo :: AttrLabelProxy "versionInfo"
clientVersionInfo = AttrLabelProxy
clientWimaxEnabled :: AttrLabelProxy "wimaxEnabled"
clientWimaxEnabled = AttrLabelProxy
clientWimaxHardwareEnabled :: AttrLabelProxy "wimaxHardwareEnabled"
clientWimaxHardwareEnabled = AttrLabelProxy
clientWirelessEnabled :: AttrLabelProxy "wirelessEnabled"
clientWirelessEnabled = AttrLabelProxy
clientWirelessHardwareEnabled :: AttrLabelProxy "wirelessHardwareEnabled"
clientWirelessHardwareEnabled = AttrLabelProxy
clientWwanEnabled :: AttrLabelProxy "wwanEnabled"
clientWwanEnabled = AttrLabelProxy
clientWwanHardwareEnabled :: AttrLabelProxy "wwanHardwareEnabled"
clientWwanHardwareEnabled = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Client = ClientSignalList
type ClientSignalList = ('[ '("activeConnectionAdded", ClientActiveConnectionAddedSignalInfo), '("activeConnectionRemoved", ClientActiveConnectionRemovedSignalInfo), '("anyDeviceAdded", ClientAnyDeviceAddedSignalInfo), '("anyDeviceRemoved", ClientAnyDeviceRemovedSignalInfo), '("connectionAdded", ClientConnectionAddedSignalInfo), '("connectionRemoved", ClientConnectionRemovedSignalInfo), '("deviceAdded", ClientDeviceAddedSignalInfo), '("deviceRemoved", ClientDeviceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("permissionChanged", ClientPermissionChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "nm_client_new" nm_client_new ::
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Client)
clientNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Maybe (a)
-> m Client
clientNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
Maybe a -> m Client
clientNew Maybe a
cancellable = IO Client -> m Client
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Client -> m Client) -> IO Client -> m Client
forall a b. (a -> b) -> a -> b
$ do
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- a -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO Client -> IO () -> IO Client
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Client
result <- (Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client))
-> (Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client)
forall a b. (a -> b) -> a -> b
$ Ptr Cancellable -> Ptr (Ptr GError) -> IO (Ptr Client)
nm_client_new Ptr Cancellable
maybeCancellable
Text -> Ptr Client -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientNew" Ptr Client
result
Client
result' <- ((ManagedPtr Client -> Client) -> Ptr Client -> IO Client
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Client -> Client
Client) Ptr Client
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Client -> IO Client
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Client
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_client_new_finish" nm_client_new_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Client)
clientNewFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m Client
clientNewFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m Client
clientNewFinish a
result_ = IO Client -> m Client
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Client -> m Client) -> IO Client -> m Client
forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
result_' <- a -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
IO Client -> IO () -> IO Client
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Client
result <- (Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client))
-> (Ptr (Ptr GError) -> IO (Ptr Client)) -> IO (Ptr Client)
forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr Client)
nm_client_new_finish Ptr AsyncResult
result_'
Text -> Ptr Client -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientNewFinish" Ptr Client
result
Client
result' <- ((ManagedPtr Client -> Client) -> Ptr Client -> IO Client
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Client -> Client
Client) Ptr Client
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
Client -> IO Client
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Client
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_client_activate_connection_async" nm_client_activate_connection_async ::
Ptr Client ->
Ptr NM.Connection.Connection ->
Ptr NM.Device.Device ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientActivateConnectionAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) =>
a
-> Maybe (b)
-> Maybe (c)
-> Maybe (T.Text)
-> Maybe (d)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientActivateConnectionAsync :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsClient a, IsConnection b, IsDevice c,
IsCancellable d) =>
a
-> Maybe b
-> Maybe c
-> Maybe Text
-> Maybe d
-> Maybe AsyncReadyCallback
-> m ()
clientActivateConnectionAsync a
client Maybe b
connection Maybe c
device Maybe Text
specificObject Maybe d
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Connection
maybeConnection <- case Maybe b
connection of
Maybe b
Nothing -> Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
forall a. Ptr a
FP.nullPtr
Just b
jConnection -> do
Ptr Connection
jConnection' <- b -> IO (Ptr Connection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jConnection
Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
jConnection'
Ptr Device
maybeDevice <- case Maybe c
device of
Maybe c
Nothing -> Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
FP.nullPtr
Just c
jDevice -> do
Ptr Device
jDevice' <- c -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jDevice
Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
Ptr CChar
maybeSpecificObject <- case Maybe Text
specificObject of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jSpecificObject -> do
Ptr CChar
jSpecificObject' <- Text -> IO (Ptr CChar)
textToCString Text
jSpecificObject
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jSpecificObject'
Ptr Cancellable
maybeCancellable <- case Maybe d
cancellable of
Maybe d
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just d
jCancellable -> do
Ptr Cancellable
jCancellable' <- d -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Connection
-> Ptr Device
-> Ptr CChar
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_activate_connection_async Ptr Client
client' Ptr Connection
maybeConnection Ptr Device
maybeDevice Ptr CChar
maybeSpecificObject Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
connection b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
device c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
cancellable d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeSpecificObject
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientActivateConnectionAsyncMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (T.Text) -> Maybe (d) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) => O.OverloadedMethod ClientActivateConnectionAsyncMethodInfo a signature where
overloadedMethod = clientActivateConnectionAsync
instance O.OverloadedMethodInfo ClientActivateConnectionAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientActivateConnectionAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientActivateConnectionAsync"
})
#endif
foreign import ccall "nm_client_activate_connection_finish" nm_client_activate_connection_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr NM.ActiveConnection.ActiveConnection)
clientActivateConnectionFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m NM.ActiveConnection.ActiveConnection
clientActivateConnectionFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ActiveConnection
clientActivateConnectionFinish a
client b
result_ = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO ActiveConnection -> IO () -> IO ActiveConnection
forall a b. IO a -> IO b -> IO a
onException (do
Ptr ActiveConnection
result <- (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection))
-> (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr ActiveConnection)
nm_client_activate_connection_finish Ptr Client
client' Ptr AsyncResult
result_'
Text -> Ptr ActiveConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientActivateConnectionFinish" Ptr ActiveConnection
result
ActiveConnection
result' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
ActiveConnection -> IO ActiveConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ActiveConnection
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientActivateConnectionFinishMethodInfo
instance (signature ~ (b -> m NM.ActiveConnection.ActiveConnection), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientActivateConnectionFinishMethodInfo a signature where
overloadedMethod = clientActivateConnectionFinish
instance O.OverloadedMethodInfo ClientActivateConnectionFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientActivateConnectionFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientActivateConnectionFinish"
})
#endif
foreign import ccall "nm_client_add_and_activate_connection2" nm_client_add_and_activate_connection2 ::
Ptr Client ->
Ptr NM.Connection.Connection ->
Ptr NM.Device.Device ->
CString ->
Ptr GVariant ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientAddAndActivateConnection2 ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) =>
a
-> Maybe (b)
-> Maybe (c)
-> Maybe (T.Text)
-> GVariant
-> Maybe (d)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientAddAndActivateConnection2 :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsClient a, IsConnection b, IsDevice c,
IsCancellable d) =>
a
-> Maybe b
-> Maybe c
-> Maybe Text
-> GVariant
-> Maybe d
-> Maybe AsyncReadyCallback
-> m ()
clientAddAndActivateConnection2 a
client Maybe b
partial Maybe c
device Maybe Text
specificObject GVariant
options Maybe d
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Connection
maybePartial <- case Maybe b
partial of
Maybe b
Nothing -> Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
forall a. Ptr a
FP.nullPtr
Just b
jPartial -> do
Ptr Connection
jPartial' <- b -> IO (Ptr Connection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPartial
Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
jPartial'
Ptr Device
maybeDevice <- case Maybe c
device of
Maybe c
Nothing -> Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
FP.nullPtr
Just c
jDevice -> do
Ptr Device
jDevice' <- c -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jDevice
Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
Ptr CChar
maybeSpecificObject <- case Maybe Text
specificObject of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jSpecificObject -> do
Ptr CChar
jSpecificObject' <- Text -> IO (Ptr CChar)
textToCString Text
jSpecificObject
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jSpecificObject'
Ptr GVariant
options' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
options
Ptr Cancellable
maybeCancellable <- case Maybe d
cancellable of
Maybe d
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just d
jCancellable -> do
Ptr Cancellable
jCancellable' <- d -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Connection
-> Ptr Device
-> Ptr CChar
-> Ptr GVariant
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_add_and_activate_connection2 Ptr Client
client' Ptr Connection
maybePartial Ptr Device
maybeDevice Ptr CChar
maybeSpecificObject Ptr GVariant
options' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
partial b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
device c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
options
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
cancellable d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeSpecificObject
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientAddAndActivateConnection2MethodInfo
instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (T.Text) -> GVariant -> Maybe (d) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) => O.OverloadedMethod ClientAddAndActivateConnection2MethodInfo a signature where
overloadedMethod = clientAddAndActivateConnection2
instance O.OverloadedMethodInfo ClientAddAndActivateConnection2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddAndActivateConnection2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddAndActivateConnection2"
})
#endif
foreign import ccall "nm_client_add_and_activate_connection2_finish" nm_client_add_and_activate_connection2_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GVariant) ->
Ptr (Ptr GError) ->
IO (Ptr NM.ActiveConnection.ActiveConnection)
clientAddAndActivateConnection2Finish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((NM.ActiveConnection.ActiveConnection, Maybe GVariant))
clientAddAndActivateConnection2Finish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m (ActiveConnection, Maybe GVariant)
clientAddAndActivateConnection2Finish a
client b
result_ = IO (ActiveConnection, Maybe GVariant)
-> m (ActiveConnection, Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (ActiveConnection, Maybe GVariant)
-> m (ActiveConnection, Maybe GVariant))
-> IO (ActiveConnection, Maybe GVariant)
-> m (ActiveConnection, Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr (Ptr GVariant)
outResult <- IO (Ptr (Ptr GVariant))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr GVariant))
IO (ActiveConnection, Maybe GVariant)
-> IO () -> IO (ActiveConnection, Maybe GVariant)
forall a b. IO a -> IO b -> IO a
onException (do
Ptr ActiveConnection
result <- (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection))
-> (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult
-> Ptr (Ptr GVariant)
-> Ptr (Ptr GError)
-> IO (Ptr ActiveConnection)
nm_client_add_and_activate_connection2_finish Ptr Client
client' Ptr AsyncResult
result_' Ptr (Ptr GVariant)
outResult
Text -> Ptr ActiveConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientAddAndActivateConnection2Finish" Ptr ActiveConnection
result
ActiveConnection
result' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
result
Ptr GVariant
outResult' <- Ptr (Ptr GVariant) -> IO (Ptr GVariant)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr GVariant)
outResult
Maybe GVariant
maybeOutResult' <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
outResult' ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
outResult'' -> do
GVariant
outResult''' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
outResult''
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
outResult'''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Ptr (Ptr GVariant) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr GVariant)
outResult
(ActiveConnection, Maybe GVariant)
-> IO (ActiveConnection, Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (ActiveConnection
result', Maybe GVariant
maybeOutResult')
) (do
Ptr (Ptr GVariant) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr GVariant)
outResult
)
#if defined(ENABLE_OVERLOADING)
data ClientAddAndActivateConnection2FinishMethodInfo
instance (signature ~ (b -> m ((NM.ActiveConnection.ActiveConnection, Maybe GVariant))), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientAddAndActivateConnection2FinishMethodInfo a signature where
overloadedMethod = clientAddAndActivateConnection2Finish
instance O.OverloadedMethodInfo ClientAddAndActivateConnection2FinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddAndActivateConnection2Finish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddAndActivateConnection2Finish"
})
#endif
foreign import ccall "nm_client_add_and_activate_connection_async" nm_client_add_and_activate_connection_async ::
Ptr Client ->
Ptr NM.Connection.Connection ->
Ptr NM.Device.Device ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientAddAndActivateConnectionAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) =>
a
-> Maybe (b)
-> Maybe (c)
-> Maybe (T.Text)
-> Maybe (d)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientAddAndActivateConnectionAsync :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsClient a, IsConnection b, IsDevice c,
IsCancellable d) =>
a
-> Maybe b
-> Maybe c
-> Maybe Text
-> Maybe d
-> Maybe AsyncReadyCallback
-> m ()
clientAddAndActivateConnectionAsync a
client Maybe b
partial Maybe c
device Maybe Text
specificObject Maybe d
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Connection
maybePartial <- case Maybe b
partial of
Maybe b
Nothing -> Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
forall a. Ptr a
FP.nullPtr
Just b
jPartial -> do
Ptr Connection
jPartial' <- b -> IO (Ptr Connection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPartial
Ptr Connection -> IO (Ptr Connection)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Connection
jPartial'
Ptr Device
maybeDevice <- case Maybe c
device of
Maybe c
Nothing -> Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
FP.nullPtr
Just c
jDevice -> do
Ptr Device
jDevice' <- c -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jDevice
Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
Ptr CChar
maybeSpecificObject <- case Maybe Text
specificObject of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jSpecificObject -> do
Ptr CChar
jSpecificObject' <- Text -> IO (Ptr CChar)
textToCString Text
jSpecificObject
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jSpecificObject'
Ptr Cancellable
maybeCancellable <- case Maybe d
cancellable of
Maybe d
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just d
jCancellable -> do
Ptr Cancellable
jCancellable' <- d -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Connection
-> Ptr Device
-> Ptr CChar
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_add_and_activate_connection_async Ptr Client
client' Ptr Connection
maybePartial Ptr Device
maybeDevice Ptr CChar
maybeSpecificObject Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
partial b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
device c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
cancellable d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeSpecificObject
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientAddAndActivateConnectionAsyncMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (T.Text) -> Maybe (d) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, NM.Connection.IsConnection b, NM.Device.IsDevice c, Gio.Cancellable.IsCancellable d) => O.OverloadedMethod ClientAddAndActivateConnectionAsyncMethodInfo a signature where
overloadedMethod = clientAddAndActivateConnectionAsync
instance O.OverloadedMethodInfo ClientAddAndActivateConnectionAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddAndActivateConnectionAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddAndActivateConnectionAsync"
})
#endif
foreign import ccall "nm_client_add_and_activate_connection_finish" nm_client_add_and_activate_connection_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr NM.ActiveConnection.ActiveConnection)
clientAddAndActivateConnectionFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m NM.ActiveConnection.ActiveConnection
clientAddAndActivateConnectionFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ActiveConnection
clientAddAndActivateConnectionFinish a
client b
result_ = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO ActiveConnection -> IO () -> IO ActiveConnection
forall a b. IO a -> IO b -> IO a
onException (do
Ptr ActiveConnection
result <- (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection))
-> (Ptr (Ptr GError) -> IO (Ptr ActiveConnection))
-> IO (Ptr ActiveConnection)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr ActiveConnection)
nm_client_add_and_activate_connection_finish Ptr Client
client' Ptr AsyncResult
result_'
Text -> Ptr ActiveConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientAddAndActivateConnectionFinish" Ptr ActiveConnection
result
ActiveConnection
result' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
ActiveConnection -> IO ActiveConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ActiveConnection
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientAddAndActivateConnectionFinishMethodInfo
instance (signature ~ (b -> m NM.ActiveConnection.ActiveConnection), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientAddAndActivateConnectionFinishMethodInfo a signature where
overloadedMethod = clientAddAndActivateConnectionFinish
instance O.OverloadedMethodInfo ClientAddAndActivateConnectionFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddAndActivateConnectionFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddAndActivateConnectionFinish"
})
#endif
foreign import ccall "nm_client_add_connection2" nm_client_add_connection2 ::
Ptr Client ->
Ptr GVariant ->
CUInt ->
Ptr GVariant ->
CInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientAddConnection2 ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> GVariant
-> [NM.Flags.SettingsAddConnection2Flags]
-> Maybe (GVariant)
-> Bool
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientAddConnection2 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a
-> GVariant
-> [SettingsAddConnection2Flags]
-> Maybe GVariant
-> Bool
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
clientAddConnection2 a
client GVariant
settings [SettingsAddConnection2Flags]
flags Maybe GVariant
args Bool
ignoreOutResult Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr GVariant
settings' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
settings
let flags' :: CUInt
flags' = [SettingsAddConnection2Flags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SettingsAddConnection2Flags]
flags
Ptr GVariant
maybeArgs <- case Maybe GVariant
args of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
FP.nullPtr
Just GVariant
jArgs -> do
Ptr GVariant
jArgs' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jArgs
Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jArgs'
let ignoreOutResult' :: CInt
ignoreOutResult' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
ignoreOutResult
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr GVariant
-> CUInt
-> Ptr GVariant
-> CInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_add_connection2 Ptr Client
client' Ptr GVariant
settings' CUInt
flags' Ptr GVariant
maybeArgs CInt
ignoreOutResult' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
settings
Maybe GVariant -> (GVariant -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
args GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientAddConnection2MethodInfo
instance (signature ~ (GVariant -> [NM.Flags.SettingsAddConnection2Flags] -> Maybe (GVariant) -> Bool -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientAddConnection2MethodInfo a signature where
overloadedMethod = clientAddConnection2
instance O.OverloadedMethodInfo ClientAddConnection2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddConnection2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddConnection2"
})
#endif
foreign import ccall "nm_client_add_connection2_finish" nm_client_add_connection2_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GVariant) ->
Ptr (Ptr GError) ->
IO (Ptr NM.RemoteConnection.RemoteConnection)
clientAddConnection2Finish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((NM.RemoteConnection.RemoteConnection, Maybe GVariant))
clientAddConnection2Finish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m (RemoteConnection, Maybe GVariant)
clientAddConnection2Finish a
client b
result_ = IO (RemoteConnection, Maybe GVariant)
-> m (RemoteConnection, Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (RemoteConnection, Maybe GVariant)
-> m (RemoteConnection, Maybe GVariant))
-> IO (RemoteConnection, Maybe GVariant)
-> m (RemoteConnection, Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr (Ptr GVariant)
outResult <- IO (Ptr (Ptr GVariant))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr GVariant))
IO (RemoteConnection, Maybe GVariant)
-> IO () -> IO (RemoteConnection, Maybe GVariant)
forall a b. IO a -> IO b -> IO a
onException (do
Ptr RemoteConnection
result <- (Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection))
-> (Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult
-> Ptr (Ptr GVariant)
-> Ptr (Ptr GError)
-> IO (Ptr RemoteConnection)
nm_client_add_connection2_finish Ptr Client
client' Ptr AsyncResult
result_' Ptr (Ptr GVariant)
outResult
Text -> Ptr RemoteConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientAddConnection2Finish" Ptr RemoteConnection
result
RemoteConnection
result' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
result
Ptr GVariant
outResult' <- Ptr (Ptr GVariant) -> IO (Ptr GVariant)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr GVariant)
outResult
Maybe GVariant
maybeOutResult' <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
outResult' ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
outResult'' -> do
GVariant
outResult''' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
outResult''
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
outResult'''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Ptr (Ptr GVariant) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr GVariant)
outResult
(RemoteConnection, Maybe GVariant)
-> IO (RemoteConnection, Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (RemoteConnection
result', Maybe GVariant
maybeOutResult')
) (do
Ptr (Ptr GVariant) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr GVariant)
outResult
)
#if defined(ENABLE_OVERLOADING)
data ClientAddConnection2FinishMethodInfo
instance (signature ~ (b -> m ((NM.RemoteConnection.RemoteConnection, Maybe GVariant))), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientAddConnection2FinishMethodInfo a signature where
overloadedMethod = clientAddConnection2Finish
instance O.OverloadedMethodInfo ClientAddConnection2FinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddConnection2Finish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddConnection2Finish"
})
#endif
foreign import ccall "nm_client_add_connection_async" nm_client_add_connection_async ::
Ptr Client ->
Ptr NM.Connection.Connection ->
CInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientAddConnectionAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.Connection.IsConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Bool
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientAddConnectionAsync :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsClient a, IsConnection b,
IsCancellable c) =>
a -> b -> Bool -> Maybe c -> Maybe AsyncReadyCallback -> m ()
clientAddConnectionAsync a
client b
connection Bool
saveToDisk Maybe c
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Connection
connection' <- b -> IO (Ptr Connection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
connection
let saveToDisk' :: CInt
saveToDisk' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
saveToDisk
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Connection
-> CInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_add_connection_async Ptr Client
client' Ptr Connection
connection' CInt
saveToDisk' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
connection
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientAddConnectionAsyncMethodInfo
instance (signature ~ (b -> Bool -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, NM.Connection.IsConnection b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod ClientAddConnectionAsyncMethodInfo a signature where
overloadedMethod = clientAddConnectionAsync
instance O.OverloadedMethodInfo ClientAddConnectionAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddConnectionAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddConnectionAsync"
})
#endif
foreign import ccall "nm_client_add_connection_finish" nm_client_add_connection_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr NM.RemoteConnection.RemoteConnection)
clientAddConnectionFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m NM.RemoteConnection.RemoteConnection
clientAddConnectionFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m RemoteConnection
clientAddConnectionFinish a
client b
result_ = IO RemoteConnection -> m RemoteConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RemoteConnection -> m RemoteConnection)
-> IO RemoteConnection -> m RemoteConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO RemoteConnection -> IO () -> IO RemoteConnection
forall a b. IO a -> IO b -> IO a
onException (do
Ptr RemoteConnection
result <- (Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection))
-> (Ptr (Ptr GError) -> IO (Ptr RemoteConnection))
-> IO (Ptr RemoteConnection)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr RemoteConnection)
nm_client_add_connection_finish Ptr Client
client' Ptr AsyncResult
result_'
Text -> Ptr RemoteConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientAddConnectionFinish" Ptr RemoteConnection
result
RemoteConnection
result' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
RemoteConnection -> IO RemoteConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RemoteConnection
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientAddConnectionFinishMethodInfo
instance (signature ~ (b -> m NM.RemoteConnection.RemoteConnection), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientAddConnectionFinishMethodInfo a signature where
overloadedMethod = clientAddConnectionFinish
instance O.OverloadedMethodInfo ClientAddConnectionFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientAddConnectionFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientAddConnectionFinish"
})
#endif
foreign import ccall "nm_client_check_connectivity" nm_client_check_connectivity ::
Ptr Client ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CUInt
{-# DEPRECATED clientCheckConnectivity ["(Since version 1.22)","Use 'GI.NM.Objects.Client.clientCheckConnectivityAsync' or GDBusConnection."] #-}
clientCheckConnectivity ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> m NM.Enums.ConnectivityState
clientCheckConnectivity :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe b -> m ConnectivityState
clientCheckConnectivity a
client Maybe b
cancellable = IO ConnectivityState -> m ConnectivityState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ConnectivityState -> m ConnectivityState)
-> IO ConnectivityState -> m ConnectivityState
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO ConnectivityState -> IO () -> IO ConnectivityState
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr Cancellable -> Ptr (Ptr GError) -> IO CUInt
nm_client_check_connectivity Ptr Client
client' Ptr Cancellable
maybeCancellable
let result' :: ConnectivityState
result' = (Int -> ConnectivityState
forall a. Enum a => Int -> a
toEnum (Int -> ConnectivityState)
-> (CUInt -> Int) -> CUInt -> ConnectivityState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
ConnectivityState -> IO ConnectivityState
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ConnectivityState
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientCheckConnectivityMethodInfo
instance (signature ~ (Maybe (b) -> m NM.Enums.ConnectivityState), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckConnectivityMethodInfo a signature where
overloadedMethod = clientCheckConnectivity
instance O.OverloadedMethodInfo ClientCheckConnectivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckConnectivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckConnectivity"
})
#endif
foreign import ccall "nm_client_check_connectivity_async" nm_client_check_connectivity_async ::
Ptr Client ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientCheckConnectivityAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientCheckConnectivityAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientCheckConnectivityAsync a
client Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_check_connectivity_async Ptr Client
client' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientCheckConnectivityAsyncMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckConnectivityAsyncMethodInfo a signature where
overloadedMethod = clientCheckConnectivityAsync
instance O.OverloadedMethodInfo ClientCheckConnectivityAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckConnectivityAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckConnectivityAsync"
})
#endif
foreign import ccall "nm_client_check_connectivity_finish" nm_client_check_connectivity_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CUInt
clientCheckConnectivityFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m NM.Enums.ConnectivityState
clientCheckConnectivityFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ConnectivityState
clientCheckConnectivityFinish a
client b
result_ = IO ConnectivityState -> m ConnectivityState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ConnectivityState -> m ConnectivityState)
-> IO ConnectivityState -> m ConnectivityState
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO ConnectivityState -> IO () -> IO ConnectivityState
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CUInt
nm_client_check_connectivity_finish Ptr Client
client' Ptr AsyncResult
result_'
let result' :: ConnectivityState
result' = (Int -> ConnectivityState
forall a. Enum a => Int -> a
toEnum (Int -> ConnectivityState)
-> (CUInt -> Int) -> CUInt -> ConnectivityState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
ConnectivityState -> IO ConnectivityState
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ConnectivityState
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientCheckConnectivityFinishMethodInfo
instance (signature ~ (b -> m NM.Enums.ConnectivityState), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientCheckConnectivityFinishMethodInfo a signature where
overloadedMethod = clientCheckConnectivityFinish
instance O.OverloadedMethodInfo ClientCheckConnectivityFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckConnectivityFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckConnectivityFinish"
})
#endif
foreign import ccall "nm_client_checkpoint_adjust_rollback_timeout" nm_client_checkpoint_adjust_rollback_timeout ::
Ptr Client ->
CString ->
Word32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientCheckpointAdjustRollbackTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Word32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientCheckpointAdjustRollbackTimeout :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Text -> Word32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientCheckpointAdjustRollbackTimeout a
client Text
checkpointPath Word32
addTimeout Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
checkpointPath' <- Text -> IO (Ptr CChar)
textToCString Text
checkpointPath
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Word32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_checkpoint_adjust_rollback_timeout Ptr Client
client' Ptr CChar
checkpointPath' Word32
addTimeout Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
checkpointPath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointAdjustRollbackTimeoutMethodInfo
instance (signature ~ (T.Text -> Word32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckpointAdjustRollbackTimeoutMethodInfo a signature where
overloadedMethod = clientCheckpointAdjustRollbackTimeout
instance O.OverloadedMethodInfo ClientCheckpointAdjustRollbackTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointAdjustRollbackTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointAdjustRollbackTimeout"
})
#endif
foreign import ccall "nm_client_checkpoint_adjust_rollback_timeout_finish" nm_client_checkpoint_adjust_rollback_timeout_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientCheckpointAdjustRollbackTimeoutFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientCheckpointAdjustRollbackTimeoutFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientCheckpointAdjustRollbackTimeoutFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_checkpoint_adjust_rollback_timeout_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointAdjustRollbackTimeoutFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientCheckpointAdjustRollbackTimeoutFinishMethodInfo a signature where
overloadedMethod = clientCheckpointAdjustRollbackTimeoutFinish
instance O.OverloadedMethodInfo ClientCheckpointAdjustRollbackTimeoutFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointAdjustRollbackTimeoutFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointAdjustRollbackTimeoutFinish"
})
#endif
foreign import ccall "nm_client_checkpoint_create" nm_client_checkpoint_create ::
Ptr Client ->
Ptr (GPtrArray (Ptr NM.Device.Device)) ->
Word32 ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientCheckpointCreate ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> [NM.Device.Device]
-> Word32
-> [NM.Flags.CheckpointCreateFlags]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientCheckpointCreate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a
-> [Device]
-> Word32
-> [CheckpointCreateFlags]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
clientCheckpointCreate a
client [Device]
devices Word32
rollbackTimeout [CheckpointCreateFlags]
flags Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
[Ptr Device]
devices' <- (Device -> IO (Ptr Device)) -> [Device] -> IO [Ptr Device]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Device -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [Device]
devices
Ptr (GPtrArray (Ptr Device))
devices'' <- [Ptr Device] -> IO (Ptr (GPtrArray (Ptr Device)))
forall a. [Ptr a] -> IO (Ptr (GPtrArray (Ptr a)))
packGPtrArray [Ptr Device]
devices'
let flags' :: CUInt
flags' = [CheckpointCreateFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CheckpointCreateFlags]
flags
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr (GPtrArray (Ptr Device))
-> Word32
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_checkpoint_create Ptr Client
client' Ptr (GPtrArray (Ptr Device))
devices'' Word32
rollbackTimeout CUInt
flags' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
ClientAnyDeviceAddedCallback -> [Device] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ ClientAnyDeviceAddedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Device]
devices
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr (GPtrArray (Ptr Device)) -> IO ()
forall a. Ptr (GPtrArray a) -> IO ()
unrefPtrArray Ptr (GPtrArray (Ptr Device))
devices''
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointCreateMethodInfo
instance (signature ~ ([NM.Device.Device] -> Word32 -> [NM.Flags.CheckpointCreateFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckpointCreateMethodInfo a signature where
overloadedMethod = clientCheckpointCreate
instance O.OverloadedMethodInfo ClientCheckpointCreateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointCreate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointCreate"
})
#endif
foreign import ccall "nm_client_checkpoint_create_finish" nm_client_checkpoint_create_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr NM.Checkpoint.Checkpoint)
clientCheckpointCreateFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m NM.Checkpoint.Checkpoint
clientCheckpointCreateFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m Checkpoint
clientCheckpointCreateFinish a
client b
result_ = IO Checkpoint -> m Checkpoint
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Checkpoint -> m Checkpoint) -> IO Checkpoint -> m Checkpoint
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO Checkpoint -> IO () -> IO Checkpoint
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Checkpoint
result <- (Ptr (Ptr GError) -> IO (Ptr Checkpoint)) -> IO (Ptr Checkpoint)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Checkpoint)) -> IO (Ptr Checkpoint))
-> (Ptr (Ptr GError) -> IO (Ptr Checkpoint)) -> IO (Ptr Checkpoint)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr Checkpoint)
nm_client_checkpoint_create_finish Ptr Client
client' Ptr AsyncResult
result_'
Text -> Ptr Checkpoint -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientCheckpointCreateFinish" Ptr Checkpoint
result
Checkpoint
result' <- ((ManagedPtr Checkpoint -> Checkpoint)
-> Ptr Checkpoint -> IO Checkpoint
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Checkpoint -> Checkpoint
NM.Checkpoint.Checkpoint) Ptr Checkpoint
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Checkpoint -> IO Checkpoint
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Checkpoint
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointCreateFinishMethodInfo
instance (signature ~ (b -> m NM.Checkpoint.Checkpoint), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientCheckpointCreateFinishMethodInfo a signature where
overloadedMethod = clientCheckpointCreateFinish
instance O.OverloadedMethodInfo ClientCheckpointCreateFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointCreateFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointCreateFinish"
})
#endif
foreign import ccall "nm_client_checkpoint_destroy" nm_client_checkpoint_destroy ::
Ptr Client ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientCheckpointDestroy ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientCheckpointDestroy :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientCheckpointDestroy a
client Text
checkpointPath Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
checkpointPath' <- Text -> IO (Ptr CChar)
textToCString Text
checkpointPath
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_checkpoint_destroy Ptr Client
client' Ptr CChar
checkpointPath' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
checkpointPath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointDestroyMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckpointDestroyMethodInfo a signature where
overloadedMethod = clientCheckpointDestroy
instance O.OverloadedMethodInfo ClientCheckpointDestroyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointDestroy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointDestroy"
})
#endif
foreign import ccall "nm_client_checkpoint_destroy_finish" nm_client_checkpoint_destroy_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientCheckpointDestroyFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientCheckpointDestroyFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientCheckpointDestroyFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_checkpoint_destroy_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointDestroyFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientCheckpointDestroyFinishMethodInfo a signature where
overloadedMethod = clientCheckpointDestroyFinish
instance O.OverloadedMethodInfo ClientCheckpointDestroyFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointDestroyFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointDestroyFinish"
})
#endif
foreign import ccall "nm_client_checkpoint_rollback" nm_client_checkpoint_rollback ::
Ptr Client ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientCheckpointRollback ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientCheckpointRollback :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientCheckpointRollback a
client Text
checkpointPath Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
checkpointPath' <- Text -> IO (Ptr CChar)
textToCString Text
checkpointPath
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_checkpoint_rollback Ptr Client
client' Ptr CChar
checkpointPath' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
checkpointPath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointRollbackMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientCheckpointRollbackMethodInfo a signature where
overloadedMethod = clientCheckpointRollback
instance O.OverloadedMethodInfo ClientCheckpointRollbackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientCheckpointRollback",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientCheckpointRollback"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ClientCheckpointRollbackFinishMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "checkpointRollbackFinish" Client) => O.OverloadedMethod ClientCheckpointRollbackFinishMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "checkpointRollbackFinish" Client) => O.OverloadedMethodInfo ClientCheckpointRollbackFinishMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "nm_client_connectivity_check_get_available" nm_client_connectivity_check_get_available ::
Ptr Client ->
IO CInt
clientConnectivityCheckGetAvailable ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientConnectivityCheckGetAvailable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientConnectivityCheckGetAvailable a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_connectivity_check_get_available Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckGetAvailableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientConnectivityCheckGetAvailableMethodInfo a signature where
overloadedMethod = clientConnectivityCheckGetAvailable
instance O.OverloadedMethodInfo ClientConnectivityCheckGetAvailableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientConnectivityCheckGetAvailable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientConnectivityCheckGetAvailable"
})
#endif
foreign import ccall "nm_client_connectivity_check_get_enabled" nm_client_connectivity_check_get_enabled ::
Ptr Client ->
IO CInt
clientConnectivityCheckGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientConnectivityCheckGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientConnectivityCheckGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_connectivity_check_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientConnectivityCheckGetEnabledMethodInfo a signature where
overloadedMethod = clientConnectivityCheckGetEnabled
instance O.OverloadedMethodInfo ClientConnectivityCheckGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientConnectivityCheckGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientConnectivityCheckGetEnabled"
})
#endif
foreign import ccall "nm_client_connectivity_check_get_uri" nm_client_connectivity_check_get_uri ::
Ptr Client ->
IO CString
clientConnectivityCheckGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m T.Text
clientConnectivityCheckGetUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Text
clientConnectivityCheckGetUri a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
result <- Ptr Client -> IO (Ptr CChar)
nm_client_connectivity_check_get_uri Ptr Client
client'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientConnectivityCheckGetUri" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsClient a) => O.OverloadedMethod ClientConnectivityCheckGetUriMethodInfo a signature where
overloadedMethod = clientConnectivityCheckGetUri
instance O.OverloadedMethodInfo ClientConnectivityCheckGetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientConnectivityCheckGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientConnectivityCheckGetUri"
})
#endif
foreign import ccall "nm_client_connectivity_check_set_enabled" nm_client_connectivity_check_set_enabled ::
Ptr Client ->
CInt ->
IO ()
{-# DEPRECATED clientConnectivityCheckSetEnabled ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusSetProperty' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to set \\\"ConnectivityCheckEnabled\\\" property to a \\\"(b)\\\" value."] #-}
clientConnectivityCheckSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Bool
-> m ()
clientConnectivityCheckSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Bool -> m ()
clientConnectivityCheckSetEnabled a
client Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
Ptr Client -> CInt -> IO ()
nm_client_connectivity_check_set_enabled Ptr Client
client' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientConnectivityCheckSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientConnectivityCheckSetEnabledMethodInfo a signature where
overloadedMethod = clientConnectivityCheckSetEnabled
instance O.OverloadedMethodInfo ClientConnectivityCheckSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientConnectivityCheckSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientConnectivityCheckSetEnabled"
})
#endif
foreign import ccall "nm_client_dbus_call" nm_client_dbus_call ::
Ptr Client ->
CString ->
CString ->
CString ->
Ptr GVariant ->
Ptr GLib.VariantType.VariantType ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientDbusCall ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> T.Text
-> T.Text
-> Maybe (GVariant)
-> Maybe (GLib.VariantType.VariantType)
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientDbusCall :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a
-> Text
-> Text
-> Text
-> Maybe GVariant
-> Maybe VariantType
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
clientDbusCall a
client Text
objectPath Text
interfaceName Text
methodName Maybe GVariant
parameters Maybe VariantType
replyType Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
objectPath' <- Text -> IO (Ptr CChar)
textToCString Text
objectPath
Ptr CChar
interfaceName' <- Text -> IO (Ptr CChar)
textToCString Text
interfaceName
Ptr CChar
methodName' <- Text -> IO (Ptr CChar)
textToCString Text
methodName
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
FP.nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
Ptr VariantType
maybeReplyType <- case Maybe VariantType
replyType of
Maybe VariantType
Nothing -> Ptr VariantType -> IO (Ptr VariantType)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr VariantType
forall a. Ptr a
FP.nullPtr
Just VariantType
jReplyType -> do
Ptr VariantType
jReplyType' <- VariantType -> IO (Ptr VariantType)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VariantType
jReplyType
Ptr VariantType -> IO (Ptr VariantType)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr VariantType
jReplyType'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr GVariant
-> Ptr VariantType
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_dbus_call Ptr Client
client' Ptr CChar
objectPath' Ptr CChar
interfaceName' Ptr CChar
methodName' Ptr GVariant
maybeParameters Ptr VariantType
maybeReplyType Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe GVariant -> (GVariant -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe VariantType -> (VariantType -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe VariantType
replyType VariantType -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
objectPath'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
interfaceName'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
methodName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientDbusCallMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType.VariantType) -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientDbusCallMethodInfo a signature where
overloadedMethod = clientDbusCall
instance O.OverloadedMethodInfo ClientDbusCallMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDbusCall",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDbusCall"
})
#endif
foreign import ccall "nm_client_dbus_call_finish" nm_client_dbus_call_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr GVariant)
clientDbusCallFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m GVariant
clientDbusCallFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m GVariant
clientDbusCallFinish a
client b
result_ = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO GVariant -> IO () -> IO GVariant
forall a b. IO a -> IO b -> IO a
onException (do
Ptr GVariant
result <- (Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant))
-> (Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant)
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr GVariant)
nm_client_dbus_call_finish Ptr Client
client' Ptr AsyncResult
result_'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientDbusCallFinish" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientDbusCallFinishMethodInfo
instance (signature ~ (b -> m GVariant), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientDbusCallFinishMethodInfo a signature where
overloadedMethod = clientDbusCallFinish
instance O.OverloadedMethodInfo ClientDbusCallFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDbusCallFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDbusCallFinish"
})
#endif
foreign import ccall "nm_client_dbus_set_property" nm_client_dbus_set_property ::
Ptr Client ->
CString ->
CString ->
CString ->
Ptr GVariant ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientDbusSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> T.Text
-> T.Text
-> GVariant
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientDbusSetProperty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a
-> Text
-> Text
-> Text
-> GVariant
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
clientDbusSetProperty a
client Text
objectPath Text
interfaceName Text
propertyName GVariant
value Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
objectPath' <- Text -> IO (Ptr CChar)
textToCString Text
objectPath
Ptr CChar
interfaceName' <- Text -> IO (Ptr CChar)
textToCString Text
interfaceName
Ptr CChar
propertyName' <- Text -> IO (Ptr CChar)
textToCString Text
propertyName
Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr GVariant
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_dbus_set_property Ptr Client
client' Ptr CChar
objectPath' Ptr CChar
interfaceName' Ptr CChar
propertyName' Ptr GVariant
value' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
objectPath'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
interfaceName'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
propertyName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientDbusSetPropertyMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> GVariant -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientDbusSetPropertyMethodInfo a signature where
overloadedMethod = clientDbusSetProperty
instance O.OverloadedMethodInfo ClientDbusSetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDbusSetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDbusSetProperty"
})
#endif
foreign import ccall "nm_client_dbus_set_property_finish" nm_client_dbus_set_property_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientDbusSetPropertyFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientDbusSetPropertyFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientDbusSetPropertyFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_dbus_set_property_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientDbusSetPropertyFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientDbusSetPropertyFinishMethodInfo a signature where
overloadedMethod = clientDbusSetPropertyFinish
instance O.OverloadedMethodInfo ClientDbusSetPropertyFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDbusSetPropertyFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDbusSetPropertyFinish"
})
#endif
foreign import ccall "nm_client_deactivate_connection" nm_client_deactivate_connection ::
Ptr Client ->
Ptr NM.ActiveConnection.ActiveConnection ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientDeactivateConnection ["(Since version 1.22)","Use 'GI.NM.Objects.Client.clientDeactivateConnectionAsync' or GDBusConnection."] #-}
clientDeactivateConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.ActiveConnection.IsActiveConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m ()
clientDeactivateConnection :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsClient a, IsActiveConnection b,
IsCancellable c) =>
a -> b -> Maybe c -> m ()
clientDeactivateConnection a
client b
active Maybe c
cancellable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr ActiveConnection
active' <- b -> IO (Ptr ActiveConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
active
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr ActiveConnection
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CInt
nm_client_deactivate_connection Ptr Client
client' Ptr ActiveConnection
active' Ptr Cancellable
maybeCancellable
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
active
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientDeactivateConnectionMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsClient a, NM.ActiveConnection.IsActiveConnection b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod ClientDeactivateConnectionMethodInfo a signature where
overloadedMethod = clientDeactivateConnection
instance O.OverloadedMethodInfo ClientDeactivateConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDeactivateConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDeactivateConnection"
})
#endif
foreign import ccall "nm_client_deactivate_connection_async" nm_client_deactivate_connection_async ::
Ptr Client ->
Ptr NM.ActiveConnection.ActiveConnection ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientDeactivateConnectionAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, NM.ActiveConnection.IsActiveConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientDeactivateConnectionAsync :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsClient a, IsActiveConnection b,
IsCancellable c) =>
a -> b -> Maybe c -> Maybe AsyncReadyCallback -> m ()
clientDeactivateConnectionAsync a
client b
active Maybe c
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr ActiveConnection
active' <- b -> IO (Ptr ActiveConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
active
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr ActiveConnection
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_deactivate_connection_async Ptr Client
client' Ptr ActiveConnection
active' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
active
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientDeactivateConnectionAsyncMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, NM.ActiveConnection.IsActiveConnection b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod ClientDeactivateConnectionAsyncMethodInfo a signature where
overloadedMethod = clientDeactivateConnectionAsync
instance O.OverloadedMethodInfo ClientDeactivateConnectionAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDeactivateConnectionAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDeactivateConnectionAsync"
})
#endif
foreign import ccall "nm_client_deactivate_connection_finish" nm_client_deactivate_connection_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientDeactivateConnectionFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientDeactivateConnectionFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientDeactivateConnectionFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_deactivate_connection_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientDeactivateConnectionFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientDeactivateConnectionFinishMethodInfo a signature where
overloadedMethod = clientDeactivateConnectionFinish
instance O.OverloadedMethodInfo ClientDeactivateConnectionFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientDeactivateConnectionFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientDeactivateConnectionFinish"
})
#endif
foreign import ccall "nm_client_get_activating_connection" nm_client_get_activating_connection ::
Ptr Client ->
IO (Ptr NM.ActiveConnection.ActiveConnection)
clientGetActivatingConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.ActiveConnection.ActiveConnection
clientGetActivatingConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m ActiveConnection
clientGetActivatingConnection a
client = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr ActiveConnection
result <- Ptr Client -> IO (Ptr ActiveConnection)
nm_client_get_activating_connection Ptr Client
client'
Text -> Ptr ActiveConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetActivatingConnection" Ptr ActiveConnection
result
ActiveConnection
result' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
ActiveConnection -> IO ActiveConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ActiveConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetActivatingConnectionMethodInfo
instance (signature ~ (m NM.ActiveConnection.ActiveConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetActivatingConnectionMethodInfo a signature where
overloadedMethod = clientGetActivatingConnection
instance O.OverloadedMethodInfo ClientGetActivatingConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetActivatingConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetActivatingConnection"
})
#endif
foreign import ccall "nm_client_get_active_connections" nm_client_get_active_connections ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.ActiveConnection.ActiveConnection)))
clientGetActiveConnections ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.ActiveConnection.ActiveConnection]
clientGetActiveConnections :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [ActiveConnection]
clientGetActiveConnections a
client = IO [ActiveConnection] -> m [ActiveConnection]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ActiveConnection] -> m [ActiveConnection])
-> IO [ActiveConnection] -> m [ActiveConnection]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr ActiveConnection))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr ActiveConnection)))
nm_client_get_active_connections Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr ActiveConnection)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetActiveConnections" Ptr (GPtrArray (Ptr ActiveConnection))
result
[Ptr ActiveConnection]
result' <- Ptr (GPtrArray (Ptr ActiveConnection)) -> IO [Ptr ActiveConnection]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr ActiveConnection))
result
[ActiveConnection]
result'' <- (Ptr ActiveConnection -> IO ActiveConnection)
-> [Ptr ActiveConnection] -> IO [ActiveConnection]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) [Ptr ActiveConnection]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[ActiveConnection] -> IO [ActiveConnection]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [ActiveConnection]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetActiveConnectionsMethodInfo
instance (signature ~ (m [NM.ActiveConnection.ActiveConnection]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetActiveConnectionsMethodInfo a signature where
overloadedMethod = clientGetActiveConnections
instance O.OverloadedMethodInfo ClientGetActiveConnectionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetActiveConnections",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetActiveConnections"
})
#endif
foreign import ccall "nm_client_get_all_devices" nm_client_get_all_devices ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.Device.Device)))
clientGetAllDevices ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.Device.Device]
clientGetAllDevices :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [Device]
clientGetAllDevices a
client = IO [Device] -> m [Device]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Device] -> m [Device]) -> IO [Device] -> m [Device]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr Device))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr Device)))
nm_client_get_all_devices Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr Device)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetAllDevices" Ptr (GPtrArray (Ptr Device))
result
[Ptr Device]
result' <- Ptr (GPtrArray (Ptr Device)) -> IO [Ptr Device]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr Device))
result
[Device]
result'' <- (Ptr Device -> IO Device) -> [Ptr Device] -> IO [Device]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) [Ptr Device]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[Device] -> IO [Device]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Device]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetAllDevicesMethodInfo
instance (signature ~ (m [NM.Device.Device]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetAllDevicesMethodInfo a signature where
overloadedMethod = clientGetAllDevices
instance O.OverloadedMethodInfo ClientGetAllDevicesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetAllDevices",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetAllDevices"
})
#endif
foreign import ccall "nm_client_get_capabilities" nm_client_get_capabilities ::
Ptr Client ->
Ptr FCT.CSize ->
IO (Ptr Word32)
clientGetCapabilities ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [Word32]
clientGetCapabilities :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [Word32]
clientGetCapabilities a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CSize
length_ <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
Ptr Word32
result <- Ptr Client -> Ptr CSize -> IO (Ptr Word32)
nm_client_get_capabilities Ptr Client
client' Ptr CSize
length_
CSize
length_' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
length_
Text -> Ptr Word32 -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetCapabilities" Ptr Word32
result
[Word32]
result' <- (CSize -> Ptr Word32 -> IO [Word32]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength CSize
length_') Ptr Word32
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
length_
[Word32] -> IO [Word32]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Word32]
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetCapabilitiesMethodInfo
instance (signature ~ (m [Word32]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetCapabilitiesMethodInfo a signature where
overloadedMethod = clientGetCapabilities
instance O.OverloadedMethodInfo ClientGetCapabilitiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetCapabilities",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetCapabilities"
})
#endif
foreign import ccall "nm_client_get_checkpoints" nm_client_get_checkpoints ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.Checkpoint.Checkpoint)))
clientGetCheckpoints ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.Checkpoint.Checkpoint]
clientGetCheckpoints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [Checkpoint]
clientGetCheckpoints a
client = IO [Checkpoint] -> m [Checkpoint]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Checkpoint] -> m [Checkpoint])
-> IO [Checkpoint] -> m [Checkpoint]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr Checkpoint))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr Checkpoint)))
nm_client_get_checkpoints Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr Checkpoint)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetCheckpoints" Ptr (GPtrArray (Ptr Checkpoint))
result
[Ptr Checkpoint]
result' <- Ptr (GPtrArray (Ptr Checkpoint)) -> IO [Ptr Checkpoint]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr Checkpoint))
result
[Checkpoint]
result'' <- (Ptr Checkpoint -> IO Checkpoint)
-> [Ptr Checkpoint] -> IO [Checkpoint]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Checkpoint -> Checkpoint)
-> Ptr Checkpoint -> IO Checkpoint
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Checkpoint -> Checkpoint
NM.Checkpoint.Checkpoint) [Ptr Checkpoint]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[Checkpoint] -> IO [Checkpoint]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Checkpoint]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetCheckpointsMethodInfo
instance (signature ~ (m [NM.Checkpoint.Checkpoint]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetCheckpointsMethodInfo a signature where
overloadedMethod = clientGetCheckpoints
instance O.OverloadedMethodInfo ClientGetCheckpointsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetCheckpoints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetCheckpoints"
})
#endif
foreign import ccall "nm_client_get_connection_by_id" nm_client_get_connection_by_id ::
Ptr Client ->
CString ->
IO (Ptr NM.RemoteConnection.RemoteConnection)
clientGetConnectionById ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.RemoteConnection.RemoteConnection
clientGetConnectionById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m RemoteConnection
clientGetConnectionById a
client Text
id = IO RemoteConnection -> m RemoteConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RemoteConnection -> m RemoteConnection)
-> IO RemoteConnection -> m RemoteConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
id' <- Text -> IO (Ptr CChar)
textToCString Text
id
Ptr RemoteConnection
result <- Ptr Client -> Ptr CChar -> IO (Ptr RemoteConnection)
nm_client_get_connection_by_id Ptr Client
client' Ptr CChar
id'
Text -> Ptr RemoteConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetConnectionById" Ptr RemoteConnection
result
RemoteConnection
result' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
id'
RemoteConnection -> IO RemoteConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RemoteConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetConnectionByIdMethodInfo
instance (signature ~ (T.Text -> m NM.RemoteConnection.RemoteConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetConnectionByIdMethodInfo a signature where
overloadedMethod = clientGetConnectionById
instance O.OverloadedMethodInfo ClientGetConnectionByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetConnectionById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetConnectionById"
})
#endif
foreign import ccall "nm_client_get_connection_by_path" nm_client_get_connection_by_path ::
Ptr Client ->
CString ->
IO (Ptr NM.RemoteConnection.RemoteConnection)
clientGetConnectionByPath ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.RemoteConnection.RemoteConnection
clientGetConnectionByPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m RemoteConnection
clientGetConnectionByPath a
client Text
path = IO RemoteConnection -> m RemoteConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RemoteConnection -> m RemoteConnection)
-> IO RemoteConnection -> m RemoteConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
path' <- Text -> IO (Ptr CChar)
textToCString Text
path
Ptr RemoteConnection
result <- Ptr Client -> Ptr CChar -> IO (Ptr RemoteConnection)
nm_client_get_connection_by_path Ptr Client
client' Ptr CChar
path'
Text -> Ptr RemoteConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetConnectionByPath" Ptr RemoteConnection
result
RemoteConnection
result' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
path'
RemoteConnection -> IO RemoteConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RemoteConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetConnectionByPathMethodInfo
instance (signature ~ (T.Text -> m NM.RemoteConnection.RemoteConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetConnectionByPathMethodInfo a signature where
overloadedMethod = clientGetConnectionByPath
instance O.OverloadedMethodInfo ClientGetConnectionByPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetConnectionByPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetConnectionByPath"
})
#endif
foreign import ccall "nm_client_get_connection_by_uuid" nm_client_get_connection_by_uuid ::
Ptr Client ->
CString ->
IO (Ptr NM.RemoteConnection.RemoteConnection)
clientGetConnectionByUuid ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.RemoteConnection.RemoteConnection
clientGetConnectionByUuid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m RemoteConnection
clientGetConnectionByUuid a
client Text
uuid = IO RemoteConnection -> m RemoteConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RemoteConnection -> m RemoteConnection)
-> IO RemoteConnection -> m RemoteConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
uuid' <- Text -> IO (Ptr CChar)
textToCString Text
uuid
Ptr RemoteConnection
result <- Ptr Client -> Ptr CChar -> IO (Ptr RemoteConnection)
nm_client_get_connection_by_uuid Ptr Client
client' Ptr CChar
uuid'
Text -> Ptr RemoteConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetConnectionByUuid" Ptr RemoteConnection
result
RemoteConnection
result' <- ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) Ptr RemoteConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uuid'
RemoteConnection -> IO RemoteConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RemoteConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetConnectionByUuidMethodInfo
instance (signature ~ (T.Text -> m NM.RemoteConnection.RemoteConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetConnectionByUuidMethodInfo a signature where
overloadedMethod = clientGetConnectionByUuid
instance O.OverloadedMethodInfo ClientGetConnectionByUuidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetConnectionByUuid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetConnectionByUuid"
})
#endif
foreign import ccall "nm_client_get_connections" nm_client_get_connections ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.RemoteConnection.RemoteConnection)))
clientGetConnections ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.RemoteConnection.RemoteConnection]
clientGetConnections :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [RemoteConnection]
clientGetConnections a
client = IO [RemoteConnection] -> m [RemoteConnection]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [RemoteConnection] -> m [RemoteConnection])
-> IO [RemoteConnection] -> m [RemoteConnection]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr RemoteConnection))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr RemoteConnection)))
nm_client_get_connections Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr RemoteConnection)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetConnections" Ptr (GPtrArray (Ptr RemoteConnection))
result
[Ptr RemoteConnection]
result' <- Ptr (GPtrArray (Ptr RemoteConnection)) -> IO [Ptr RemoteConnection]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr RemoteConnection))
result
[RemoteConnection]
result'' <- (Ptr RemoteConnection -> IO RemoteConnection)
-> [Ptr RemoteConnection] -> IO [RemoteConnection]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr RemoteConnection -> RemoteConnection)
-> Ptr RemoteConnection -> IO RemoteConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RemoteConnection -> RemoteConnection
NM.RemoteConnection.RemoteConnection) [Ptr RemoteConnection]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[RemoteConnection] -> IO [RemoteConnection]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [RemoteConnection]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetConnectionsMethodInfo
instance (signature ~ (m [NM.RemoteConnection.RemoteConnection]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetConnectionsMethodInfo a signature where
overloadedMethod = clientGetConnections
instance O.OverloadedMethodInfo ClientGetConnectionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetConnections",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetConnections"
})
#endif
foreign import ccall "nm_client_get_connectivity" nm_client_get_connectivity ::
Ptr Client ->
IO CUInt
clientGetConnectivity ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.Enums.ConnectivityState
clientGetConnectivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m ConnectivityState
clientGetConnectivity a
client = IO ConnectivityState -> m ConnectivityState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ConnectivityState -> m ConnectivityState)
-> IO ConnectivityState -> m ConnectivityState
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CUInt
result <- Ptr Client -> IO CUInt
nm_client_get_connectivity Ptr Client
client'
let result' :: ConnectivityState
result' = (Int -> ConnectivityState
forall a. Enum a => Int -> a
toEnum (Int -> ConnectivityState)
-> (CUInt -> Int) -> CUInt -> ConnectivityState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
ConnectivityState -> IO ConnectivityState
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ConnectivityState
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetConnectivityMethodInfo
instance (signature ~ (m NM.Enums.ConnectivityState), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetConnectivityMethodInfo a signature where
overloadedMethod = clientGetConnectivity
instance O.OverloadedMethodInfo ClientGetConnectivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetConnectivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetConnectivity"
})
#endif
foreign import ccall "nm_client_get_context_busy_watcher" nm_client_get_context_busy_watcher ::
Ptr Client ->
IO (Ptr GObject.Object.Object)
clientGetContextBusyWatcher ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m GObject.Object.Object
clientGetContextBusyWatcher :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Object
clientGetContextBusyWatcher a
self = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
self' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Object
result <- Ptr Client -> IO (Ptr Object)
nm_client_get_context_busy_watcher Ptr Client
self'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetContextBusyWatcher" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetContextBusyWatcherMethodInfo
instance (signature ~ (m GObject.Object.Object), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetContextBusyWatcherMethodInfo a signature where
overloadedMethod = clientGetContextBusyWatcher
instance O.OverloadedMethodInfo ClientGetContextBusyWatcherMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetContextBusyWatcher",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetContextBusyWatcher"
})
#endif
foreign import ccall "nm_client_get_dbus_connection" nm_client_get_dbus_connection ::
Ptr Client ->
IO (Ptr Gio.DBusConnection.DBusConnection)
clientGetDbusConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Gio.DBusConnection.DBusConnection
clientGetDbusConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m DBusConnection
clientGetDbusConnection a
client = IO DBusConnection -> m DBusConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusConnection -> m DBusConnection)
-> IO DBusConnection -> m DBusConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr DBusConnection
result <- Ptr Client -> IO (Ptr DBusConnection)
nm_client_get_dbus_connection Ptr Client
client'
Text -> Ptr DBusConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDbusConnection" Ptr DBusConnection
result
DBusConnection
result' <- ((ManagedPtr DBusConnection -> DBusConnection)
-> Ptr DBusConnection -> IO DBusConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection) Ptr DBusConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
DBusConnection -> IO DBusConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDbusConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDbusConnectionMethodInfo a signature where
overloadedMethod = clientGetDbusConnection
instance O.OverloadedMethodInfo ClientGetDbusConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDbusConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDbusConnection"
})
#endif
foreign import ccall "nm_client_get_dbus_name_owner" nm_client_get_dbus_name_owner ::
Ptr Client ->
IO CString
clientGetDbusNameOwner ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m T.Text
clientGetDbusNameOwner :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Text
clientGetDbusNameOwner a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
result <- Ptr Client -> IO (Ptr CChar)
nm_client_get_dbus_name_owner Ptr Client
client'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDbusNameOwner" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDbusNameOwnerMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDbusNameOwnerMethodInfo a signature where
overloadedMethod = clientGetDbusNameOwner
instance O.OverloadedMethodInfo ClientGetDbusNameOwnerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDbusNameOwner",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDbusNameOwner"
})
#endif
foreign import ccall "nm_client_get_device_by_iface" nm_client_get_device_by_iface ::
Ptr Client ->
CString ->
IO (Ptr NM.Device.Device)
clientGetDeviceByIface ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.Device.Device
clientGetDeviceByIface :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m Device
clientGetDeviceByIface a
client Text
iface = IO Device -> m Device
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Device -> m Device) -> IO Device -> m Device
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
iface' <- Text -> IO (Ptr CChar)
textToCString Text
iface
Ptr Device
result <- Ptr Client -> Ptr CChar -> IO (Ptr Device)
nm_client_get_device_by_iface Ptr Client
client' Ptr CChar
iface'
Text -> Ptr Device -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDeviceByIface" Ptr Device
result
Device
result' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
iface'
Device -> IO Device
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Device
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDeviceByIfaceMethodInfo
instance (signature ~ (T.Text -> m NM.Device.Device), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDeviceByIfaceMethodInfo a signature where
overloadedMethod = clientGetDeviceByIface
instance O.OverloadedMethodInfo ClientGetDeviceByIfaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDeviceByIface",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDeviceByIface"
})
#endif
foreign import ccall "nm_client_get_device_by_path" nm_client_get_device_by_path ::
Ptr Client ->
CString ->
IO (Ptr NM.Device.Device)
clientGetDeviceByPath ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.Device.Device
clientGetDeviceByPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m Device
clientGetDeviceByPath a
client Text
objectPath = IO Device -> m Device
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Device -> m Device) -> IO Device -> m Device
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
objectPath' <- Text -> IO (Ptr CChar)
textToCString Text
objectPath
Ptr Device
result <- Ptr Client -> Ptr CChar -> IO (Ptr Device)
nm_client_get_device_by_path Ptr Client
client' Ptr CChar
objectPath'
Text -> Ptr Device -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDeviceByPath" Ptr Device
result
Device
result' <- ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) Ptr Device
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
objectPath'
Device -> IO Device
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Device
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDeviceByPathMethodInfo
instance (signature ~ (T.Text -> m NM.Device.Device), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDeviceByPathMethodInfo a signature where
overloadedMethod = clientGetDeviceByPath
instance O.OverloadedMethodInfo ClientGetDeviceByPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDeviceByPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDeviceByPath"
})
#endif
foreign import ccall "nm_client_get_devices" nm_client_get_devices ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.Device.Device)))
clientGetDevices ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.Device.Device]
clientGetDevices :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [Device]
clientGetDevices a
client = IO [Device] -> m [Device]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Device] -> m [Device]) -> IO [Device] -> m [Device]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr Device))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr Device)))
nm_client_get_devices Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr Device)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDevices" Ptr (GPtrArray (Ptr Device))
result
[Ptr Device]
result' <- Ptr (GPtrArray (Ptr Device)) -> IO [Ptr Device]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr Device))
result
[Device]
result'' <- (Ptr Device -> IO Device) -> [Ptr Device] -> IO [Device]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Device -> Device) -> Ptr Device -> IO Device
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
NM.Device.Device) [Ptr Device]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[Device] -> IO [Device]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Device]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetDevicesMethodInfo
instance (signature ~ (m [NM.Device.Device]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDevicesMethodInfo a signature where
overloadedMethod = clientGetDevices
instance O.OverloadedMethodInfo ClientGetDevicesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDevices",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDevices"
})
#endif
foreign import ccall "nm_client_get_dns_configuration" nm_client_get_dns_configuration ::
Ptr Client ->
IO (Ptr (GPtrArray (Ptr NM.DnsEntry.DnsEntry)))
clientGetDnsConfiguration ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.DnsEntry.DnsEntry]
clientGetDnsConfiguration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [DnsEntry]
clientGetDnsConfiguration a
client = IO [DnsEntry] -> m [DnsEntry]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [DnsEntry] -> m [DnsEntry]) -> IO [DnsEntry] -> m [DnsEntry]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (GPtrArray (Ptr DnsEntry))
result <- Ptr Client -> IO (Ptr (GPtrArray (Ptr DnsEntry)))
nm_client_get_dns_configuration Ptr Client
client'
Text -> Ptr (GPtrArray (Ptr DnsEntry)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDnsConfiguration" Ptr (GPtrArray (Ptr DnsEntry))
result
[Ptr DnsEntry]
result' <- Ptr (GPtrArray (Ptr DnsEntry)) -> IO [Ptr DnsEntry]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr DnsEntry))
result
[DnsEntry]
result'' <- (Ptr DnsEntry -> IO DnsEntry) -> [Ptr DnsEntry] -> IO [DnsEntry]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr DnsEntry -> DnsEntry) -> Ptr DnsEntry -> IO DnsEntry
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DnsEntry -> DnsEntry
NM.DnsEntry.DnsEntry) [Ptr DnsEntry]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
[DnsEntry] -> IO [DnsEntry]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [DnsEntry]
result''
#if defined(ENABLE_OVERLOADING)
data ClientGetDnsConfigurationMethodInfo
instance (signature ~ (m [NM.DnsEntry.DnsEntry]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDnsConfigurationMethodInfo a signature where
overloadedMethod = clientGetDnsConfiguration
instance O.OverloadedMethodInfo ClientGetDnsConfigurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDnsConfiguration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDnsConfiguration"
})
#endif
foreign import ccall "nm_client_get_dns_mode" nm_client_get_dns_mode ::
Ptr Client ->
IO CString
clientGetDnsMode ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m T.Text
clientGetDnsMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Text
clientGetDnsMode a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
result <- Ptr Client -> IO (Ptr CChar)
nm_client_get_dns_mode Ptr Client
client'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDnsMode" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDnsModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDnsModeMethodInfo a signature where
overloadedMethod = clientGetDnsMode
instance O.OverloadedMethodInfo ClientGetDnsModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDnsMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDnsMode"
})
#endif
foreign import ccall "nm_client_get_dns_rc_manager" nm_client_get_dns_rc_manager ::
Ptr Client ->
IO CString
clientGetDnsRcManager ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m T.Text
clientGetDnsRcManager :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Text
clientGetDnsRcManager a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
result <- Ptr Client -> IO (Ptr CChar)
nm_client_get_dns_rc_manager Ptr Client
client'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetDnsRcManager" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetDnsRcManagerMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetDnsRcManagerMethodInfo a signature where
overloadedMethod = clientGetDnsRcManager
instance O.OverloadedMethodInfo ClientGetDnsRcManagerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetDnsRcManager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetDnsRcManager"
})
#endif
foreign import ccall "nm_client_get_instance_flags" nm_client_get_instance_flags ::
Ptr Client ->
IO CUInt
clientGetInstanceFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.Flags.ClientInstanceFlags]
clientGetInstanceFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [ClientInstanceFlags]
clientGetInstanceFlags a
self = IO [ClientInstanceFlags] -> m [ClientInstanceFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ClientInstanceFlags] -> m [ClientInstanceFlags])
-> IO [ClientInstanceFlags] -> m [ClientInstanceFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
self' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Client -> IO CUInt
nm_client_get_instance_flags Ptr Client
self'
let result' :: [ClientInstanceFlags]
result' = CUInt -> [ClientInstanceFlags]
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
[ClientInstanceFlags] -> IO [ClientInstanceFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [ClientInstanceFlags]
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetInstanceFlagsMethodInfo
instance (signature ~ (m [NM.Flags.ClientInstanceFlags]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetInstanceFlagsMethodInfo a signature where
overloadedMethod = clientGetInstanceFlags
instance O.OverloadedMethodInfo ClientGetInstanceFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetInstanceFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetInstanceFlags"
})
#endif
foreign import ccall "nm_client_get_logging" nm_client_get_logging ::
Ptr Client ->
Ptr CString ->
Ptr CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientGetLogging ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusCall' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to call \\\"GetLogging\\\" with no arguments to get \\\"(ss)\\\" for level","and domains."] #-}
clientGetLogging ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m ((Maybe T.Text, Maybe T.Text))
clientGetLogging :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m (Maybe Text, Maybe Text)
clientGetLogging a
client = IO (Maybe Text, Maybe Text) -> m (Maybe Text, Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, Maybe Text) -> m (Maybe Text, Maybe Text))
-> IO (Maybe Text, Maybe Text) -> m (Maybe Text, Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (Ptr CChar)
level <- IO (Ptr (Ptr CChar))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr (Ptr CChar)
domains <- IO (Ptr (Ptr CChar))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
IO (Maybe Text, Maybe Text) -> IO () -> IO (Maybe Text, Maybe Text)
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr (Ptr CChar)
-> Ptr (Ptr CChar)
-> Ptr (Ptr GError)
-> IO CInt
nm_client_get_logging Ptr Client
client' Ptr (Ptr CChar)
level Ptr (Ptr CChar)
domains
Ptr CChar
level' <- Ptr (Ptr CChar) -> IO (Ptr CChar)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
level
Maybe Text
maybeLevel' <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
level' ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
level'' -> do
Text
level''' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
level''
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
level'''
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
level'
Ptr CChar
domains' <- Ptr (Ptr CChar) -> IO (Ptr CChar)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
domains
Maybe Text
maybeDomains' <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
domains' ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
domains'' -> do
Text
domains''' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
domains''
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
domains'''
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
domains'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
level
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
domains
(Maybe Text, Maybe Text) -> IO (Maybe Text, Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeLevel', Maybe Text
maybeDomains')
) (do
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
level
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
domains
)
#if defined(ENABLE_OVERLOADING)
data ClientGetLoggingMethodInfo
instance (signature ~ (m ((Maybe T.Text, Maybe T.Text))), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetLoggingMethodInfo a signature where
overloadedMethod = clientGetLogging
instance O.OverloadedMethodInfo ClientGetLoggingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetLogging",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetLogging"
})
#endif
foreign import ccall "nm_client_get_main_context" nm_client_get_main_context ::
Ptr Client ->
IO (Ptr GLib.MainContext.MainContext)
clientGetMainContext ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m GLib.MainContext.MainContext
clientGetMainContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m MainContext
clientGetMainContext a
self = IO MainContext -> m MainContext
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MainContext -> m MainContext)
-> IO MainContext -> m MainContext
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
self' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MainContext
result <- Ptr Client -> IO (Ptr MainContext)
nm_client_get_main_context Ptr Client
self'
Text -> Ptr MainContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetMainContext" Ptr MainContext
result
MainContext
result' <- ((ManagedPtr MainContext -> MainContext)
-> Ptr MainContext -> IO MainContext
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr MainContext -> MainContext
GLib.MainContext.MainContext) Ptr MainContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
MainContext -> IO MainContext
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MainContext
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetMainContextMethodInfo
instance (signature ~ (m GLib.MainContext.MainContext), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetMainContextMethodInfo a signature where
overloadedMethod = clientGetMainContext
instance O.OverloadedMethodInfo ClientGetMainContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetMainContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetMainContext"
})
#endif
foreign import ccall "nm_client_get_metered" nm_client_get_metered ::
Ptr Client ->
IO CUInt
clientGetMetered ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.Enums.Metered
clientGetMetered :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Metered
clientGetMetered a
client = IO Metered -> m Metered
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Metered -> m Metered) -> IO Metered -> m Metered
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CUInt
result <- Ptr Client -> IO CUInt
nm_client_get_metered Ptr Client
client'
let result' :: Metered
result' = (Int -> Metered
forall a. Enum a => Int -> a
toEnum (Int -> Metered) -> (CUInt -> Int) -> CUInt -> Metered
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Metered -> IO Metered
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Metered
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetMeteredMethodInfo
instance (signature ~ (m NM.Enums.Metered), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetMeteredMethodInfo a signature where
overloadedMethod = clientGetMetered
instance O.OverloadedMethodInfo ClientGetMeteredMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetMetered",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetMetered"
})
#endif
foreign import ccall "nm_client_get_nm_running" nm_client_get_nm_running ::
Ptr Client ->
IO CInt
clientGetNmRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientGetNmRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientGetNmRunning a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_get_nm_running Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetNmRunningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetNmRunningMethodInfo a signature where
overloadedMethod = clientGetNmRunning
instance O.OverloadedMethodInfo ClientGetNmRunningMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetNmRunning",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetNmRunning"
})
#endif
foreign import ccall "nm_client_get_object_by_path" nm_client_get_object_by_path ::
Ptr Client ->
CString ->
IO (Ptr NM.Object.Object)
clientGetObjectByPath ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> T.Text
-> m NM.Object.Object
clientGetObjectByPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Text -> m Object
clientGetObjectByPath a
client Text
dbusPath = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
dbusPath' <- Text -> IO (Ptr CChar)
textToCString Text
dbusPath
Ptr Object
result <- Ptr Client -> Ptr CChar -> IO (Ptr Object)
nm_client_get_object_by_path Ptr Client
client' Ptr CChar
dbusPath'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetObjectByPath" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
NM.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
dbusPath'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetObjectByPathMethodInfo
instance (signature ~ (T.Text -> m NM.Object.Object), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetObjectByPathMethodInfo a signature where
overloadedMethod = clientGetObjectByPath
instance O.OverloadedMethodInfo ClientGetObjectByPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetObjectByPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetObjectByPath"
})
#endif
foreign import ccall "nm_client_get_permission_result" nm_client_get_permission_result ::
Ptr Client ->
CUInt ->
IO CUInt
clientGetPermissionResult ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> NM.Enums.ClientPermission
-> m NM.Enums.ClientPermissionResult
clientGetPermissionResult :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> ClientPermission -> m ClientPermissionResult
clientGetPermissionResult a
client ClientPermission
permission = IO ClientPermissionResult -> m ClientPermissionResult
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ClientPermissionResult -> m ClientPermissionResult)
-> IO ClientPermissionResult -> m ClientPermissionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let permission' :: CUInt
permission' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (ClientPermission -> Int) -> ClientPermission -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ClientPermission -> Int
forall a. Enum a => a -> Int
fromEnum) ClientPermission
permission
CUInt
result <- Ptr Client -> CUInt -> IO CUInt
nm_client_get_permission_result Ptr Client
client' CUInt
permission'
let result' :: ClientPermissionResult
result' = (Int -> ClientPermissionResult
forall a. Enum a => Int -> a
toEnum (Int -> ClientPermissionResult)
-> (CUInt -> Int) -> CUInt -> ClientPermissionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
ClientPermissionResult -> IO ClientPermissionResult
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ClientPermissionResult
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetPermissionResultMethodInfo
instance (signature ~ (NM.Enums.ClientPermission -> m NM.Enums.ClientPermissionResult), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetPermissionResultMethodInfo a signature where
overloadedMethod = clientGetPermissionResult
instance O.OverloadedMethodInfo ClientGetPermissionResultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetPermissionResult",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetPermissionResult"
})
#endif
foreign import ccall "nm_client_get_permissions_state" nm_client_get_permissions_state ::
Ptr Client ->
IO CInt
clientGetPermissionsState ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.Enums.Ternary
clientGetPermissionsState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Ternary
clientGetPermissionsState a
self = IO Ternary -> m Ternary
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Ternary -> m Ternary) -> IO Ternary -> m Ternary
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
self' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Client -> IO CInt
nm_client_get_permissions_state Ptr Client
self'
let result' :: Ternary
result' = (Int -> Ternary
forall a. Enum a => Int -> a
toEnum (Int -> Ternary) -> (CInt -> Int) -> CInt -> Ternary
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ternary -> IO Ternary
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ternary
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetPermissionsStateMethodInfo
instance (signature ~ (m NM.Enums.Ternary), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetPermissionsStateMethodInfo a signature where
overloadedMethod = clientGetPermissionsState
instance O.OverloadedMethodInfo ClientGetPermissionsStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetPermissionsState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetPermissionsState"
})
#endif
foreign import ccall "nm_client_get_primary_connection" nm_client_get_primary_connection ::
Ptr Client ->
IO (Ptr NM.ActiveConnection.ActiveConnection)
clientGetPrimaryConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.ActiveConnection.ActiveConnection
clientGetPrimaryConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m ActiveConnection
clientGetPrimaryConnection a
client = IO ActiveConnection -> m ActiveConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActiveConnection -> m ActiveConnection)
-> IO ActiveConnection -> m ActiveConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr ActiveConnection
result <- Ptr Client -> IO (Ptr ActiveConnection)
nm_client_get_primary_connection Ptr Client
client'
Text -> Ptr ActiveConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetPrimaryConnection" Ptr ActiveConnection
result
ActiveConnection
result' <- ((ManagedPtr ActiveConnection -> ActiveConnection)
-> Ptr ActiveConnection -> IO ActiveConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActiveConnection -> ActiveConnection
NM.ActiveConnection.ActiveConnection) Ptr ActiveConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
ActiveConnection -> IO ActiveConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ActiveConnection
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetPrimaryConnectionMethodInfo
instance (signature ~ (m NM.ActiveConnection.ActiveConnection), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetPrimaryConnectionMethodInfo a signature where
overloadedMethod = clientGetPrimaryConnection
instance O.OverloadedMethodInfo ClientGetPrimaryConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetPrimaryConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetPrimaryConnection"
})
#endif
foreign import ccall "nm_client_get_radio_flags" nm_client_get_radio_flags ::
Ptr Client ->
IO CUInt
clientGetRadioFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [NM.Flags.RadioFlags]
clientGetRadioFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [RadioFlags]
clientGetRadioFlags a
client = IO [RadioFlags] -> m [RadioFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [RadioFlags] -> m [RadioFlags])
-> IO [RadioFlags] -> m [RadioFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CUInt
result <- Ptr Client -> IO CUInt
nm_client_get_radio_flags Ptr Client
client'
let result' :: [RadioFlags]
result' = CUInt -> [RadioFlags]
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
client
[RadioFlags] -> IO [RadioFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [RadioFlags]
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetRadioFlagsMethodInfo
instance (signature ~ (m [NM.Flags.RadioFlags]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetRadioFlagsMethodInfo a signature where
overloadedMethod = clientGetRadioFlags
instance O.OverloadedMethodInfo ClientGetRadioFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetRadioFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetRadioFlags"
})
#endif
foreign import ccall "nm_client_get_startup" nm_client_get_startup ::
Ptr Client ->
IO CInt
clientGetStartup ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientGetStartup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientGetStartup a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_get_startup Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetStartupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetStartupMethodInfo a signature where
overloadedMethod = clientGetStartup
instance O.OverloadedMethodInfo ClientGetStartupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetStartup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetStartup"
})
#endif
foreign import ccall "nm_client_get_state" nm_client_get_state ::
Ptr Client ->
IO CUInt
clientGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m NM.Enums.State
clientGetState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m State
clientGetState a
client = IO State -> m State
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO State -> m State) -> IO State -> m State
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CUInt
result <- Ptr Client -> IO CUInt
nm_client_get_state Ptr Client
client'
let result' :: State
result' = (Int -> State
forall a. Enum a => Int -> a
toEnum (Int -> State) -> (CUInt -> Int) -> CUInt -> State
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
State -> IO State
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return State
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetStateMethodInfo
instance (signature ~ (m NM.Enums.State), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetStateMethodInfo a signature where
overloadedMethod = clientGetState
instance O.OverloadedMethodInfo ClientGetStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetState"
})
#endif
foreign import ccall "nm_client_get_version" nm_client_get_version ::
Ptr Client ->
IO CString
clientGetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m T.Text
clientGetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Text
clientGetVersion a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
result <- Ptr Client -> IO (Ptr CChar)
nm_client_get_version Ptr Client
client'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetVersion" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetVersionMethodInfo a signature where
overloadedMethod = clientGetVersion
instance O.OverloadedMethodInfo ClientGetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetVersion"
})
#endif
foreign import ccall "nm_client_get_version_info" nm_client_get_version_info ::
Ptr Client ->
Ptr FCT.CSize ->
IO (Ptr Word32)
clientGetVersionInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m [Word32]
clientGetVersionInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m [Word32]
clientGetVersionInfo a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CSize
length_ <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
Ptr Word32
result <- Ptr Client -> Ptr CSize -> IO (Ptr Word32)
nm_client_get_version_info Ptr Client
client' Ptr CSize
length_
CSize
length_' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
length_
Text -> Ptr Word32 -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"clientGetVersionInfo" Ptr Word32
result
[Word32]
result' <- (CSize -> Ptr Word32 -> IO [Word32]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength CSize
length_') Ptr Word32
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
length_
[Word32] -> IO [Word32]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Word32]
result'
#if defined(ENABLE_OVERLOADING)
data ClientGetVersionInfoMethodInfo
instance (signature ~ (m [Word32]), MonadIO m, IsClient a) => O.OverloadedMethod ClientGetVersionInfoMethodInfo a signature where
overloadedMethod = clientGetVersionInfo
instance O.OverloadedMethodInfo ClientGetVersionInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientGetVersionInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientGetVersionInfo"
})
#endif
foreign import ccall "nm_client_load_connections" nm_client_load_connections ::
Ptr Client ->
Ptr CString ->
Ptr CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientLoadConnections ["(Since version 1.22)","Use 'GI.NM.Objects.Client.clientLoadConnectionsAsync' or GDBusConnection."] #-}
clientLoadConnections ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> [T.Text]
-> Maybe (b)
-> m (T.Text)
clientLoadConnections :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> [Text] -> Maybe b -> m Text
clientLoadConnections a
client [Text]
filenames Maybe b
cancellable = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (Ptr CChar)
filenames' <- [Text] -> IO (Ptr (Ptr CChar))
packZeroTerminatedUTF8CArray [Text]
filenames
Ptr (Ptr CChar)
failures <- IO (Ptr (Ptr CChar))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO Text -> IO () -> IO Text
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr (Ptr CChar)
-> Ptr (Ptr CChar)
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CInt
nm_client_load_connections Ptr Client
client' Ptr (Ptr CChar)
filenames' Ptr (Ptr CChar)
failures Ptr Cancellable
maybeCancellable
Ptr CChar
failures' <- Ptr (Ptr CChar) -> IO (Ptr CChar)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
failures
Text
failures'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
failures'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
failures'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
(Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
failures
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
failures''
) (do
(Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
failures
)
#if defined(ENABLE_OVERLOADING)
data ClientLoadConnectionsMethodInfo
instance (signature ~ ([T.Text] -> Maybe (b) -> m (T.Text)), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientLoadConnectionsMethodInfo a signature where
overloadedMethod = clientLoadConnections
instance O.OverloadedMethodInfo ClientLoadConnectionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientLoadConnections",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientLoadConnections"
})
#endif
foreign import ccall "nm_client_load_connections_async" nm_client_load_connections_async ::
Ptr Client ->
Ptr CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientLoadConnectionsAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> [T.Text]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientLoadConnectionsAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> [Text] -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientLoadConnectionsAsync a
client [Text]
filenames Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (Ptr CChar)
filenames' <- [Text] -> IO (Ptr (Ptr CChar))
packZeroTerminatedUTF8CArray [Text]
filenames
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr (Ptr CChar)
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_load_connections_async Ptr Client
client' Ptr (Ptr CChar)
filenames' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
(Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
filenames'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientLoadConnectionsAsyncMethodInfo
instance (signature ~ ([T.Text] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientLoadConnectionsAsyncMethodInfo a signature where
overloadedMethod = clientLoadConnectionsAsync
instance O.OverloadedMethodInfo ClientLoadConnectionsAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientLoadConnectionsAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientLoadConnectionsAsync"
})
#endif
foreign import ccall "nm_client_load_connections_finish" nm_client_load_connections_finish ::
Ptr Client ->
Ptr (Ptr CString) ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientLoadConnectionsFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ([T.Text])
clientLoadConnectionsFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m [Text]
clientLoadConnectionsFinish a
client b
result_ = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr (Ptr (Ptr CChar))
failures <- IO (Ptr (Ptr (Ptr CChar)))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CString))
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO [Text] -> IO () -> IO [Text]
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr (Ptr (Ptr CChar))
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO CInt
nm_client_load_connections_finish Ptr Client
client' Ptr (Ptr (Ptr CChar))
failures Ptr AsyncResult
result_'
Ptr (Ptr CChar)
failures' <- Ptr (Ptr (Ptr CChar)) -> IO (Ptr (Ptr CChar))
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr (Ptr CChar))
failures
[Text]
failures'' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
failures'
(Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
failures'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
failures'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Ptr (Ptr (Ptr CChar)) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (Ptr CChar))
failures
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
failures''
) (do
Ptr (Ptr (Ptr CChar)) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (Ptr CChar))
failures
)
#if defined(ENABLE_OVERLOADING)
data ClientLoadConnectionsFinishMethodInfo
instance (signature ~ (b -> m ([T.Text])), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientLoadConnectionsFinishMethodInfo a signature where
overloadedMethod = clientLoadConnectionsFinish
instance O.OverloadedMethodInfo ClientLoadConnectionsFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientLoadConnectionsFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientLoadConnectionsFinish"
})
#endif
foreign import ccall "nm_client_networking_get_enabled" nm_client_networking_get_enabled ::
Ptr Client ->
IO CInt
clientNetworkingGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientNetworkingGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientNetworkingGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_networking_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientNetworkingGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientNetworkingGetEnabledMethodInfo a signature where
overloadedMethod = clientNetworkingGetEnabled
instance O.OverloadedMethodInfo ClientNetworkingGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientNetworkingGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientNetworkingGetEnabled"
})
#endif
foreign import ccall "nm_client_networking_set_enabled" nm_client_networking_set_enabled ::
Ptr Client ->
CInt ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientNetworkingSetEnabled ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusCall' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to call \\\"Enable\\\" with \\\"(b)\\\" arguments and no return value."] #-}
clientNetworkingSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Bool
-> m ()
clientNetworkingSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Bool -> m ()
clientNetworkingSetEnabled a
client Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> CInt -> Ptr (Ptr GError) -> IO CInt
nm_client_networking_set_enabled Ptr Client
client' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientNetworkingSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientNetworkingSetEnabledMethodInfo a signature where
overloadedMethod = clientNetworkingSetEnabled
instance O.OverloadedMethodInfo ClientNetworkingSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientNetworkingSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientNetworkingSetEnabled"
})
#endif
foreign import ccall "nm_client_reload" nm_client_reload ::
Ptr Client ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientReload ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> [NM.Flags.ManagerReloadFlags]
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientReload :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a
-> [ManagerReloadFlags]
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
clientReload a
client [ManagerReloadFlags]
flags Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let flags' :: CUInt
flags' = [ManagerReloadFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ManagerReloadFlags]
flags
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_reload Ptr Client
client' CUInt
flags' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientReloadMethodInfo
instance (signature ~ ([NM.Flags.ManagerReloadFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientReloadMethodInfo a signature where
overloadedMethod = clientReload
instance O.OverloadedMethodInfo ClientReloadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientReload",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientReload"
})
#endif
foreign import ccall "nm_client_reload_connections" nm_client_reload_connections ::
Ptr Client ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientReloadConnections ["(Since version 1.22)","Use 'GI.NM.Objects.Client.clientReloadConnectionsAsync' or GDBusConnection."] #-}
clientReloadConnections ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> m ()
clientReloadConnections :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe b -> m ()
clientReloadConnections a
client Maybe b
cancellable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr Cancellable -> Ptr (Ptr GError) -> IO CInt
nm_client_reload_connections Ptr Client
client' Ptr Cancellable
maybeCancellable
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientReloadConnectionsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientReloadConnectionsMethodInfo a signature where
overloadedMethod = clientReloadConnections
instance O.OverloadedMethodInfo ClientReloadConnectionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientReloadConnections",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientReloadConnections"
})
#endif
foreign import ccall "nm_client_reload_connections_async" nm_client_reload_connections_async ::
Ptr Client ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientReloadConnectionsAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientReloadConnectionsAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientReloadConnectionsAsync a
client Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_reload_connections_async Ptr Client
client' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientReloadConnectionsAsyncMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientReloadConnectionsAsyncMethodInfo a signature where
overloadedMethod = clientReloadConnectionsAsync
instance O.OverloadedMethodInfo ClientReloadConnectionsAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientReloadConnectionsAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientReloadConnectionsAsync"
})
#endif
foreign import ccall "nm_client_reload_connections_finish" nm_client_reload_connections_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientReloadConnectionsFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientReloadConnectionsFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientReloadConnectionsFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_reload_connections_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientReloadConnectionsFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientReloadConnectionsFinishMethodInfo a signature where
overloadedMethod = clientReloadConnectionsFinish
instance O.OverloadedMethodInfo ClientReloadConnectionsFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientReloadConnectionsFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientReloadConnectionsFinish"
})
#endif
foreign import ccall "nm_client_reload_finish" nm_client_reload_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientReloadFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientReloadFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientReloadFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_reload_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientReloadFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientReloadFinishMethodInfo a signature where
overloadedMethod = clientReloadFinish
instance O.OverloadedMethodInfo ClientReloadFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientReloadFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientReloadFinish"
})
#endif
foreign import ccall "nm_client_save_hostname" nm_client_save_hostname ::
Ptr Client ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientSaveHostname ["(Since version 1.22)","Use 'GI.NM.Objects.Client.clientSaveHostnameAsync' or GDBusConnection."] #-}
clientSaveHostname ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (T.Text)
-> Maybe (b)
-> m ()
clientSaveHostname :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe Text -> Maybe b -> m ()
clientSaveHostname a
client Maybe Text
hostname Maybe b
cancellable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
maybeHostname <- case Maybe Text
hostname of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jHostname -> do
Ptr CChar
jHostname' <- Text -> IO (Ptr CChar)
textToCString Text
jHostname
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jHostname'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client
-> Ptr CChar -> Ptr Cancellable -> Ptr (Ptr GError) -> IO CInt
nm_client_save_hostname Ptr Client
client' Ptr CChar
maybeHostname Ptr Cancellable
maybeCancellable
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeHostname
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeHostname
)
#if defined(ENABLE_OVERLOADING)
data ClientSaveHostnameMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientSaveHostnameMethodInfo a signature where
overloadedMethod = clientSaveHostname
instance O.OverloadedMethodInfo ClientSaveHostnameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientSaveHostname",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientSaveHostname"
})
#endif
foreign import ccall "nm_client_save_hostname_async" nm_client_save_hostname_async ::
Ptr Client ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientSaveHostnameAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (T.Text)
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientSaveHostnameAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Maybe Text -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientSaveHostnameAsync a
client Maybe Text
hostname Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
maybeHostname <- case Maybe Text
hostname of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jHostname -> do
Ptr CChar
jHostname' <- Text -> IO (Ptr CChar)
textToCString Text
jHostname
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jHostname'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> Ptr CChar
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_save_hostname_async Ptr Client
client' Ptr CChar
maybeHostname Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeHostname
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientSaveHostnameAsyncMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientSaveHostnameAsyncMethodInfo a signature where
overloadedMethod = clientSaveHostnameAsync
instance O.OverloadedMethodInfo ClientSaveHostnameAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientSaveHostnameAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientSaveHostnameAsync"
})
#endif
foreign import ccall "nm_client_save_hostname_finish" nm_client_save_hostname_finish ::
Ptr Client ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientSaveHostnameFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
clientSaveHostnameFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsAsyncResult b) =>
a -> b -> m ()
clientSaveHostnameFinish a
client b
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_save_hostname_finish Ptr Client
client' Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ClientSaveHostnameFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsClient a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod ClientSaveHostnameFinishMethodInfo a signature where
overloadedMethod = clientSaveHostnameFinish
instance O.OverloadedMethodInfo ClientSaveHostnameFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientSaveHostnameFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientSaveHostnameFinish"
})
#endif
foreign import ccall "nm_client_set_logging" nm_client_set_logging ::
Ptr Client ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED clientSetLogging ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusCall' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to call \\\"SetLogging\\\" with \\\"(ss)\\\" arguments for level and domains."] #-}
clientSetLogging ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m ()
clientSetLogging :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Maybe Text -> Maybe Text -> m ()
clientSetLogging a
client Maybe Text
level Maybe Text
domains = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
Ptr CChar
maybeLevel <- case Maybe Text
level of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jLevel -> do
Ptr CChar
jLevel' <- Text -> IO (Ptr CChar)
textToCString Text
jLevel
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLevel'
Ptr CChar
maybeDomains <- case Maybe Text
domains of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jDomains -> do
Ptr CChar
jDomains' <- Text -> IO (Ptr CChar)
textToCString Text
jDomains
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jDomains'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Client -> Ptr CChar -> Ptr CChar -> Ptr (Ptr GError) -> IO CInt
nm_client_set_logging Ptr Client
client' Ptr CChar
maybeLevel Ptr CChar
maybeDomains
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLevel
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeDomains
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLevel
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeDomains
)
#if defined(ENABLE_OVERLOADING)
data ClientSetLoggingMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientSetLoggingMethodInfo a signature where
overloadedMethod = clientSetLogging
instance O.OverloadedMethodInfo ClientSetLoggingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientSetLogging",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientSetLogging"
})
#endif
foreign import ccall "nm_client_wait_shutdown" nm_client_wait_shutdown ::
Ptr Client ->
CInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientWaitShutdown ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) =>
a
-> Bool
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientWaitShutdown :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsClient a, IsCancellable b) =>
a -> Bool -> Maybe b -> Maybe AsyncReadyCallback -> m ()
clientWaitShutdown a
client Bool
integrateMaincontext Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let integrateMaincontext' :: CInt
integrateMaincontext' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
integrateMaincontext
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Client
-> CInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
nm_client_wait_shutdown Ptr Client
client' CInt
integrateMaincontext' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientWaitShutdownMethodInfo
instance (signature ~ (Bool -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsClient a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ClientWaitShutdownMethodInfo a signature where
overloadedMethod = clientWaitShutdown
instance O.OverloadedMethodInfo ClientWaitShutdownMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWaitShutdown",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWaitShutdown"
})
#endif
foreign import ccall "nm_client_wimax_get_enabled" nm_client_wimax_get_enabled ::
Ptr Client ->
IO CInt
{-# DEPRECATED clientWimaxGetEnabled ["(Since version 1.22)","This function always returns FALSE because WiMax is no longer supported."] #-}
clientWimaxGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWimaxGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWimaxGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wimax_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWimaxGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWimaxGetEnabledMethodInfo a signature where
overloadedMethod = clientWimaxGetEnabled
instance O.OverloadedMethodInfo ClientWimaxGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWimaxGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWimaxGetEnabled"
})
#endif
foreign import ccall "nm_client_wimax_hardware_get_enabled" nm_client_wimax_hardware_get_enabled ::
Ptr Client ->
IO CInt
{-# DEPRECATED clientWimaxHardwareGetEnabled ["(Since version 1.22)","This function always returns FALSE because WiMax is no longer supported."] #-}
clientWimaxHardwareGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWimaxHardwareGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWimaxHardwareGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wimax_hardware_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWimaxHardwareGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWimaxHardwareGetEnabledMethodInfo a signature where
overloadedMethod = clientWimaxHardwareGetEnabled
instance O.OverloadedMethodInfo ClientWimaxHardwareGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWimaxHardwareGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWimaxHardwareGetEnabled"
})
#endif
foreign import ccall "nm_client_wimax_set_enabled" nm_client_wimax_set_enabled ::
Ptr Client ->
CInt ->
IO ()
{-# DEPRECATED clientWimaxSetEnabled ["(Since version 1.22)","This function does nothing because WiMax is no longer supported."] #-}
clientWimaxSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Bool
-> m ()
clientWimaxSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Bool -> m ()
clientWimaxSetEnabled a
client Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
Ptr Client -> CInt -> IO ()
nm_client_wimax_set_enabled Ptr Client
client' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientWimaxSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientWimaxSetEnabledMethodInfo a signature where
overloadedMethod = clientWimaxSetEnabled
instance O.OverloadedMethodInfo ClientWimaxSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWimaxSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWimaxSetEnabled"
})
#endif
foreign import ccall "nm_client_wireless_get_enabled" nm_client_wireless_get_enabled ::
Ptr Client ->
IO CInt
clientWirelessGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWirelessGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWirelessGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wireless_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWirelessGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWirelessGetEnabledMethodInfo a signature where
overloadedMethod = clientWirelessGetEnabled
instance O.OverloadedMethodInfo ClientWirelessGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWirelessGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWirelessGetEnabled"
})
#endif
foreign import ccall "nm_client_wireless_hardware_get_enabled" nm_client_wireless_hardware_get_enabled ::
Ptr Client ->
IO CInt
clientWirelessHardwareGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWirelessHardwareGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWirelessHardwareGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wireless_hardware_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWirelessHardwareGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWirelessHardwareGetEnabledMethodInfo a signature where
overloadedMethod = clientWirelessHardwareGetEnabled
instance O.OverloadedMethodInfo ClientWirelessHardwareGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWirelessHardwareGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWirelessHardwareGetEnabled"
})
#endif
foreign import ccall "nm_client_wireless_set_enabled" nm_client_wireless_set_enabled ::
Ptr Client ->
CInt ->
IO ()
{-# DEPRECATED clientWirelessSetEnabled ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusSetProperty' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to set \\\"WirelessEnabled\\\" property to a \\\"(b)\\\" value."] #-}
clientWirelessSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Bool
-> m ()
clientWirelessSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Bool -> m ()
clientWirelessSetEnabled a
client Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
Ptr Client -> CInt -> IO ()
nm_client_wireless_set_enabled Ptr Client
client' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientWirelessSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientWirelessSetEnabledMethodInfo a signature where
overloadedMethod = clientWirelessSetEnabled
instance O.OverloadedMethodInfo ClientWirelessSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWirelessSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWirelessSetEnabled"
})
#endif
foreign import ccall "nm_client_wwan_get_enabled" nm_client_wwan_get_enabled ::
Ptr Client ->
IO CInt
clientWwanGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWwanGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWwanGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wwan_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWwanGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWwanGetEnabledMethodInfo a signature where
overloadedMethod = clientWwanGetEnabled
instance O.OverloadedMethodInfo ClientWwanGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWwanGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWwanGetEnabled"
})
#endif
foreign import ccall "nm_client_wwan_hardware_get_enabled" nm_client_wwan_hardware_get_enabled ::
Ptr Client ->
IO CInt
clientWwanHardwareGetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> m Bool
clientWwanHardwareGetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> m Bool
clientWwanHardwareGetEnabled a
client = 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 Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
CInt
result <- Ptr Client -> IO CInt
nm_client_wwan_hardware_get_enabled Ptr Client
client'
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
client
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ClientWwanHardwareGetEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsClient a) => O.OverloadedMethod ClientWwanHardwareGetEnabledMethodInfo a signature where
overloadedMethod = clientWwanHardwareGetEnabled
instance O.OverloadedMethodInfo ClientWwanHardwareGetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWwanHardwareGetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWwanHardwareGetEnabled"
})
#endif
foreign import ccall "nm_client_wwan_set_enabled" nm_client_wwan_set_enabled ::
Ptr Client ->
CInt ->
IO ()
{-# DEPRECATED clientWwanSetEnabled ["(Since version 1.22)","Use the async command 'GI.NM.Objects.Client.clientDbusSetProperty' on 'GI.NM.Constants.DBUS_PATH',","'GI.NM.Constants.DBUS_INTERFACE' to set \\\"WwanEnabled\\\" property to a \\\"(b)\\\" value."] #-}
clientWwanSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsClient a) =>
a
-> Bool
-> m ()
clientWwanSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsClient a) =>
a -> Bool -> m ()
clientWwanSetEnabled a
client Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Client
client' <- a -> IO (Ptr Client)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
client
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
Ptr Client -> CInt -> IO ()
nm_client_wwan_set_enabled Ptr Client
client' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
client
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ClientWwanSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsClient a) => O.OverloadedMethod ClientWwanSetEnabledMethodInfo a signature where
overloadedMethod = clientWwanSetEnabled
instance O.OverloadedMethodInfo ClientWwanSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.NM.Objects.Client.clientWwanSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-nm-1.0.1/docs/GI-NM-Objects-Client.html#v:clientWwanSetEnabled"
})
#endif
foreign import ccall "nm_client_new_async" nm_client_new_async ::
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
clientNewAsync ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Maybe (a)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
clientNewAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
Maybe a -> Maybe AsyncReadyCallback -> m ()
clientNewAsync Maybe a
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- a -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
forall a. FunPtr a
FP.nullFunPtr
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Cancellable -> FunPtr C_AsyncReadyCallback -> Ptr () -> IO ()
nm_client_new_async Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "nm_client_wait_shutdown_finish" nm_client_wait_shutdown_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
clientWaitShutdownFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m ()
clientWaitShutdownFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m ()
clientWaitShutdownFinish a
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
result_' <- a -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
nm_client_wait_shutdown_finish Ptr AsyncResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif