#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.TlsInteraction
(
TlsInteraction(..) ,
IsTlsInteraction ,
toTlsInteraction ,
noTlsInteraction ,
#if ENABLE_OVERLOADING
TlsInteractionAskPasswordMethodInfo ,
#endif
tlsInteractionAskPassword ,
#if ENABLE_OVERLOADING
TlsInteractionAskPasswordAsyncMethodInfo,
#endif
tlsInteractionAskPasswordAsync ,
#if ENABLE_OVERLOADING
TlsInteractionAskPasswordFinishMethodInfo,
#endif
tlsInteractionAskPasswordFinish ,
#if ENABLE_OVERLOADING
TlsInteractionInvokeAskPasswordMethodInfo,
#endif
tlsInteractionInvokeAskPassword ,
#if ENABLE_OVERLOADING
TlsInteractionInvokeRequestCertificateMethodInfo,
#endif
tlsInteractionInvokeRequestCertificate ,
#if ENABLE_OVERLOADING
TlsInteractionRequestCertificateMethodInfo,
#endif
tlsInteractionRequestCertificate ,
#if ENABLE_OVERLOADING
TlsInteractionRequestCertificateAsyncMethodInfo,
#endif
tlsInteractionRequestCertificateAsync ,
#if ENABLE_OVERLOADING
TlsInteractionRequestCertificateFinishMethodInfo,
#endif
tlsInteractionRequestCertificateFinish ,
) 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.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.Gio.Objects.TlsConnection as Gio.TlsConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.TlsPassword as Gio.TlsPassword
newtype TlsInteraction = TlsInteraction (ManagedPtr TlsInteraction)
foreign import ccall "g_tls_interaction_get_type"
c_g_tls_interaction_get_type :: IO GType
instance GObject TlsInteraction where
gobjectType :: TlsInteraction -> IO GType
gobjectType _ = IO GType
c_g_tls_interaction_get_type
class GObject o => IsTlsInteraction o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError TlsInteraction a) =>
IsTlsInteraction a
#endif
instance IsTlsInteraction TlsInteraction
instance GObject.Object.IsObject TlsInteraction
toTlsInteraction :: (MonadIO m, IsTlsInteraction o) => o -> m TlsInteraction
toTlsInteraction :: o -> m TlsInteraction
toTlsInteraction = IO TlsInteraction -> m TlsInteraction
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteraction -> m TlsInteraction)
-> (o -> IO TlsInteraction) -> o -> m TlsInteraction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TlsInteraction -> TlsInteraction)
-> o -> IO TlsInteraction
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TlsInteraction -> TlsInteraction
TlsInteraction
noTlsInteraction :: Maybe TlsInteraction
noTlsInteraction :: Maybe TlsInteraction
noTlsInteraction = Maybe TlsInteraction
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveTlsInteractionMethod (t :: Symbol) (o :: *) :: * where
ResolveTlsInteractionMethod "askPassword" o = TlsInteractionAskPasswordMethodInfo
ResolveTlsInteractionMethod "askPasswordAsync" o = TlsInteractionAskPasswordAsyncMethodInfo
ResolveTlsInteractionMethod "askPasswordFinish" o = TlsInteractionAskPasswordFinishMethodInfo
ResolveTlsInteractionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTlsInteractionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTlsInteractionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTlsInteractionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTlsInteractionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTlsInteractionMethod "invokeAskPassword" o = TlsInteractionInvokeAskPasswordMethodInfo
ResolveTlsInteractionMethod "invokeRequestCertificate" o = TlsInteractionInvokeRequestCertificateMethodInfo
ResolveTlsInteractionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTlsInteractionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTlsInteractionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTlsInteractionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTlsInteractionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTlsInteractionMethod "requestCertificate" o = TlsInteractionRequestCertificateMethodInfo
ResolveTlsInteractionMethod "requestCertificateAsync" o = TlsInteractionRequestCertificateAsyncMethodInfo
ResolveTlsInteractionMethod "requestCertificateFinish" o = TlsInteractionRequestCertificateFinishMethodInfo
ResolveTlsInteractionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTlsInteractionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTlsInteractionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTlsInteractionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTlsInteractionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTlsInteractionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTlsInteractionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTlsInteractionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTlsInteractionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTlsInteractionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTlsInteractionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTlsInteractionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, O.MethodInfo info TlsInteraction p) => O.IsLabelProxy t (TlsInteraction -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, O.MethodInfo info TlsInteraction p) => O.IsLabel t (TlsInteraction -> 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
#if ENABLE_OVERLOADING
instance O.HasAttributeList TlsInteraction
type instance O.AttributeList TlsInteraction = TlsInteractionAttributeList
type TlsInteractionAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList TlsInteraction = TlsInteractionSignalList
type TlsInteractionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_tls_interaction_ask_password" g_tls_interaction_ask_password ::
Ptr TlsInteraction ->
Ptr Gio.TlsPassword.TlsPassword ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionAskPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m Gio.Enums.TlsInteractionResult
tlsInteractionAskPassword :: a -> b -> Maybe c -> m TlsInteractionResult
tlsInteractionAskPassword interaction :: a
interaction password :: b
password cancellable :: Maybe c
cancellable = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsPassword
password' <- b -> IO (Ptr TlsPassword)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
password
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr TlsPassword
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CUInt
g_tls_interaction_ask_password Ptr TlsInteraction
interaction' Ptr TlsPassword
password' Ptr Cancellable
maybeCancellable
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
password
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionAskPasswordMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionAskPasswordMethodInfo a signature where
overloadedMethod _ = tlsInteractionAskPassword
#endif
foreign import ccall "g_tls_interaction_ask_password_async" g_tls_interaction_ask_password_async ::
Ptr TlsInteraction ->
Ptr Gio.TlsPassword.TlsPassword ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
tlsInteractionAskPasswordAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
tlsInteractionAskPasswordAsync :: a -> b -> Maybe c -> Maybe AsyncReadyCallback -> m ()
tlsInteractionAskPasswordAsync interaction :: a
interaction password :: b
password cancellable :: Maybe c
cancellable callback :: Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsPassword
password' <- b -> IO (Ptr TlsPassword)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
password
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jCallback :: AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr TlsInteraction
-> Ptr TlsPassword
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_tls_interaction_ask_password_async Ptr TlsInteraction
interaction' Ptr TlsPassword
password' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
password
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TlsInteractionAskPasswordAsyncMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionAskPasswordAsyncMethodInfo a signature where
overloadedMethod _ = tlsInteractionAskPasswordAsync
#endif
foreign import ccall "g_tls_interaction_ask_password_finish" g_tls_interaction_ask_password_finish ::
Ptr TlsInteraction ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionAskPasswordFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.Enums.TlsInteractionResult
tlsInteractionAskPasswordFinish :: a -> b -> m TlsInteractionResult
tlsInteractionAskPasswordFinish interaction :: a
interaction result_ :: b
result_ = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CUInt
g_tls_interaction_ask_password_finish Ptr TlsInteraction
interaction' Ptr AsyncResult
result_'
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionAskPasswordFinishMethodInfo
instance (signature ~ (b -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsInteractionAskPasswordFinishMethodInfo a signature where
overloadedMethod _ = tlsInteractionAskPasswordFinish
#endif
foreign import ccall "g_tls_interaction_invoke_ask_password" g_tls_interaction_invoke_ask_password ::
Ptr TlsInteraction ->
Ptr Gio.TlsPassword.TlsPassword ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionInvokeAskPassword ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m Gio.Enums.TlsInteractionResult
tlsInteractionInvokeAskPassword :: a -> b -> Maybe c -> m TlsInteractionResult
tlsInteractionInvokeAskPassword interaction :: a
interaction password :: b
password cancellable :: Maybe c
cancellable = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsPassword
password' <- b -> IO (Ptr TlsPassword)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
password
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr TlsPassword
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CUInt
g_tls_interaction_invoke_ask_password Ptr TlsInteraction
interaction' Ptr TlsPassword
password' Ptr Cancellable
maybeCancellable
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
password
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionInvokeAskPasswordMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionInvokeAskPasswordMethodInfo a signature where
overloadedMethod _ = tlsInteractionInvokeAskPassword
#endif
foreign import ccall "g_tls_interaction_invoke_request_certificate" g_tls_interaction_invoke_request_certificate ::
Ptr TlsInteraction ->
Ptr Gio.TlsConnection.TlsConnection ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionInvokeRequestCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Gio.Enums.TlsCertificateRequestFlags
-> Maybe (c)
-> m Gio.Enums.TlsInteractionResult
tlsInteractionInvokeRequestCertificate :: a
-> b
-> TlsCertificateRequestFlags
-> Maybe c
-> m TlsInteractionResult
tlsInteractionInvokeRequestCertificate interaction :: a
interaction connection :: b
connection flags :: TlsCertificateRequestFlags
flags cancellable :: Maybe c
cancellable = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsConnection
connection' <- b -> IO (Ptr TlsConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
connection
let flags' :: CUInt
flags' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TlsCertificateRequestFlags -> Int)
-> TlsCertificateRequestFlags
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TlsCertificateRequestFlags -> Int
forall a. Enum a => a -> Int
fromEnum) TlsCertificateRequestFlags
flags
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr TlsConnection
-> CUInt
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CUInt
g_tls_interaction_invoke_request_certificate Ptr TlsInteraction
interaction' Ptr TlsConnection
connection' CUInt
flags' Ptr Cancellable
maybeCancellable
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
connection
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionInvokeRequestCertificateMethodInfo
instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionInvokeRequestCertificateMethodInfo a signature where
overloadedMethod _ = tlsInteractionInvokeRequestCertificate
#endif
foreign import ccall "g_tls_interaction_request_certificate" g_tls_interaction_request_certificate ::
Ptr TlsInteraction ->
Ptr Gio.TlsConnection.TlsConnection ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionRequestCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Gio.Enums.TlsCertificateRequestFlags
-> Maybe (c)
-> m Gio.Enums.TlsInteractionResult
tlsInteractionRequestCertificate :: a
-> b
-> TlsCertificateRequestFlags
-> Maybe c
-> m TlsInteractionResult
tlsInteractionRequestCertificate interaction :: a
interaction connection :: b
connection flags :: TlsCertificateRequestFlags
flags cancellable :: Maybe c
cancellable = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsConnection
connection' <- b -> IO (Ptr TlsConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
connection
let flags' :: CUInt
flags' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TlsCertificateRequestFlags -> Int)
-> TlsCertificateRequestFlags
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TlsCertificateRequestFlags -> Int
forall a. Enum a => a -> Int
fromEnum) TlsCertificateRequestFlags
flags
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr TlsConnection
-> CUInt
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CUInt
g_tls_interaction_request_certificate Ptr TlsInteraction
interaction' Ptr TlsConnection
connection' CUInt
flags' Ptr Cancellable
maybeCancellable
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
connection
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionRequestCertificateMethodInfo
instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionRequestCertificateMethodInfo a signature where
overloadedMethod _ = tlsInteractionRequestCertificate
#endif
foreign import ccall "g_tls_interaction_request_certificate_async" g_tls_interaction_request_certificate_async ::
Ptr TlsInteraction ->
Ptr Gio.TlsConnection.TlsConnection ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
tlsInteractionRequestCertificateAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Gio.Enums.TlsCertificateRequestFlags
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
tlsInteractionRequestCertificateAsync :: a
-> b
-> TlsCertificateRequestFlags
-> Maybe c
-> Maybe AsyncReadyCallback
-> m ()
tlsInteractionRequestCertificateAsync interaction :: a
interaction connection :: b
connection flags :: TlsCertificateRequestFlags
flags cancellable :: Maybe c
cancellable callback :: Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr TlsConnection
connection' <- b -> IO (Ptr TlsConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
connection
let flags' :: CUInt
flags' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TlsCertificateRequestFlags -> Int)
-> TlsCertificateRequestFlags
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TlsCertificateRequestFlags -> Int
forall a. Enum a => a -> Int
fromEnum) TlsCertificateRequestFlags
flags
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just jCancellable :: c
jCancellable -> do
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jCallback :: AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr TlsInteraction
-> Ptr TlsConnection
-> CUInt
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_tls_interaction_request_certificate_async Ptr TlsInteraction
interaction' Ptr TlsConnection
connection' CUInt
flags' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
connection
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TlsInteractionRequestCertificateAsyncMethodInfo
instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionRequestCertificateAsyncMethodInfo a signature where
overloadedMethod _ = tlsInteractionRequestCertificateAsync
#endif
foreign import ccall "g_tls_interaction_request_certificate_finish" g_tls_interaction_request_certificate_finish ::
Ptr TlsInteraction ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO CUInt
tlsInteractionRequestCertificateFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.Enums.TlsInteractionResult
tlsInteractionRequestCertificateFinish :: a -> b -> m TlsInteractionResult
tlsInteractionRequestCertificateFinish interaction :: a
interaction result_ :: b
result_ = IO TlsInteractionResult -> m TlsInteractionResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsInteractionResult -> m TlsInteractionResult)
-> IO TlsInteractionResult -> m TlsInteractionResult
forall a b. (a -> b) -> a -> b
$ do
Ptr TlsInteraction
interaction' <- a -> IO (Ptr TlsInteraction)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
interaction
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
IO TlsInteractionResult -> IO () -> IO TlsInteractionResult
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CUInt) -> IO CUInt)
-> (Ptr (Ptr GError) -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ Ptr TlsInteraction
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CUInt
g_tls_interaction_request_certificate_finish Ptr TlsInteraction
interaction' Ptr AsyncResult
result_'
let result' :: TlsInteractionResult
result' = (Int -> TlsInteractionResult
forall a. Enum a => Int -> a
toEnum (Int -> TlsInteractionResult)
-> (CUInt -> Int) -> CUInt -> TlsInteractionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
interaction
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
TlsInteractionResult -> IO TlsInteractionResult
forall (m :: * -> *) a. Monad m => a -> m a
return TlsInteractionResult
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data TlsInteractionRequestCertificateFinishMethodInfo
instance (signature ~ (b -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsInteractionRequestCertificateFinishMethodInfo a signature where
overloadedMethod _ = tlsInteractionRequestCertificateFinish
#endif