module GI.Gio.Objects.SocketClient
(
SocketClient(..) ,
IsSocketClient ,
toSocketClient ,
noSocketClient ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientAddApplicationProxyMethodInfo,
#endif
socketClientAddApplicationProxy ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectMethodInfo ,
#endif
socketClientConnect ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectAsyncMethodInfo ,
#endif
socketClientConnectAsync ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectFinishMethodInfo ,
#endif
socketClientConnectFinish ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToHostMethodInfo ,
#endif
socketClientConnectToHost ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToHostAsyncMethodInfo,
#endif
socketClientConnectToHostAsync ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToHostFinishMethodInfo,
#endif
socketClientConnectToHostFinish ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToServiceMethodInfo ,
#endif
socketClientConnectToService ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToServiceAsyncMethodInfo,
#endif
socketClientConnectToServiceAsync ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToServiceFinishMethodInfo,
#endif
socketClientConnectToServiceFinish ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToUriMethodInfo ,
#endif
socketClientConnectToUri ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToUriAsyncMethodInfo ,
#endif
socketClientConnectToUriAsync ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientConnectToUriFinishMethodInfo,
#endif
socketClientConnectToUriFinish ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetEnableProxyMethodInfo ,
#endif
socketClientGetEnableProxy ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetFamilyMethodInfo ,
#endif
socketClientGetFamily ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetLocalAddressMethodInfo ,
#endif
socketClientGetLocalAddress ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetProtocolMethodInfo ,
#endif
socketClientGetProtocol ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetProxyResolverMethodInfo ,
#endif
socketClientGetProxyResolver ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetSocketTypeMethodInfo ,
#endif
socketClientGetSocketType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetTimeoutMethodInfo ,
#endif
socketClientGetTimeout ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetTlsMethodInfo ,
#endif
socketClientGetTls ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientGetTlsValidationFlagsMethodInfo,
#endif
socketClientGetTlsValidationFlags ,
socketClientNew ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetEnableProxyMethodInfo ,
#endif
socketClientSetEnableProxy ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetFamilyMethodInfo ,
#endif
socketClientSetFamily ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetLocalAddressMethodInfo ,
#endif
socketClientSetLocalAddress ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetProtocolMethodInfo ,
#endif
socketClientSetProtocol ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetProxyResolverMethodInfo ,
#endif
socketClientSetProxyResolver ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetSocketTypeMethodInfo ,
#endif
socketClientSetSocketType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetTimeoutMethodInfo ,
#endif
socketClientSetTimeout ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetTlsMethodInfo ,
#endif
socketClientSetTls ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientSetTlsValidationFlagsMethodInfo,
#endif
socketClientSetTlsValidationFlags ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientEnableProxyPropertyInfo ,
#endif
constructSocketClientEnableProxy ,
getSocketClientEnableProxy ,
setSocketClientEnableProxy ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientEnableProxy ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientFamilyPropertyInfo ,
#endif
constructSocketClientFamily ,
getSocketClientFamily ,
setSocketClientFamily ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientFamily ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientLocalAddressPropertyInfo ,
#endif
clearSocketClientLocalAddress ,
constructSocketClientLocalAddress ,
getSocketClientLocalAddress ,
setSocketClientLocalAddress ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientLocalAddress ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientProtocolPropertyInfo ,
#endif
constructSocketClientProtocol ,
getSocketClientProtocol ,
setSocketClientProtocol ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientProtocol ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientProxyResolverPropertyInfo ,
#endif
clearSocketClientProxyResolver ,
constructSocketClientProxyResolver ,
getSocketClientProxyResolver ,
setSocketClientProxyResolver ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientProxyResolver ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientTimeoutPropertyInfo ,
#endif
constructSocketClientTimeout ,
getSocketClientTimeout ,
setSocketClientTimeout ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientTimeout ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientTlsPropertyInfo ,
#endif
constructSocketClientTls ,
getSocketClientTls ,
setSocketClientTls ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientTls ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientTlsValidationFlagsPropertyInfo,
#endif
constructSocketClientTlsValidationFlags ,
getSocketClientTlsValidationFlags ,
setSocketClientTlsValidationFlags ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientTlsValidationFlags ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientTypePropertyInfo ,
#endif
constructSocketClientType ,
getSocketClientType ,
setSocketClientType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientType ,
#endif
C_SocketClientEventCallback ,
SocketClientEventCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SocketClientEventSignalInfo ,
#endif
afterSocketClientEvent ,
genClosure_SocketClientEvent ,
mk_SocketClientEventCallback ,
noSocketClientEventCallback ,
onSocketClientEvent ,
wrap_SocketClientEventCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Enums as Gio.Enums
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver
import qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.IOStream as Gio.IOStream
import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress
import qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection
newtype SocketClient = SocketClient (ManagedPtr SocketClient)
foreign import ccall "g_socket_client_get_type"
c_g_socket_client_get_type :: IO GType
instance GObject SocketClient where
gobjectType _ = c_g_socket_client_get_type
class GObject o => IsSocketClient o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError SocketClient a) =>
IsSocketClient a
#endif
instance IsSocketClient SocketClient
instance GObject.Object.IsObject SocketClient
toSocketClient :: (MonadIO m, IsSocketClient o) => o -> m SocketClient
toSocketClient = liftIO . unsafeCastTo SocketClient
noSocketClient :: Maybe SocketClient
noSocketClient = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveSocketClientMethod (t :: Symbol) (o :: *) :: * where
ResolveSocketClientMethod "addApplicationProxy" o = SocketClientAddApplicationProxyMethodInfo
ResolveSocketClientMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSocketClientMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSocketClientMethod "connect" o = SocketClientConnectMethodInfo
ResolveSocketClientMethod "connectAsync" o = SocketClientConnectAsyncMethodInfo
ResolveSocketClientMethod "connectFinish" o = SocketClientConnectFinishMethodInfo
ResolveSocketClientMethod "connectToHost" o = SocketClientConnectToHostMethodInfo
ResolveSocketClientMethod "connectToHostAsync" o = SocketClientConnectToHostAsyncMethodInfo
ResolveSocketClientMethod "connectToHostFinish" o = SocketClientConnectToHostFinishMethodInfo
ResolveSocketClientMethod "connectToService" o = SocketClientConnectToServiceMethodInfo
ResolveSocketClientMethod "connectToServiceAsync" o = SocketClientConnectToServiceAsyncMethodInfo
ResolveSocketClientMethod "connectToServiceFinish" o = SocketClientConnectToServiceFinishMethodInfo
ResolveSocketClientMethod "connectToUri" o = SocketClientConnectToUriMethodInfo
ResolveSocketClientMethod "connectToUriAsync" o = SocketClientConnectToUriAsyncMethodInfo
ResolveSocketClientMethod "connectToUriFinish" o = SocketClientConnectToUriFinishMethodInfo
ResolveSocketClientMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSocketClientMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSocketClientMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSocketClientMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSocketClientMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSocketClientMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSocketClientMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSocketClientMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveSocketClientMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveSocketClientMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSocketClientMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSocketClientMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSocketClientMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSocketClientMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSocketClientMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSocketClientMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSocketClientMethod "getEnableProxy" o = SocketClientGetEnableProxyMethodInfo
ResolveSocketClientMethod "getFamily" o = SocketClientGetFamilyMethodInfo
ResolveSocketClientMethod "getLocalAddress" o = SocketClientGetLocalAddressMethodInfo
ResolveSocketClientMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSocketClientMethod "getProtocol" o = SocketClientGetProtocolMethodInfo
ResolveSocketClientMethod "getProxyResolver" o = SocketClientGetProxyResolverMethodInfo
ResolveSocketClientMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSocketClientMethod "getSocketType" o = SocketClientGetSocketTypeMethodInfo
ResolveSocketClientMethod "getTimeout" o = SocketClientGetTimeoutMethodInfo
ResolveSocketClientMethod "getTls" o = SocketClientGetTlsMethodInfo
ResolveSocketClientMethod "getTlsValidationFlags" o = SocketClientGetTlsValidationFlagsMethodInfo
ResolveSocketClientMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSocketClientMethod "setEnableProxy" o = SocketClientSetEnableProxyMethodInfo
ResolveSocketClientMethod "setFamily" o = SocketClientSetFamilyMethodInfo
ResolveSocketClientMethod "setLocalAddress" o = SocketClientSetLocalAddressMethodInfo
ResolveSocketClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSocketClientMethod "setProtocol" o = SocketClientSetProtocolMethodInfo
ResolveSocketClientMethod "setProxyResolver" o = SocketClientSetProxyResolverMethodInfo
ResolveSocketClientMethod "setSocketType" o = SocketClientSetSocketTypeMethodInfo
ResolveSocketClientMethod "setTimeout" o = SocketClientSetTimeoutMethodInfo
ResolveSocketClientMethod "setTls" o = SocketClientSetTlsMethodInfo
ResolveSocketClientMethod "setTlsValidationFlags" o = SocketClientSetTlsValidationFlagsMethodInfo
ResolveSocketClientMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSocketClientMethod t SocketClient, O.MethodInfo info SocketClient p) => O.IsLabelProxy t (SocketClient -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSocketClientMethod t SocketClient, O.MethodInfo info SocketClient p) => O.IsLabel t (SocketClient -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type SocketClientEventCallback =
Gio.Enums.SocketClientEvent ->
Gio.SocketConnectable.SocketConnectable ->
Maybe Gio.IOStream.IOStream ->
IO ()
noSocketClientEventCallback :: Maybe SocketClientEventCallback
noSocketClientEventCallback = Nothing
type C_SocketClientEventCallback =
Ptr () ->
CUInt ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.IOStream.IOStream ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SocketClientEventCallback :: C_SocketClientEventCallback -> IO (FunPtr C_SocketClientEventCallback)
genClosure_SocketClientEvent :: SocketClientEventCallback -> IO Closure
genClosure_SocketClientEvent cb = do
let cb' = wrap_SocketClientEventCallback cb
mk_SocketClientEventCallback cb' >>= newCClosure
wrap_SocketClientEventCallback ::
SocketClientEventCallback ->
Ptr () ->
CUInt ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.IOStream.IOStream ->
Ptr () ->
IO ()
wrap_SocketClientEventCallback _cb _ event connectable connection _ = do
let event' = (toEnum . fromIntegral) event
connectable' <- (newObject Gio.SocketConnectable.SocketConnectable) connectable
maybeConnection <-
if connection == nullPtr
then return Nothing
else do
connection' <- (newObject Gio.IOStream.IOStream) connection
return $ Just connection'
_cb event' connectable' maybeConnection
onSocketClientEvent :: (IsSocketClient a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId
onSocketClientEvent obj cb = liftIO $ do
let cb' = wrap_SocketClientEventCallback cb
cb'' <- mk_SocketClientEventCallback cb'
connectSignalFunPtr obj "event" cb'' SignalConnectBefore
afterSocketClientEvent :: (IsSocketClient a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId
afterSocketClientEvent obj cb = liftIO $ do
let cb' = wrap_SocketClientEventCallback cb
cb'' <- mk_SocketClientEventCallback cb'
connectSignalFunPtr obj "event" cb'' SignalConnectAfter
getSocketClientEnableProxy :: (MonadIO m, IsSocketClient o) => o -> m Bool
getSocketClientEnableProxy obj = liftIO $ getObjectPropertyBool obj "enable-proxy"
setSocketClientEnableProxy :: (MonadIO m, IsSocketClient o) => o -> Bool -> m ()
setSocketClientEnableProxy obj val = liftIO $ setObjectPropertyBool obj "enable-proxy" val
constructSocketClientEnableProxy :: (IsSocketClient o) => Bool -> IO (GValueConstruct o)
constructSocketClientEnableProxy val = constructObjectPropertyBool "enable-proxy" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientEnableProxyPropertyInfo
instance AttrInfo SocketClientEnableProxyPropertyInfo where
type AttrAllowedOps SocketClientEnableProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientEnableProxyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SocketClientEnableProxyPropertyInfo = IsSocketClient
type AttrGetType SocketClientEnableProxyPropertyInfo = Bool
type AttrLabel SocketClientEnableProxyPropertyInfo = "enable-proxy"
type AttrOrigin SocketClientEnableProxyPropertyInfo = SocketClient
attrGet _ = getSocketClientEnableProxy
attrSet _ = setSocketClientEnableProxy
attrConstruct _ = constructSocketClientEnableProxy
attrClear _ = undefined
#endif
getSocketClientFamily :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketFamily
getSocketClientFamily obj = liftIO $ getObjectPropertyEnum obj "family"
setSocketClientFamily :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketFamily -> m ()
setSocketClientFamily obj val = liftIO $ setObjectPropertyEnum obj "family" val
constructSocketClientFamily :: (IsSocketClient o) => Gio.Enums.SocketFamily -> IO (GValueConstruct o)
constructSocketClientFamily val = constructObjectPropertyEnum "family" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientFamilyPropertyInfo
instance AttrInfo SocketClientFamilyPropertyInfo where
type AttrAllowedOps SocketClientFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientFamilyPropertyInfo = (~) Gio.Enums.SocketFamily
type AttrBaseTypeConstraint SocketClientFamilyPropertyInfo = IsSocketClient
type AttrGetType SocketClientFamilyPropertyInfo = Gio.Enums.SocketFamily
type AttrLabel SocketClientFamilyPropertyInfo = "family"
type AttrOrigin SocketClientFamilyPropertyInfo = SocketClient
attrGet _ = getSocketClientFamily
attrSet _ = setSocketClientFamily
attrConstruct _ = constructSocketClientFamily
attrClear _ = undefined
#endif
getSocketClientLocalAddress :: (MonadIO m, IsSocketClient o) => o -> m Gio.SocketAddress.SocketAddress
getSocketClientLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketClientLocalAddress" $ getObjectPropertyObject obj "local-address" Gio.SocketAddress.SocketAddress
setSocketClientLocalAddress :: (MonadIO m, IsSocketClient o, Gio.SocketAddress.IsSocketAddress a) => o -> a -> m ()
setSocketClientLocalAddress obj val = liftIO $ setObjectPropertyObject obj "local-address" (Just val)
constructSocketClientLocalAddress :: (IsSocketClient o, Gio.SocketAddress.IsSocketAddress a) => a -> IO (GValueConstruct o)
constructSocketClientLocalAddress val = constructObjectPropertyObject "local-address" (Just val)
clearSocketClientLocalAddress :: (MonadIO m, IsSocketClient o) => o -> m ()
clearSocketClientLocalAddress obj = liftIO $ setObjectPropertyObject obj "local-address" (Nothing :: Maybe Gio.SocketAddress.SocketAddress)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientLocalAddressPropertyInfo
instance AttrInfo SocketClientLocalAddressPropertyInfo where
type AttrAllowedOps SocketClientLocalAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SocketClientLocalAddressPropertyInfo = Gio.SocketAddress.IsSocketAddress
type AttrBaseTypeConstraint SocketClientLocalAddressPropertyInfo = IsSocketClient
type AttrGetType SocketClientLocalAddressPropertyInfo = Gio.SocketAddress.SocketAddress
type AttrLabel SocketClientLocalAddressPropertyInfo = "local-address"
type AttrOrigin SocketClientLocalAddressPropertyInfo = SocketClient
attrGet _ = getSocketClientLocalAddress
attrSet _ = setSocketClientLocalAddress
attrConstruct _ = constructSocketClientLocalAddress
attrClear _ = clearSocketClientLocalAddress
#endif
getSocketClientProtocol :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketProtocol
getSocketClientProtocol obj = liftIO $ getObjectPropertyEnum obj "protocol"
setSocketClientProtocol :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketProtocol -> m ()
setSocketClientProtocol obj val = liftIO $ setObjectPropertyEnum obj "protocol" val
constructSocketClientProtocol :: (IsSocketClient o) => Gio.Enums.SocketProtocol -> IO (GValueConstruct o)
constructSocketClientProtocol val = constructObjectPropertyEnum "protocol" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientProtocolPropertyInfo
instance AttrInfo SocketClientProtocolPropertyInfo where
type AttrAllowedOps SocketClientProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientProtocolPropertyInfo = (~) Gio.Enums.SocketProtocol
type AttrBaseTypeConstraint SocketClientProtocolPropertyInfo = IsSocketClient
type AttrGetType SocketClientProtocolPropertyInfo = Gio.Enums.SocketProtocol
type AttrLabel SocketClientProtocolPropertyInfo = "protocol"
type AttrOrigin SocketClientProtocolPropertyInfo = SocketClient
attrGet _ = getSocketClientProtocol
attrSet _ = setSocketClientProtocol
attrConstruct _ = constructSocketClientProtocol
attrClear _ = undefined
#endif
getSocketClientProxyResolver :: (MonadIO m, IsSocketClient o) => o -> m Gio.ProxyResolver.ProxyResolver
getSocketClientProxyResolver obj = liftIO $ checkUnexpectedNothing "getSocketClientProxyResolver" $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver.ProxyResolver
setSocketClientProxyResolver :: (MonadIO m, IsSocketClient o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()
setSocketClientProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val)
constructSocketClientProxyResolver :: (IsSocketClient o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)
constructSocketClientProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val)
clearSocketClientProxyResolver :: (MonadIO m, IsSocketClient o) => o -> m ()
clearSocketClientProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientProxyResolverPropertyInfo
instance AttrInfo SocketClientProxyResolverPropertyInfo where
type AttrAllowedOps SocketClientProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SocketClientProxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver
type AttrBaseTypeConstraint SocketClientProxyResolverPropertyInfo = IsSocketClient
type AttrGetType SocketClientProxyResolverPropertyInfo = Gio.ProxyResolver.ProxyResolver
type AttrLabel SocketClientProxyResolverPropertyInfo = "proxy-resolver"
type AttrOrigin SocketClientProxyResolverPropertyInfo = SocketClient
attrGet _ = getSocketClientProxyResolver
attrSet _ = setSocketClientProxyResolver
attrConstruct _ = constructSocketClientProxyResolver
attrClear _ = clearSocketClientProxyResolver
#endif
getSocketClientTimeout :: (MonadIO m, IsSocketClient o) => o -> m Word32
getSocketClientTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"
setSocketClientTimeout :: (MonadIO m, IsSocketClient o) => o -> Word32 -> m ()
setSocketClientTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val
constructSocketClientTimeout :: (IsSocketClient o) => Word32 -> IO (GValueConstruct o)
constructSocketClientTimeout val = constructObjectPropertyUInt32 "timeout" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientTimeoutPropertyInfo
instance AttrInfo SocketClientTimeoutPropertyInfo where
type AttrAllowedOps SocketClientTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientTimeoutPropertyInfo = (~) Word32
type AttrBaseTypeConstraint SocketClientTimeoutPropertyInfo = IsSocketClient
type AttrGetType SocketClientTimeoutPropertyInfo = Word32
type AttrLabel SocketClientTimeoutPropertyInfo = "timeout"
type AttrOrigin SocketClientTimeoutPropertyInfo = SocketClient
attrGet _ = getSocketClientTimeout
attrSet _ = setSocketClientTimeout
attrConstruct _ = constructSocketClientTimeout
attrClear _ = undefined
#endif
getSocketClientTls :: (MonadIO m, IsSocketClient o) => o -> m Bool
getSocketClientTls obj = liftIO $ getObjectPropertyBool obj "tls"
setSocketClientTls :: (MonadIO m, IsSocketClient o) => o -> Bool -> m ()
setSocketClientTls obj val = liftIO $ setObjectPropertyBool obj "tls" val
constructSocketClientTls :: (IsSocketClient o) => Bool -> IO (GValueConstruct o)
constructSocketClientTls val = constructObjectPropertyBool "tls" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientTlsPropertyInfo
instance AttrInfo SocketClientTlsPropertyInfo where
type AttrAllowedOps SocketClientTlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientTlsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SocketClientTlsPropertyInfo = IsSocketClient
type AttrGetType SocketClientTlsPropertyInfo = Bool
type AttrLabel SocketClientTlsPropertyInfo = "tls"
type AttrOrigin SocketClientTlsPropertyInfo = SocketClient
attrGet _ = getSocketClientTls
attrSet _ = setSocketClientTls
attrConstruct _ = constructSocketClientTls
attrClear _ = undefined
#endif
getSocketClientTlsValidationFlags :: (MonadIO m, IsSocketClient o) => o -> m [Gio.Flags.TlsCertificateFlags]
getSocketClientTlsValidationFlags obj = liftIO $ getObjectPropertyFlags obj "tls-validation-flags"
setSocketClientTlsValidationFlags :: (MonadIO m, IsSocketClient o) => o -> [Gio.Flags.TlsCertificateFlags] -> m ()
setSocketClientTlsValidationFlags obj val = liftIO $ setObjectPropertyFlags obj "tls-validation-flags" val
constructSocketClientTlsValidationFlags :: (IsSocketClient o) => [Gio.Flags.TlsCertificateFlags] -> IO (GValueConstruct o)
constructSocketClientTlsValidationFlags val = constructObjectPropertyFlags "tls-validation-flags" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientTlsValidationFlagsPropertyInfo
instance AttrInfo SocketClientTlsValidationFlagsPropertyInfo where
type AttrAllowedOps SocketClientTlsValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = (~) [Gio.Flags.TlsCertificateFlags]
type AttrBaseTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = IsSocketClient
type AttrGetType SocketClientTlsValidationFlagsPropertyInfo = [Gio.Flags.TlsCertificateFlags]
type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "tls-validation-flags"
type AttrOrigin SocketClientTlsValidationFlagsPropertyInfo = SocketClient
attrGet _ = getSocketClientTlsValidationFlags
attrSet _ = setSocketClientTlsValidationFlags
attrConstruct _ = constructSocketClientTlsValidationFlags
attrClear _ = undefined
#endif
getSocketClientType :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketType
getSocketClientType obj = liftIO $ getObjectPropertyEnum obj "type"
setSocketClientType :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketType -> m ()
setSocketClientType obj val = liftIO $ setObjectPropertyEnum obj "type" val
constructSocketClientType :: (IsSocketClient o) => Gio.Enums.SocketType -> IO (GValueConstruct o)
constructSocketClientType val = constructObjectPropertyEnum "type" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientTypePropertyInfo
instance AttrInfo SocketClientTypePropertyInfo where
type AttrAllowedOps SocketClientTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SocketClientTypePropertyInfo = (~) Gio.Enums.SocketType
type AttrBaseTypeConstraint SocketClientTypePropertyInfo = IsSocketClient
type AttrGetType SocketClientTypePropertyInfo = Gio.Enums.SocketType
type AttrLabel SocketClientTypePropertyInfo = "type"
type AttrOrigin SocketClientTypePropertyInfo = SocketClient
attrGet _ = getSocketClientType
attrSet _ = setSocketClientType
attrConstruct _ = constructSocketClientType
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList SocketClient
type instance O.AttributeList SocketClient = SocketClientAttributeList
type SocketClientAttributeList = ('[ '("enableProxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("localAddress", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxyResolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tlsValidationFlags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
socketClientEnableProxy :: AttrLabelProxy "enableProxy"
socketClientEnableProxy = AttrLabelProxy
socketClientFamily :: AttrLabelProxy "family"
socketClientFamily = AttrLabelProxy
socketClientLocalAddress :: AttrLabelProxy "localAddress"
socketClientLocalAddress = AttrLabelProxy
socketClientProtocol :: AttrLabelProxy "protocol"
socketClientProtocol = AttrLabelProxy
socketClientProxyResolver :: AttrLabelProxy "proxyResolver"
socketClientProxyResolver = AttrLabelProxy
socketClientTimeout :: AttrLabelProxy "timeout"
socketClientTimeout = AttrLabelProxy
socketClientTls :: AttrLabelProxy "tls"
socketClientTls = AttrLabelProxy
socketClientTlsValidationFlags :: AttrLabelProxy "tlsValidationFlags"
socketClientTlsValidationFlags = AttrLabelProxy
socketClientType :: AttrLabelProxy "type"
socketClientType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientEventSignalInfo
instance SignalInfo SocketClientEventSignalInfo where
type HaskellCallbackType SocketClientEventSignalInfo = SocketClientEventCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_SocketClientEventCallback cb
cb'' <- mk_SocketClientEventCallback cb'
connectSignalFunPtr obj "event" cb'' connectMode
type instance O.SignalList SocketClient = SocketClientSignalList
type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_socket_client_new" g_socket_client_new ::
IO (Ptr SocketClient)
socketClientNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SocketClient
socketClientNew = liftIO $ do
result <- g_socket_client_new
checkUnexpectedReturnNULL "socketClientNew" result
result' <- (wrapObject SocketClient) result
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
foreign import ccall "g_socket_client_add_application_proxy" g_socket_client_add_application_proxy ::
Ptr SocketClient ->
CString ->
IO ()
socketClientAddApplicationProxy ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> T.Text
-> m ()
socketClientAddApplicationProxy client protocol = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
protocol' <- textToCString protocol
g_socket_client_add_application_proxy client' protocol'
touchManagedPtr client
freeMem protocol'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientAddApplicationProxyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientAddApplicationProxyMethodInfo a signature where
overloadedMethod _ = socketClientAddApplicationProxy
#endif
foreign import ccall "g_socket_client_connect" g_socket_client_connect ::
Ptr SocketClient ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnect ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m Gio.SocketConnection.SocketConnection
socketClientConnect client connectable cancellable = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
connectable' <- unsafeManagedPtrCastPtr connectable
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_socket_client_connect client' connectable' maybeCancellable
checkUnexpectedReturnNULL "socketClientConnect" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
touchManagedPtr connectable
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketClientConnectMethodInfo a signature where
overloadedMethod _ = socketClientConnect
#endif
foreign import ccall "g_socket_client_connect_async" g_socket_client_connect_async ::
Ptr SocketClient ->
Ptr Gio.SocketConnectable.SocketConnectable ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
socketClientConnectAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
socketClientConnectAsync client connectable cancellable callback = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
connectable' <- unsafeManagedPtrCastPtr connectable
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_socket_client_connect_async client' connectable' maybeCancellable maybeCallback userData
touchManagedPtr client
touchManagedPtr connectable
whenJust cancellable touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectAsyncMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketClientConnectAsyncMethodInfo a signature where
overloadedMethod _ = socketClientConnectAsync
#endif
foreign import ccall "g_socket_client_connect_finish" g_socket_client_connect_finish ::
Ptr SocketClient ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.SocketConnection.SocketConnection
socketClientConnectFinish client result_ = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ g_socket_client_connect_finish client' result_'
checkUnexpectedReturnNULL "socketClientConnectFinish" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
touchManagedPtr result_
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectFinishMethodInfo
instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectFinishMethodInfo a signature where
overloadedMethod _ = socketClientConnectFinish
#endif
foreign import ccall "g_socket_client_connect_to_host" g_socket_client_connect_to_host ::
Ptr SocketClient ->
CString ->
Word16 ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToHost ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Word16
-> Maybe (b)
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToHost client hostAndPort defaultPort cancellable = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
hostAndPort' <- textToCString hostAndPort
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_socket_client_connect_to_host client' hostAndPort' defaultPort maybeCancellable
checkUnexpectedReturnNULL "socketClientConnectToHost" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem hostAndPort'
return result'
) (do
freeMem hostAndPort'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToHostMethodInfo
instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToHostMethodInfo a signature where
overloadedMethod _ = socketClientConnectToHost
#endif
foreign import ccall "g_socket_client_connect_to_host_async" g_socket_client_connect_to_host_async ::
Ptr SocketClient ->
CString ->
Word16 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
socketClientConnectToHostAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Word16
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
socketClientConnectToHostAsync client hostAndPort defaultPort cancellable callback = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
hostAndPort' <- textToCString hostAndPort
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_socket_client_connect_to_host_async client' hostAndPort' defaultPort maybeCancellable maybeCallback userData
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem hostAndPort'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToHostAsyncMethodInfo
instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToHostAsyncMethodInfo a signature where
overloadedMethod _ = socketClientConnectToHostAsync
#endif
foreign import ccall "g_socket_client_connect_to_host_finish" g_socket_client_connect_to_host_finish ::
Ptr SocketClient ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToHostFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToHostFinish client result_ = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ g_socket_client_connect_to_host_finish client' result_'
checkUnexpectedReturnNULL "socketClientConnectToHostFinish" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
touchManagedPtr result_
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToHostFinishMethodInfo
instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToHostFinishMethodInfo a signature where
overloadedMethod _ = socketClientConnectToHostFinish
#endif
foreign import ccall "g_socket_client_connect_to_service" g_socket_client_connect_to_service ::
Ptr SocketClient ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToService ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> T.Text
-> Maybe (b)
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToService client domain service cancellable = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
domain' <- textToCString domain
service' <- textToCString service
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_socket_client_connect_to_service client' domain' service' maybeCancellable
checkUnexpectedReturnNULL "socketClientConnectToService" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem domain'
freeMem service'
return result'
) (do
freeMem domain'
freeMem service'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToServiceMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToServiceMethodInfo a signature where
overloadedMethod _ = socketClientConnectToService
#endif
foreign import ccall "g_socket_client_connect_to_service_async" g_socket_client_connect_to_service_async ::
Ptr SocketClient ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
socketClientConnectToServiceAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
socketClientConnectToServiceAsync client domain service cancellable callback = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
domain' <- textToCString domain
service' <- textToCString service
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_socket_client_connect_to_service_async client' domain' service' maybeCancellable maybeCallback userData
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem domain'
freeMem service'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToServiceAsyncMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToServiceAsyncMethodInfo a signature where
overloadedMethod _ = socketClientConnectToServiceAsync
#endif
foreign import ccall "g_socket_client_connect_to_service_finish" g_socket_client_connect_to_service_finish ::
Ptr SocketClient ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToServiceFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToServiceFinish client result_ = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ g_socket_client_connect_to_service_finish client' result_'
checkUnexpectedReturnNULL "socketClientConnectToServiceFinish" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
touchManagedPtr result_
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToServiceFinishMethodInfo
instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToServiceFinishMethodInfo a signature where
overloadedMethod _ = socketClientConnectToServiceFinish
#endif
foreign import ccall "g_socket_client_connect_to_uri" g_socket_client_connect_to_uri ::
Ptr SocketClient ->
CString ->
Word16 ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToUri ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Word16
-> Maybe (b)
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToUri client uri defaultPort cancellable = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
uri' <- textToCString uri
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_socket_client_connect_to_uri client' uri' defaultPort maybeCancellable
checkUnexpectedReturnNULL "socketClientConnectToUri" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem uri'
return result'
) (do
freeMem uri'
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToUriMethodInfo
instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToUriMethodInfo a signature where
overloadedMethod _ = socketClientConnectToUri
#endif
foreign import ccall "g_socket_client_connect_to_uri_async" g_socket_client_connect_to_uri_async ::
Ptr SocketClient ->
CString ->
Word16 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
socketClientConnectToUriAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Word16
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
socketClientConnectToUriAsync client uri defaultPort cancellable callback = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
uri' <- textToCString uri
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_socket_client_connect_to_uri_async client' uri' defaultPort maybeCancellable maybeCallback userData
touchManagedPtr client
whenJust cancellable touchManagedPtr
freeMem uri'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToUriAsyncMethodInfo
instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToUriAsyncMethodInfo a signature where
overloadedMethod _ = socketClientConnectToUriAsync
#endif
foreign import ccall "g_socket_client_connect_to_uri_finish" g_socket_client_connect_to_uri_finish ::
Ptr SocketClient ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.SocketConnection.SocketConnection)
socketClientConnectToUriFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.SocketConnection.SocketConnection
socketClientConnectToUriFinish client result_ = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ g_socket_client_connect_to_uri_finish client' result_'
checkUnexpectedReturnNULL "socketClientConnectToUriFinish" result
result' <- (wrapObject Gio.SocketConnection.SocketConnection) result
touchManagedPtr client
touchManagedPtr result_
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientConnectToUriFinishMethodInfo
instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToUriFinishMethodInfo a signature where
overloadedMethod _ = socketClientConnectToUriFinish
#endif
foreign import ccall "g_socket_client_get_enable_proxy" g_socket_client_get_enable_proxy ::
Ptr SocketClient ->
IO CInt
socketClientGetEnableProxy ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Bool
socketClientGetEnableProxy client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_enable_proxy client'
let result' = (/= 0) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetEnableProxyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetEnableProxyMethodInfo a signature where
overloadedMethod _ = socketClientGetEnableProxy
#endif
foreign import ccall "g_socket_client_get_family" g_socket_client_get_family ::
Ptr SocketClient ->
IO CUInt
socketClientGetFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Gio.Enums.SocketFamily
socketClientGetFamily client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_family client'
let result' = (toEnum . fromIntegral) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetFamilyMethodInfo
instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetFamilyMethodInfo a signature where
overloadedMethod _ = socketClientGetFamily
#endif
foreign import ccall "g_socket_client_get_local_address" g_socket_client_get_local_address ::
Ptr SocketClient ->
IO (Ptr Gio.SocketAddress.SocketAddress)
socketClientGetLocalAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Gio.SocketAddress.SocketAddress
socketClientGetLocalAddress client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_local_address client'
checkUnexpectedReturnNULL "socketClientGetLocalAddress" result
result' <- (newObject Gio.SocketAddress.SocketAddress) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetLocalAddressMethodInfo
instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetLocalAddressMethodInfo a signature where
overloadedMethod _ = socketClientGetLocalAddress
#endif
foreign import ccall "g_socket_client_get_protocol" g_socket_client_get_protocol ::
Ptr SocketClient ->
IO CUInt
socketClientGetProtocol ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Gio.Enums.SocketProtocol
socketClientGetProtocol client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_protocol client'
let result' = (toEnum . fromIntegral) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetProtocolMethodInfo
instance (signature ~ (m Gio.Enums.SocketProtocol), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetProtocolMethodInfo a signature where
overloadedMethod _ = socketClientGetProtocol
#endif
foreign import ccall "g_socket_client_get_proxy_resolver" g_socket_client_get_proxy_resolver ::
Ptr SocketClient ->
IO (Ptr Gio.ProxyResolver.ProxyResolver)
socketClientGetProxyResolver ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Gio.ProxyResolver.ProxyResolver
socketClientGetProxyResolver client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_proxy_resolver client'
checkUnexpectedReturnNULL "socketClientGetProxyResolver" result
result' <- (newObject Gio.ProxyResolver.ProxyResolver) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetProxyResolverMethodInfo
instance (signature ~ (m Gio.ProxyResolver.ProxyResolver), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetProxyResolverMethodInfo a signature where
overloadedMethod _ = socketClientGetProxyResolver
#endif
foreign import ccall "g_socket_client_get_socket_type" g_socket_client_get_socket_type ::
Ptr SocketClient ->
IO CUInt
socketClientGetSocketType ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Gio.Enums.SocketType
socketClientGetSocketType client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_socket_type client'
let result' = (toEnum . fromIntegral) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetSocketTypeMethodInfo
instance (signature ~ (m Gio.Enums.SocketType), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetSocketTypeMethodInfo a signature where
overloadedMethod _ = socketClientGetSocketType
#endif
foreign import ccall "g_socket_client_get_timeout" g_socket_client_get_timeout ::
Ptr SocketClient ->
IO Word32
socketClientGetTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Word32
socketClientGetTimeout client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_timeout client'
touchManagedPtr client
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetTimeoutMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTimeoutMethodInfo a signature where
overloadedMethod _ = socketClientGetTimeout
#endif
foreign import ccall "g_socket_client_get_tls" g_socket_client_get_tls ::
Ptr SocketClient ->
IO CInt
socketClientGetTls ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m Bool
socketClientGetTls client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_tls client'
let result' = (/= 0) result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetTlsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTlsMethodInfo a signature where
overloadedMethod _ = socketClientGetTls
#endif
foreign import ccall "g_socket_client_get_tls_validation_flags" g_socket_client_get_tls_validation_flags ::
Ptr SocketClient ->
IO CUInt
socketClientGetTlsValidationFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> m [Gio.Flags.TlsCertificateFlags]
socketClientGetTlsValidationFlags client = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
result <- g_socket_client_get_tls_validation_flags client'
let result' = wordToGFlags result
touchManagedPtr client
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientGetTlsValidationFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTlsValidationFlagsMethodInfo a signature where
overloadedMethod _ = socketClientGetTlsValidationFlags
#endif
foreign import ccall "g_socket_client_set_enable_proxy" g_socket_client_set_enable_proxy ::
Ptr SocketClient ->
CInt ->
IO ()
socketClientSetEnableProxy ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Bool
-> m ()
socketClientSetEnableProxy client enable = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let enable' = (fromIntegral . fromEnum) enable
g_socket_client_set_enable_proxy client' enable'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetEnableProxyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetEnableProxyMethodInfo a signature where
overloadedMethod _ = socketClientSetEnableProxy
#endif
foreign import ccall "g_socket_client_set_family" g_socket_client_set_family ::
Ptr SocketClient ->
CUInt ->
IO ()
socketClientSetFamily ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Gio.Enums.SocketFamily
-> m ()
socketClientSetFamily client family = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let family' = (fromIntegral . fromEnum) family
g_socket_client_set_family client' family'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetFamilyMethodInfo
instance (signature ~ (Gio.Enums.SocketFamily -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetFamilyMethodInfo a signature where
overloadedMethod _ = socketClientSetFamily
#endif
foreign import ccall "g_socket_client_set_local_address" g_socket_client_set_local_address ::
Ptr SocketClient ->
Ptr Gio.SocketAddress.SocketAddress ->
IO ()
socketClientSetLocalAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketAddress.IsSocketAddress b) =>
a
-> Maybe (b)
-> m ()
socketClientSetLocalAddress client address = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
maybeAddress <- case address of
Nothing -> return nullPtr
Just jAddress -> do
jAddress' <- unsafeManagedPtrCastPtr jAddress
return jAddress'
g_socket_client_set_local_address client' maybeAddress
touchManagedPtr client
whenJust address touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetLocalAddressMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSocketClient a, Gio.SocketAddress.IsSocketAddress b) => O.MethodInfo SocketClientSetLocalAddressMethodInfo a signature where
overloadedMethod _ = socketClientSetLocalAddress
#endif
foreign import ccall "g_socket_client_set_protocol" g_socket_client_set_protocol ::
Ptr SocketClient ->
CUInt ->
IO ()
socketClientSetProtocol ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Gio.Enums.SocketProtocol
-> m ()
socketClientSetProtocol client protocol = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let protocol' = (fromIntegral . fromEnum) protocol
g_socket_client_set_protocol client' protocol'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetProtocolMethodInfo
instance (signature ~ (Gio.Enums.SocketProtocol -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetProtocolMethodInfo a signature where
overloadedMethod _ = socketClientSetProtocol
#endif
foreign import ccall "g_socket_client_set_proxy_resolver" g_socket_client_set_proxy_resolver ::
Ptr SocketClient ->
Ptr Gio.ProxyResolver.ProxyResolver ->
IO ()
socketClientSetProxyResolver ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.ProxyResolver.IsProxyResolver b) =>
a
-> Maybe (b)
-> m ()
socketClientSetProxyResolver client proxyResolver = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
maybeProxyResolver <- case proxyResolver of
Nothing -> return nullPtr
Just jProxyResolver -> do
jProxyResolver' <- unsafeManagedPtrCastPtr jProxyResolver
return jProxyResolver'
g_socket_client_set_proxy_resolver client' maybeProxyResolver
touchManagedPtr client
whenJust proxyResolver touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetProxyResolverMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSocketClient a, Gio.ProxyResolver.IsProxyResolver b) => O.MethodInfo SocketClientSetProxyResolverMethodInfo a signature where
overloadedMethod _ = socketClientSetProxyResolver
#endif
foreign import ccall "g_socket_client_set_socket_type" g_socket_client_set_socket_type ::
Ptr SocketClient ->
CUInt ->
IO ()
socketClientSetSocketType ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Gio.Enums.SocketType
-> m ()
socketClientSetSocketType client type_ = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let type_' = (fromIntegral . fromEnum) type_
g_socket_client_set_socket_type client' type_'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetSocketTypeMethodInfo
instance (signature ~ (Gio.Enums.SocketType -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetSocketTypeMethodInfo a signature where
overloadedMethod _ = socketClientSetSocketType
#endif
foreign import ccall "g_socket_client_set_timeout" g_socket_client_set_timeout ::
Ptr SocketClient ->
Word32 ->
IO ()
socketClientSetTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Word32
-> m ()
socketClientSetTimeout client timeout = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
g_socket_client_set_timeout client' timeout
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetTimeoutMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTimeoutMethodInfo a signature where
overloadedMethod _ = socketClientSetTimeout
#endif
foreign import ccall "g_socket_client_set_tls" g_socket_client_set_tls ::
Ptr SocketClient ->
CInt ->
IO ()
socketClientSetTls ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> Bool
-> m ()
socketClientSetTls client tls = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let tls' = (fromIntegral . fromEnum) tls
g_socket_client_set_tls client' tls'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetTlsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTlsMethodInfo a signature where
overloadedMethod _ = socketClientSetTls
#endif
foreign import ccall "g_socket_client_set_tls_validation_flags" g_socket_client_set_tls_validation_flags ::
Ptr SocketClient ->
CUInt ->
IO ()
socketClientSetTlsValidationFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>
a
-> [Gio.Flags.TlsCertificateFlags]
-> m ()
socketClientSetTlsValidationFlags client flags = liftIO $ do
client' <- unsafeManagedPtrCastPtr client
let flags' = gflagsToWord flags
g_socket_client_set_tls_validation_flags client' flags'
touchManagedPtr client
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SocketClientSetTlsValidationFlagsMethodInfo
instance (signature ~ ([Gio.Flags.TlsCertificateFlags] -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTlsValidationFlagsMethodInfo a signature where
overloadedMethod _ = socketClientSetTlsValidationFlags
#endif