module GI.Gio.Interfaces.DtlsConnection
(
DtlsConnection(..) ,
noDtlsConnection ,
IsDtlsConnection ,
toDtlsConnection ,
DtlsConnectionCloseMethodInfo ,
dtlsConnectionClose ,
DtlsConnectionCloseAsyncMethodInfo ,
dtlsConnectionCloseAsync ,
DtlsConnectionCloseFinishMethodInfo ,
dtlsConnectionCloseFinish ,
DtlsConnectionEmitAcceptCertificateMethodInfo,
dtlsConnectionEmitAcceptCertificate ,
DtlsConnectionGetCertificateMethodInfo ,
dtlsConnectionGetCertificate ,
DtlsConnectionGetDatabaseMethodInfo ,
dtlsConnectionGetDatabase ,
DtlsConnectionGetInteractionMethodInfo ,
dtlsConnectionGetInteraction ,
DtlsConnectionGetPeerCertificateMethodInfo,
dtlsConnectionGetPeerCertificate ,
DtlsConnectionGetPeerCertificateErrorsMethodInfo,
dtlsConnectionGetPeerCertificateErrors ,
DtlsConnectionGetRehandshakeModeMethodInfo,
dtlsConnectionGetRehandshakeMode ,
DtlsConnectionGetRequireCloseNotifyMethodInfo,
dtlsConnectionGetRequireCloseNotify ,
DtlsConnectionHandshakeMethodInfo ,
dtlsConnectionHandshake ,
DtlsConnectionHandshakeAsyncMethodInfo ,
dtlsConnectionHandshakeAsync ,
DtlsConnectionHandshakeFinishMethodInfo ,
dtlsConnectionHandshakeFinish ,
DtlsConnectionSetCertificateMethodInfo ,
dtlsConnectionSetCertificate ,
DtlsConnectionSetDatabaseMethodInfo ,
dtlsConnectionSetDatabase ,
DtlsConnectionSetInteractionMethodInfo ,
dtlsConnectionSetInteraction ,
DtlsConnectionSetRehandshakeModeMethodInfo,
dtlsConnectionSetRehandshakeMode ,
DtlsConnectionSetRequireCloseNotifyMethodInfo,
dtlsConnectionSetRequireCloseNotify ,
DtlsConnectionShutdownMethodInfo ,
dtlsConnectionShutdown ,
DtlsConnectionShutdownAsyncMethodInfo ,
dtlsConnectionShutdownAsync ,
DtlsConnectionShutdownFinishMethodInfo ,
dtlsConnectionShutdownFinish ,
DtlsConnectionBaseSocketPropertyInfo ,
constructDtlsConnectionBaseSocket ,
dtlsConnectionBaseSocket ,
getDtlsConnectionBaseSocket ,
DtlsConnectionCertificatePropertyInfo ,
constructDtlsConnectionCertificate ,
dtlsConnectionCertificate ,
getDtlsConnectionCertificate ,
setDtlsConnectionCertificate ,
DtlsConnectionDatabasePropertyInfo ,
constructDtlsConnectionDatabase ,
dtlsConnectionDatabase ,
getDtlsConnectionDatabase ,
setDtlsConnectionDatabase ,
DtlsConnectionInteractionPropertyInfo ,
clearDtlsConnectionInteraction ,
constructDtlsConnectionInteraction ,
dtlsConnectionInteraction ,
getDtlsConnectionInteraction ,
setDtlsConnectionInteraction ,
DtlsConnectionPeerCertificatePropertyInfo,
dtlsConnectionPeerCertificate ,
getDtlsConnectionPeerCertificate ,
DtlsConnectionPeerCertificateErrorsPropertyInfo,
dtlsConnectionPeerCertificateErrors ,
getDtlsConnectionPeerCertificateErrors ,
DtlsConnectionRehandshakeModePropertyInfo,
constructDtlsConnectionRehandshakeMode ,
dtlsConnectionRehandshakeMode ,
getDtlsConnectionRehandshakeMode ,
setDtlsConnectionRehandshakeMode ,
DtlsConnectionRequireCloseNotifyPropertyInfo,
constructDtlsConnectionRequireCloseNotify,
dtlsConnectionRequireCloseNotify ,
getDtlsConnectionRequireCloseNotify ,
setDtlsConnectionRequireCloseNotify ,
C_DtlsConnectionAcceptCertificateCallback,
DtlsConnectionAcceptCertificateCallback ,
DtlsConnectionAcceptCertificateSignalInfo,
afterDtlsConnectionAcceptCertificate ,
genClosure_DtlsConnectionAcceptCertificate,
mk_DtlsConnectionAcceptCertificateCallback,
noDtlsConnectionAcceptCertificateCallback,
onDtlsConnectionAcceptCertificate ,
wrap_DtlsConnectionAcceptCertificateCallback,
) 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.DatagramBased as Gio.DatagramBased
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate
import qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase
import qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction
newtype DtlsConnection = DtlsConnection (ManagedPtr DtlsConnection)
noDtlsConnection :: Maybe DtlsConnection
noDtlsConnection = Nothing
type DtlsConnectionAcceptCertificateCallback =
Gio.TlsCertificate.TlsCertificate ->
[Gio.Flags.TlsCertificateFlags] ->
IO Bool
noDtlsConnectionAcceptCertificateCallback :: Maybe DtlsConnectionAcceptCertificateCallback
noDtlsConnectionAcceptCertificateCallback = Nothing
type C_DtlsConnectionAcceptCertificateCallback =
Ptr () ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_DtlsConnectionAcceptCertificateCallback :: C_DtlsConnectionAcceptCertificateCallback -> IO (FunPtr C_DtlsConnectionAcceptCertificateCallback)
genClosure_DtlsConnectionAcceptCertificate :: DtlsConnectionAcceptCertificateCallback -> IO Closure
genClosure_DtlsConnectionAcceptCertificate cb = do
let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb
mk_DtlsConnectionAcceptCertificateCallback cb' >>= newCClosure
wrap_DtlsConnectionAcceptCertificateCallback ::
DtlsConnectionAcceptCertificateCallback ->
Ptr () ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
wrap_DtlsConnectionAcceptCertificateCallback _cb _ peerCert errors _ = do
peerCert' <- (newObject Gio.TlsCertificate.TlsCertificate) peerCert
let errors' = wordToGFlags errors
result <- _cb peerCert' errors'
let result' = (fromIntegral . fromEnum) result
return result'
onDtlsConnectionAcceptCertificate :: (IsDtlsConnection a, MonadIO m) => a -> DtlsConnectionAcceptCertificateCallback -> m SignalHandlerId
onDtlsConnectionAcceptCertificate obj cb = liftIO $ do
let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb
cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'
connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectBefore
afterDtlsConnectionAcceptCertificate :: (IsDtlsConnection a, MonadIO m) => a -> DtlsConnectionAcceptCertificateCallback -> m SignalHandlerId
afterDtlsConnectionAcceptCertificate obj cb = liftIO $ do
let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb
cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'
connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectAfter
data DtlsConnectionAcceptCertificateSignalInfo
instance SignalInfo DtlsConnectionAcceptCertificateSignalInfo where
type HaskellCallbackType DtlsConnectionAcceptCertificateSignalInfo = DtlsConnectionAcceptCertificateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb
cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'
connectSignalFunPtr obj "accept-certificate" cb'' connectMode
type instance O.SignalList DtlsConnection = DtlsConnectionSignalList
type DtlsConnectionSignalList = ('[ '("acceptCertificate", DtlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dtls_connection_get_type"
c_g_dtls_connection_get_type :: IO GType
instance GObject DtlsConnection where
gobjectType _ = c_g_dtls_connection_get_type
class GObject o => IsDtlsConnection o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DtlsConnection a) =>
IsDtlsConnection a
#endif
instance IsDtlsConnection DtlsConnection
instance Gio.DatagramBased.IsDatagramBased DtlsConnection
instance GObject.Object.IsObject DtlsConnection
toDtlsConnection :: IsDtlsConnection o => o -> IO DtlsConnection
toDtlsConnection = unsafeCastTo DtlsConnection
getDtlsConnectionBaseSocket :: (MonadIO m, IsDtlsConnection o) => o -> m (Maybe Gio.DatagramBased.DatagramBased)
getDtlsConnectionBaseSocket obj = liftIO $ getObjectPropertyObject obj "base-socket" Gio.DatagramBased.DatagramBased
constructDtlsConnectionBaseSocket :: (IsDtlsConnection o, Gio.DatagramBased.IsDatagramBased a) => a -> IO (GValueConstruct o)
constructDtlsConnectionBaseSocket val = constructObjectPropertyObject "base-socket" (Just val)
data DtlsConnectionBaseSocketPropertyInfo
instance AttrInfo DtlsConnectionBaseSocketPropertyInfo where
type AttrAllowedOps DtlsConnectionBaseSocketPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DtlsConnectionBaseSocketPropertyInfo = Gio.DatagramBased.IsDatagramBased
type AttrBaseTypeConstraint DtlsConnectionBaseSocketPropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionBaseSocketPropertyInfo = (Maybe Gio.DatagramBased.DatagramBased)
type AttrLabel DtlsConnectionBaseSocketPropertyInfo = "base-socket"
type AttrOrigin DtlsConnectionBaseSocketPropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionBaseSocket
attrSet _ = undefined
attrConstruct _ = constructDtlsConnectionBaseSocket
attrClear _ = undefined
getDtlsConnectionCertificate :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate
getDtlsConnectionCertificate obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionCertificate" $ getObjectPropertyObject obj "certificate" Gio.TlsCertificate.TlsCertificate
setDtlsConnectionCertificate :: (MonadIO m, IsDtlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => o -> a -> m ()
setDtlsConnectionCertificate obj val = liftIO $ setObjectPropertyObject obj "certificate" (Just val)
constructDtlsConnectionCertificate :: (IsDtlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => a -> IO (GValueConstruct o)
constructDtlsConnectionCertificate val = constructObjectPropertyObject "certificate" (Just val)
data DtlsConnectionCertificatePropertyInfo
instance AttrInfo DtlsConnectionCertificatePropertyInfo where
type AttrAllowedOps DtlsConnectionCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DtlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate
type AttrBaseTypeConstraint DtlsConnectionCertificatePropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate
type AttrLabel DtlsConnectionCertificatePropertyInfo = "certificate"
type AttrOrigin DtlsConnectionCertificatePropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionCertificate
attrSet _ = setDtlsConnectionCertificate
attrConstruct _ = constructDtlsConnectionCertificate
attrClear _ = undefined
getDtlsConnectionDatabase :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsDatabase.TlsDatabase
getDtlsConnectionDatabase obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionDatabase" $ getObjectPropertyObject obj "database" Gio.TlsDatabase.TlsDatabase
setDtlsConnectionDatabase :: (MonadIO m, IsDtlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()
setDtlsConnectionDatabase obj val = liftIO $ setObjectPropertyObject obj "database" (Just val)
constructDtlsConnectionDatabase :: (IsDtlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => a -> IO (GValueConstruct o)
constructDtlsConnectionDatabase val = constructObjectPropertyObject "database" (Just val)
data DtlsConnectionDatabasePropertyInfo
instance AttrInfo DtlsConnectionDatabasePropertyInfo where
type AttrAllowedOps DtlsConnectionDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DtlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase
type AttrBaseTypeConstraint DtlsConnectionDatabasePropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.TlsDatabase
type AttrLabel DtlsConnectionDatabasePropertyInfo = "database"
type AttrOrigin DtlsConnectionDatabasePropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionDatabase
attrSet _ = setDtlsConnectionDatabase
attrConstruct _ = constructDtlsConnectionDatabase
attrClear _ = undefined
getDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsInteraction.TlsInteraction
getDtlsConnectionInteraction obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionInteraction" $ getObjectPropertyObject obj "interaction" Gio.TlsInteraction.TlsInteraction
setDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => o -> a -> m ()
setDtlsConnectionInteraction obj val = liftIO $ setObjectPropertyObject obj "interaction" (Just val)
constructDtlsConnectionInteraction :: (IsDtlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => a -> IO (GValueConstruct o)
constructDtlsConnectionInteraction val = constructObjectPropertyObject "interaction" (Just val)
clearDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o) => o -> m ()
clearDtlsConnectionInteraction obj = liftIO $ setObjectPropertyObject obj "interaction" (Nothing :: Maybe Gio.TlsInteraction.TlsInteraction)
data DtlsConnectionInteractionPropertyInfo
instance AttrInfo DtlsConnectionInteractionPropertyInfo where
type AttrAllowedOps DtlsConnectionInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DtlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.IsTlsInteraction
type AttrBaseTypeConstraint DtlsConnectionInteractionPropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.TlsInteraction
type AttrLabel DtlsConnectionInteractionPropertyInfo = "interaction"
type AttrOrigin DtlsConnectionInteractionPropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionInteraction
attrSet _ = setDtlsConnectionInteraction
attrConstruct _ = constructDtlsConnectionInteraction
attrClear _ = clearDtlsConnectionInteraction
getDtlsConnectionPeerCertificate :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate
getDtlsConnectionPeerCertificate obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionPeerCertificate" $ getObjectPropertyObject obj "peer-certificate" Gio.TlsCertificate.TlsCertificate
data DtlsConnectionPeerCertificatePropertyInfo
instance AttrInfo DtlsConnectionPeerCertificatePropertyInfo where
type AttrAllowedOps DtlsConnectionPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DtlsConnectionPeerCertificatePropertyInfo = (~) ()
type AttrBaseTypeConstraint DtlsConnectionPeerCertificatePropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionPeerCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate
type AttrLabel DtlsConnectionPeerCertificatePropertyInfo = "peer-certificate"
type AttrOrigin DtlsConnectionPeerCertificatePropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionPeerCertificate
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDtlsConnectionPeerCertificateErrors :: (MonadIO m, IsDtlsConnection o) => o -> m [Gio.Flags.TlsCertificateFlags]
getDtlsConnectionPeerCertificateErrors obj = liftIO $ getObjectPropertyFlags obj "peer-certificate-errors"
data DtlsConnectionPeerCertificateErrorsPropertyInfo
instance AttrInfo DtlsConnectionPeerCertificateErrorsPropertyInfo where
type AttrAllowedOps DtlsConnectionPeerCertificateErrorsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DtlsConnectionPeerCertificateErrorsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DtlsConnectionPeerCertificateErrorsPropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionPeerCertificateErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]
type AttrLabel DtlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors"
type AttrOrigin DtlsConnectionPeerCertificateErrorsPropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionPeerCertificateErrors
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDtlsConnectionRehandshakeMode :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.Enums.TlsRehandshakeMode
getDtlsConnectionRehandshakeMode obj = liftIO $ getObjectPropertyEnum obj "rehandshake-mode"
setDtlsConnectionRehandshakeMode :: (MonadIO m, IsDtlsConnection o) => o -> Gio.Enums.TlsRehandshakeMode -> m ()
setDtlsConnectionRehandshakeMode obj val = liftIO $ setObjectPropertyEnum obj "rehandshake-mode" val
constructDtlsConnectionRehandshakeMode :: (IsDtlsConnection o) => Gio.Enums.TlsRehandshakeMode -> IO (GValueConstruct o)
constructDtlsConnectionRehandshakeMode val = constructObjectPropertyEnum "rehandshake-mode" val
data DtlsConnectionRehandshakeModePropertyInfo
instance AttrInfo DtlsConnectionRehandshakeModePropertyInfo where
type AttrAllowedOps DtlsConnectionRehandshakeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DtlsConnectionRehandshakeModePropertyInfo = (~) Gio.Enums.TlsRehandshakeMode
type AttrBaseTypeConstraint DtlsConnectionRehandshakeModePropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionRehandshakeModePropertyInfo = Gio.Enums.TlsRehandshakeMode
type AttrLabel DtlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode"
type AttrOrigin DtlsConnectionRehandshakeModePropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionRehandshakeMode
attrSet _ = setDtlsConnectionRehandshakeMode
attrConstruct _ = constructDtlsConnectionRehandshakeMode
attrClear _ = undefined
getDtlsConnectionRequireCloseNotify :: (MonadIO m, IsDtlsConnection o) => o -> m Bool
getDtlsConnectionRequireCloseNotify obj = liftIO $ getObjectPropertyBool obj "require-close-notify"
setDtlsConnectionRequireCloseNotify :: (MonadIO m, IsDtlsConnection o) => o -> Bool -> m ()
setDtlsConnectionRequireCloseNotify obj val = liftIO $ setObjectPropertyBool obj "require-close-notify" val
constructDtlsConnectionRequireCloseNotify :: (IsDtlsConnection o) => Bool -> IO (GValueConstruct o)
constructDtlsConnectionRequireCloseNotify val = constructObjectPropertyBool "require-close-notify" val
data DtlsConnectionRequireCloseNotifyPropertyInfo
instance AttrInfo DtlsConnectionRequireCloseNotifyPropertyInfo where
type AttrAllowedOps DtlsConnectionRequireCloseNotifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DtlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DtlsConnectionRequireCloseNotifyPropertyInfo = IsDtlsConnection
type AttrGetType DtlsConnectionRequireCloseNotifyPropertyInfo = Bool
type AttrLabel DtlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify"
type AttrOrigin DtlsConnectionRequireCloseNotifyPropertyInfo = DtlsConnection
attrGet _ = getDtlsConnectionRequireCloseNotify
attrSet _ = setDtlsConnectionRequireCloseNotify
attrConstruct _ = constructDtlsConnectionRequireCloseNotify
attrClear _ = undefined
instance O.HasAttributeList DtlsConnection
type instance O.AttributeList DtlsConnection = DtlsConnectionAttributeList
type DtlsConnectionAttributeList = ('[ '("baseSocket", DtlsConnectionBaseSocketPropertyInfo), '("certificate", DtlsConnectionCertificatePropertyInfo), '("database", DtlsConnectionDatabasePropertyInfo), '("interaction", DtlsConnectionInteractionPropertyInfo), '("peerCertificate", DtlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", DtlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", DtlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", DtlsConnectionRequireCloseNotifyPropertyInfo)] :: [(Symbol, *)])
dtlsConnectionBaseSocket :: AttrLabelProxy "baseSocket"
dtlsConnectionBaseSocket = AttrLabelProxy
dtlsConnectionCertificate :: AttrLabelProxy "certificate"
dtlsConnectionCertificate = AttrLabelProxy
dtlsConnectionDatabase :: AttrLabelProxy "database"
dtlsConnectionDatabase = AttrLabelProxy
dtlsConnectionInteraction :: AttrLabelProxy "interaction"
dtlsConnectionInteraction = AttrLabelProxy
dtlsConnectionPeerCertificate :: AttrLabelProxy "peerCertificate"
dtlsConnectionPeerCertificate = AttrLabelProxy
dtlsConnectionPeerCertificateErrors :: AttrLabelProxy "peerCertificateErrors"
dtlsConnectionPeerCertificateErrors = AttrLabelProxy
dtlsConnectionRehandshakeMode :: AttrLabelProxy "rehandshakeMode"
dtlsConnectionRehandshakeMode = AttrLabelProxy
dtlsConnectionRequireCloseNotify :: AttrLabelProxy "requireCloseNotify"
dtlsConnectionRequireCloseNotify = AttrLabelProxy
type family ResolveDtlsConnectionMethod (t :: Symbol) (o :: *) :: * where
ResolveDtlsConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDtlsConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDtlsConnectionMethod "close" o = DtlsConnectionCloseMethodInfo
ResolveDtlsConnectionMethod "closeAsync" o = DtlsConnectionCloseAsyncMethodInfo
ResolveDtlsConnectionMethod "closeFinish" o = DtlsConnectionCloseFinishMethodInfo
ResolveDtlsConnectionMethod "conditionCheck" o = Gio.DatagramBased.DatagramBasedConditionCheckMethodInfo
ResolveDtlsConnectionMethod "conditionWait" o = Gio.DatagramBased.DatagramBasedConditionWaitMethodInfo
ResolveDtlsConnectionMethod "createSource" o = Gio.DatagramBased.DatagramBasedCreateSourceMethodInfo
ResolveDtlsConnectionMethod "emitAcceptCertificate" o = DtlsConnectionEmitAcceptCertificateMethodInfo
ResolveDtlsConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDtlsConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDtlsConnectionMethod "handshake" o = DtlsConnectionHandshakeMethodInfo
ResolveDtlsConnectionMethod "handshakeAsync" o = DtlsConnectionHandshakeAsyncMethodInfo
ResolveDtlsConnectionMethod "handshakeFinish" o = DtlsConnectionHandshakeFinishMethodInfo
ResolveDtlsConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDtlsConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDtlsConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDtlsConnectionMethod "receiveMessages" o = Gio.DatagramBased.DatagramBasedReceiveMessagesMethodInfo
ResolveDtlsConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDtlsConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDtlsConnectionMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDtlsConnectionMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDtlsConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDtlsConnectionMethod "sendMessages" o = Gio.DatagramBased.DatagramBasedSendMessagesMethodInfo
ResolveDtlsConnectionMethod "shutdown" o = DtlsConnectionShutdownMethodInfo
ResolveDtlsConnectionMethod "shutdownAsync" o = DtlsConnectionShutdownAsyncMethodInfo
ResolveDtlsConnectionMethod "shutdownFinish" o = DtlsConnectionShutdownFinishMethodInfo
ResolveDtlsConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDtlsConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDtlsConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDtlsConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDtlsConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDtlsConnectionMethod "getCertificate" o = DtlsConnectionGetCertificateMethodInfo
ResolveDtlsConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDtlsConnectionMethod "getDatabase" o = DtlsConnectionGetDatabaseMethodInfo
ResolveDtlsConnectionMethod "getInteraction" o = DtlsConnectionGetInteractionMethodInfo
ResolveDtlsConnectionMethod "getPeerCertificate" o = DtlsConnectionGetPeerCertificateMethodInfo
ResolveDtlsConnectionMethod "getPeerCertificateErrors" o = DtlsConnectionGetPeerCertificateErrorsMethodInfo
ResolveDtlsConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDtlsConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDtlsConnectionMethod "getRehandshakeMode" o = DtlsConnectionGetRehandshakeModeMethodInfo
ResolveDtlsConnectionMethod "getRequireCloseNotify" o = DtlsConnectionGetRequireCloseNotifyMethodInfo
ResolveDtlsConnectionMethod "setCertificate" o = DtlsConnectionSetCertificateMethodInfo
ResolveDtlsConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDtlsConnectionMethod "setDatabase" o = DtlsConnectionSetDatabaseMethodInfo
ResolveDtlsConnectionMethod "setInteraction" o = DtlsConnectionSetInteractionMethodInfo
ResolveDtlsConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDtlsConnectionMethod "setRehandshakeMode" o = DtlsConnectionSetRehandshakeModeMethodInfo
ResolveDtlsConnectionMethod "setRequireCloseNotify" o = DtlsConnectionSetRequireCloseNotifyMethodInfo
ResolveDtlsConnectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDtlsConnectionMethod t DtlsConnection, O.MethodInfo info DtlsConnection p) => O.IsLabelProxy t (DtlsConnection -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDtlsConnectionMethod t DtlsConnection, O.MethodInfo info DtlsConnection p) => O.IsLabel t (DtlsConnection -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
foreign import ccall "g_dtls_connection_close" g_dtls_connection_close ::
Ptr DtlsConnection ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionClose ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> m ()
dtlsConnectionClose conn cancellable = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_dtls_connection_close conn' maybeCancellable
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
data DtlsConnectionCloseMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionCloseMethodInfo a signature where
overloadedMethod _ = dtlsConnectionClose
foreign import ccall "g_dtls_connection_close_async" g_dtls_connection_close_async ::
Ptr DtlsConnection ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dtlsConnectionCloseAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dtlsConnectionCloseAsync conn ioPriority cancellable callback = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
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_dtls_connection_close_async conn' ioPriority maybeCancellable maybeCallback userData
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
data DtlsConnectionCloseAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionCloseAsyncMethodInfo a signature where
overloadedMethod _ = dtlsConnectionCloseAsync
foreign import ccall "g_dtls_connection_close_finish" g_dtls_connection_close_finish ::
Ptr DtlsConnection ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionCloseFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
dtlsConnectionCloseFinish conn result_ = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ g_dtls_connection_close_finish conn' result_'
touchManagedPtr conn
touchManagedPtr result_
return ()
) (do
return ()
)
data DtlsConnectionCloseFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionCloseFinishMethodInfo a signature where
overloadedMethod _ = dtlsConnectionCloseFinish
foreign import ccall "g_dtls_connection_emit_accept_certificate" g_dtls_connection_emit_accept_certificate ::
Ptr DtlsConnection ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
IO CInt
dtlsConnectionEmitAcceptCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>
a
-> b
-> [Gio.Flags.TlsCertificateFlags]
-> m Bool
dtlsConnectionEmitAcceptCertificate conn peerCert errors = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
peerCert' <- unsafeManagedPtrCastPtr peerCert
let errors' = gflagsToWord errors
result <- g_dtls_connection_emit_accept_certificate conn' peerCert' errors'
let result' = (/= 0) result
touchManagedPtr conn
touchManagedPtr peerCert
return result'
data DtlsConnectionEmitAcceptCertificateMethodInfo
instance (signature ~ (b -> [Gio.Flags.TlsCertificateFlags] -> m Bool), MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo DtlsConnectionEmitAcceptCertificateMethodInfo a signature where
overloadedMethod _ = dtlsConnectionEmitAcceptCertificate
foreign import ccall "g_dtls_connection_get_certificate" g_dtls_connection_get_certificate ::
Ptr DtlsConnection ->
IO (Ptr Gio.TlsCertificate.TlsCertificate)
dtlsConnectionGetCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Gio.TlsCertificate.TlsCertificate
dtlsConnectionGetCertificate conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_certificate conn'
checkUnexpectedReturnNULL "dtlsConnectionGetCertificate" result
result' <- (newObject Gio.TlsCertificate.TlsCertificate) result
touchManagedPtr conn
return result'
data DtlsConnectionGetCertificateMethodInfo
instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetCertificateMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetCertificate
foreign import ccall "g_dtls_connection_get_database" g_dtls_connection_get_database ::
Ptr DtlsConnection ->
IO (Ptr Gio.TlsDatabase.TlsDatabase)
dtlsConnectionGetDatabase ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Gio.TlsDatabase.TlsDatabase
dtlsConnectionGetDatabase conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_database conn'
checkUnexpectedReturnNULL "dtlsConnectionGetDatabase" result
result' <- (newObject Gio.TlsDatabase.TlsDatabase) result
touchManagedPtr conn
return result'
data DtlsConnectionGetDatabaseMethodInfo
instance (signature ~ (m Gio.TlsDatabase.TlsDatabase), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetDatabaseMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetDatabase
foreign import ccall "g_dtls_connection_get_interaction" g_dtls_connection_get_interaction ::
Ptr DtlsConnection ->
IO (Ptr Gio.TlsInteraction.TlsInteraction)
dtlsConnectionGetInteraction ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Gio.TlsInteraction.TlsInteraction
dtlsConnectionGetInteraction conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_interaction conn'
checkUnexpectedReturnNULL "dtlsConnectionGetInteraction" result
result' <- (newObject Gio.TlsInteraction.TlsInteraction) result
touchManagedPtr conn
return result'
data DtlsConnectionGetInteractionMethodInfo
instance (signature ~ (m Gio.TlsInteraction.TlsInteraction), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetInteractionMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetInteraction
foreign import ccall "g_dtls_connection_get_peer_certificate" g_dtls_connection_get_peer_certificate ::
Ptr DtlsConnection ->
IO (Ptr Gio.TlsCertificate.TlsCertificate)
dtlsConnectionGetPeerCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Gio.TlsCertificate.TlsCertificate
dtlsConnectionGetPeerCertificate conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_peer_certificate conn'
checkUnexpectedReturnNULL "dtlsConnectionGetPeerCertificate" result
result' <- (newObject Gio.TlsCertificate.TlsCertificate) result
touchManagedPtr conn
return result'
data DtlsConnectionGetPeerCertificateMethodInfo
instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetPeerCertificateMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetPeerCertificate
foreign import ccall "g_dtls_connection_get_peer_certificate_errors" g_dtls_connection_get_peer_certificate_errors ::
Ptr DtlsConnection ->
IO CUInt
dtlsConnectionGetPeerCertificateErrors ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m [Gio.Flags.TlsCertificateFlags]
dtlsConnectionGetPeerCertificateErrors conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_peer_certificate_errors conn'
let result' = wordToGFlags result
touchManagedPtr conn
return result'
data DtlsConnectionGetPeerCertificateErrorsMethodInfo
instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetPeerCertificateErrorsMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetPeerCertificateErrors
foreign import ccall "g_dtls_connection_get_rehandshake_mode" g_dtls_connection_get_rehandshake_mode ::
Ptr DtlsConnection ->
IO CUInt
dtlsConnectionGetRehandshakeMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Gio.Enums.TlsRehandshakeMode
dtlsConnectionGetRehandshakeMode conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_rehandshake_mode conn'
let result' = (toEnum . fromIntegral) result
touchManagedPtr conn
return result'
data DtlsConnectionGetRehandshakeModeMethodInfo
instance (signature ~ (m Gio.Enums.TlsRehandshakeMode), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetRehandshakeModeMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetRehandshakeMode
foreign import ccall "g_dtls_connection_get_require_close_notify" g_dtls_connection_get_require_close_notify ::
Ptr DtlsConnection ->
IO CInt
dtlsConnectionGetRequireCloseNotify ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> m Bool
dtlsConnectionGetRequireCloseNotify conn = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result <- g_dtls_connection_get_require_close_notify conn'
let result' = (/= 0) result
touchManagedPtr conn
return result'
data DtlsConnectionGetRequireCloseNotifyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetRequireCloseNotifyMethodInfo a signature where
overloadedMethod _ = dtlsConnectionGetRequireCloseNotify
foreign import ccall "g_dtls_connection_handshake" g_dtls_connection_handshake ::
Ptr DtlsConnection ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionHandshake ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> m ()
dtlsConnectionHandshake conn cancellable = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_dtls_connection_handshake conn' maybeCancellable
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
data DtlsConnectionHandshakeMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionHandshakeMethodInfo a signature where
overloadedMethod _ = dtlsConnectionHandshake
foreign import ccall "g_dtls_connection_handshake_async" g_dtls_connection_handshake_async ::
Ptr DtlsConnection ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dtlsConnectionHandshakeAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dtlsConnectionHandshakeAsync conn ioPriority cancellable callback = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
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_dtls_connection_handshake_async conn' ioPriority maybeCancellable maybeCallback userData
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
data DtlsConnectionHandshakeAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionHandshakeAsyncMethodInfo a signature where
overloadedMethod _ = dtlsConnectionHandshakeAsync
foreign import ccall "g_dtls_connection_handshake_finish" g_dtls_connection_handshake_finish ::
Ptr DtlsConnection ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionHandshakeFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
dtlsConnectionHandshakeFinish conn result_ = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ g_dtls_connection_handshake_finish conn' result_'
touchManagedPtr conn
touchManagedPtr result_
return ()
) (do
return ()
)
data DtlsConnectionHandshakeFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionHandshakeFinishMethodInfo a signature where
overloadedMethod _ = dtlsConnectionHandshakeFinish
foreign import ccall "g_dtls_connection_set_certificate" g_dtls_connection_set_certificate ::
Ptr DtlsConnection ->
Ptr Gio.TlsCertificate.TlsCertificate ->
IO ()
dtlsConnectionSetCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>
a
-> b
-> m ()
dtlsConnectionSetCertificate conn certificate = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
certificate' <- unsafeManagedPtrCastPtr certificate
g_dtls_connection_set_certificate conn' certificate'
touchManagedPtr conn
touchManagedPtr certificate
return ()
data DtlsConnectionSetCertificateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo DtlsConnectionSetCertificateMethodInfo a signature where
overloadedMethod _ = dtlsConnectionSetCertificate
foreign import ccall "g_dtls_connection_set_database" g_dtls_connection_set_database ::
Ptr DtlsConnection ->
Ptr Gio.TlsDatabase.TlsDatabase ->
IO ()
dtlsConnectionSetDatabase ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) =>
a
-> b
-> m ()
dtlsConnectionSetDatabase conn database = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
database' <- unsafeManagedPtrCastPtr database
g_dtls_connection_set_database conn' database'
touchManagedPtr conn
touchManagedPtr database
return ()
data DtlsConnectionSetDatabaseMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) => O.MethodInfo DtlsConnectionSetDatabaseMethodInfo a signature where
overloadedMethod _ = dtlsConnectionSetDatabase
foreign import ccall "g_dtls_connection_set_interaction" g_dtls_connection_set_interaction ::
Ptr DtlsConnection ->
Ptr Gio.TlsInteraction.TlsInteraction ->
IO ()
dtlsConnectionSetInteraction ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) =>
a
-> Maybe (b)
-> m ()
dtlsConnectionSetInteraction conn interaction = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
maybeInteraction <- case interaction of
Nothing -> return nullPtr
Just jInteraction -> do
jInteraction' <- unsafeManagedPtrCastPtr jInteraction
return jInteraction'
g_dtls_connection_set_interaction conn' maybeInteraction
touchManagedPtr conn
whenJust interaction touchManagedPtr
return ()
data DtlsConnectionSetInteractionMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) => O.MethodInfo DtlsConnectionSetInteractionMethodInfo a signature where
overloadedMethod _ = dtlsConnectionSetInteraction
foreign import ccall "g_dtls_connection_set_rehandshake_mode" g_dtls_connection_set_rehandshake_mode ::
Ptr DtlsConnection ->
CUInt ->
IO ()
dtlsConnectionSetRehandshakeMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> Gio.Enums.TlsRehandshakeMode
-> m ()
dtlsConnectionSetRehandshakeMode conn mode = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
let mode' = (fromIntegral . fromEnum) mode
g_dtls_connection_set_rehandshake_mode conn' mode'
touchManagedPtr conn
return ()
data DtlsConnectionSetRehandshakeModeMethodInfo
instance (signature ~ (Gio.Enums.TlsRehandshakeMode -> m ()), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionSetRehandshakeModeMethodInfo a signature where
overloadedMethod _ = dtlsConnectionSetRehandshakeMode
foreign import ccall "g_dtls_connection_set_require_close_notify" g_dtls_connection_set_require_close_notify ::
Ptr DtlsConnection ->
CInt ->
IO ()
dtlsConnectionSetRequireCloseNotify ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>
a
-> Bool
-> m ()
dtlsConnectionSetRequireCloseNotify conn requireCloseNotify = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
let requireCloseNotify' = (fromIntegral . fromEnum) requireCloseNotify
g_dtls_connection_set_require_close_notify conn' requireCloseNotify'
touchManagedPtr conn
return ()
data DtlsConnectionSetRequireCloseNotifyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionSetRequireCloseNotifyMethodInfo a signature where
overloadedMethod _ = dtlsConnectionSetRequireCloseNotify
foreign import ccall "g_dtls_connection_shutdown" g_dtls_connection_shutdown ::
Ptr DtlsConnection ->
CInt ->
CInt ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionShutdown ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Bool
-> Bool
-> Maybe (b)
-> m ()
dtlsConnectionShutdown conn shutdownRead shutdownWrite cancellable = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
let shutdownRead' = (fromIntegral . fromEnum) shutdownRead
let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_dtls_connection_shutdown conn' shutdownRead' shutdownWrite' maybeCancellable
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
data DtlsConnectionShutdownMethodInfo
instance (signature ~ (Bool -> Bool -> Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionShutdownMethodInfo a signature where
overloadedMethod _ = dtlsConnectionShutdown
foreign import ccall "g_dtls_connection_shutdown_async" g_dtls_connection_shutdown_async ::
Ptr DtlsConnection ->
CInt ->
CInt ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dtlsConnectionShutdownAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> Bool
-> Bool
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dtlsConnectionShutdownAsync conn shutdownRead shutdownWrite ioPriority cancellable callback = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
let shutdownRead' = (fromIntegral . fromEnum) shutdownRead
let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite
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_dtls_connection_shutdown_async conn' shutdownRead' shutdownWrite' ioPriority maybeCancellable maybeCallback userData
touchManagedPtr conn
whenJust cancellable touchManagedPtr
return ()
data DtlsConnectionShutdownAsyncMethodInfo
instance (signature ~ (Bool -> Bool -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionShutdownAsyncMethodInfo a signature where
overloadedMethod _ = dtlsConnectionShutdownAsync
foreign import ccall "g_dtls_connection_shutdown_finish" g_dtls_connection_shutdown_finish ::
Ptr DtlsConnection ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CInt
dtlsConnectionShutdownFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ()
dtlsConnectionShutdownFinish conn result_ = liftIO $ do
conn' <- unsafeManagedPtrCastPtr conn
result_' <- unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ g_dtls_connection_shutdown_finish conn' result_'
touchManagedPtr conn
touchManagedPtr result_
return ()
) (do
return ()
)
data DtlsConnectionShutdownFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionShutdownFinishMethodInfo a signature where
overloadedMethod _ = dtlsConnectionShutdownFinish