{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Objects.ServerMessage
(
ServerMessage(..) ,
IsServerMessage ,
toServerMessage ,
#if defined(ENABLE_OVERLOADING)
ResolveServerMessageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ServerMessageGetHttpVersionMethodInfo ,
#endif
serverMessageGetHttpVersion ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetLocalAddressMethodInfo ,
#endif
serverMessageGetLocalAddress ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetMethodMethodInfo ,
#endif
serverMessageGetMethod ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetReasonPhraseMethodInfo ,
#endif
serverMessageGetReasonPhrase ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetRemoteAddressMethodInfo ,
#endif
serverMessageGetRemoteAddress ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetRemoteHostMethodInfo ,
#endif
serverMessageGetRemoteHost ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetRequestBodyMethodInfo ,
#endif
serverMessageGetRequestBody ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetRequestHeadersMethodInfo,
#endif
serverMessageGetRequestHeaders ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetResponseBodyMethodInfo ,
#endif
serverMessageGetResponseBody ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetResponseHeadersMethodInfo,
#endif
serverMessageGetResponseHeaders ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetSocketMethodInfo ,
#endif
serverMessageGetSocket ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetStatusMethodInfo ,
#endif
serverMessageGetStatus ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetTlsPeerCertificateMethodInfo,
#endif
serverMessageGetTlsPeerCertificate ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetTlsPeerCertificateErrorsMethodInfo,
#endif
serverMessageGetTlsPeerCertificateErrors,
#if defined(ENABLE_OVERLOADING)
ServerMessageGetUriMethodInfo ,
#endif
serverMessageGetUri ,
#if defined(ENABLE_OVERLOADING)
ServerMessageIsOptionsPingMethodInfo ,
#endif
serverMessageIsOptionsPing ,
#if defined(ENABLE_OVERLOADING)
ServerMessagePauseMethodInfo ,
#endif
serverMessagePause ,
#if defined(ENABLE_OVERLOADING)
ServerMessageSetHttpVersionMethodInfo ,
#endif
serverMessageSetHttpVersion ,
#if defined(ENABLE_OVERLOADING)
ServerMessageSetRedirectMethodInfo ,
#endif
serverMessageSetRedirect ,
#if defined(ENABLE_OVERLOADING)
ServerMessageSetResponseMethodInfo ,
#endif
serverMessageSetResponse ,
#if defined(ENABLE_OVERLOADING)
ServerMessageSetStatusMethodInfo ,
#endif
serverMessageSetStatus ,
#if defined(ENABLE_OVERLOADING)
ServerMessageStealConnectionMethodInfo ,
#endif
serverMessageStealConnection ,
#if defined(ENABLE_OVERLOADING)
ServerMessageUnpauseMethodInfo ,
#endif
serverMessageUnpause ,
#if defined(ENABLE_OVERLOADING)
ServerMessageTlsPeerCertificatePropertyInfo,
#endif
getServerMessageTlsPeerCertificate ,
#if defined(ENABLE_OVERLOADING)
serverMessageTlsPeerCertificate ,
#endif
#if defined(ENABLE_OVERLOADING)
ServerMessageTlsPeerCertificateErrorsPropertyInfo,
#endif
getServerMessageTlsPeerCertificateErrors,
#if defined(ENABLE_OVERLOADING)
serverMessageTlsPeerCertificateErrors ,
#endif
ServerMessageAcceptCertificateCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageAcceptCertificateSignalInfo,
#endif
afterServerMessageAcceptCertificate ,
onServerMessageAcceptCertificate ,
ServerMessageConnectedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageConnectedSignalInfo ,
#endif
afterServerMessageConnected ,
onServerMessageConnected ,
ServerMessageDisconnectedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageDisconnectedSignalInfo ,
#endif
afterServerMessageDisconnected ,
onServerMessageDisconnected ,
ServerMessageFinishedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageFinishedSignalInfo ,
#endif
afterServerMessageFinished ,
onServerMessageFinished ,
ServerMessageGotBodyCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGotBodySignalInfo ,
#endif
afterServerMessageGotBody ,
onServerMessageGotBody ,
ServerMessageGotChunkCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGotChunkSignalInfo ,
#endif
afterServerMessageGotChunk ,
onServerMessageGotChunk ,
ServerMessageGotHeadersCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageGotHeadersSignalInfo ,
#endif
afterServerMessageGotHeaders ,
onServerMessageGotHeaders ,
ServerMessageWroteBodyCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageWroteBodySignalInfo ,
#endif
afterServerMessageWroteBody ,
onServerMessageWroteBody ,
ServerMessageWroteBodyDataCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageWroteBodyDataSignalInfo ,
#endif
afterServerMessageWroteBodyData ,
onServerMessageWroteBodyData ,
ServerMessageWroteChunkCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageWroteChunkSignalInfo ,
#endif
afterServerMessageWroteChunk ,
onServerMessageWroteChunk ,
ServerMessageWroteHeadersCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageWroteHeadersSignalInfo ,
#endif
afterServerMessageWroteHeaders ,
onServerMessageWroteHeaders ,
ServerMessageWroteInformationalCallback ,
#if defined(ENABLE_OVERLOADING)
ServerMessageWroteInformationalSignalInfo,
#endif
afterServerMessageWroteInformational ,
onServerMessageWroteInformational ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.Uri as GLib.Uri
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Objects.IOStream as Gio.IOStream
import qualified GI.Gio.Objects.Socket as Gio.Socket
import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress
import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate
import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums
import {-# SOURCE #-} qualified GI.Soup.Structs.MessageBody as Soup.MessageBody
import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders
newtype ServerMessage = ServerMessage (SP.ManagedPtr ServerMessage)
deriving (ServerMessage -> ServerMessage -> Bool
(ServerMessage -> ServerMessage -> Bool)
-> (ServerMessage -> ServerMessage -> Bool) -> Eq ServerMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerMessage -> ServerMessage -> Bool
== :: ServerMessage -> ServerMessage -> Bool
$c/= :: ServerMessage -> ServerMessage -> Bool
/= :: ServerMessage -> ServerMessage -> Bool
Eq)
instance SP.ManagedPtrNewtype ServerMessage where
toManagedPtr :: ServerMessage -> ManagedPtr ServerMessage
toManagedPtr (ServerMessage ManagedPtr ServerMessage
p) = ManagedPtr ServerMessage
p
foreign import ccall "soup_server_message_get_type"
c_soup_server_message_get_type :: IO B.Types.GType
instance B.Types.TypedObject ServerMessage where
glibType :: IO GType
glibType = IO GType
c_soup_server_message_get_type
instance B.Types.GObject ServerMessage
class (SP.GObject o, O.IsDescendantOf ServerMessage o) => IsServerMessage o
instance (SP.GObject o, O.IsDescendantOf ServerMessage o) => IsServerMessage o
instance O.HasParentTypes ServerMessage
type instance O.ParentTypes ServerMessage = '[GObject.Object.Object]
toServerMessage :: (MIO.MonadIO m, IsServerMessage o) => o -> m ServerMessage
toServerMessage :: forall (m :: * -> *) o.
(MonadIO m, IsServerMessage o) =>
o -> m ServerMessage
toServerMessage = IO ServerMessage -> m ServerMessage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ServerMessage -> m ServerMessage)
-> (o -> IO ServerMessage) -> o -> m ServerMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ServerMessage -> ServerMessage)
-> o -> IO ServerMessage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ServerMessage -> ServerMessage
ServerMessage
instance B.GValue.IsGValue (Maybe ServerMessage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_soup_server_message_get_type
gvalueSet_ :: Ptr GValue -> Maybe ServerMessage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ServerMessage
P.Nothing = Ptr GValue -> Ptr ServerMessage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ServerMessage
forall a. Ptr a
FP.nullPtr :: FP.Ptr ServerMessage)
gvalueSet_ Ptr GValue
gv (P.Just ServerMessage
obj) = ServerMessage -> (Ptr ServerMessage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ServerMessage
obj (Ptr GValue -> Ptr ServerMessage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ServerMessage)
gvalueGet_ Ptr GValue
gv = do
Ptr ServerMessage
ptr <- Ptr GValue -> IO (Ptr ServerMessage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ServerMessage)
if Ptr ServerMessage
ptr Ptr ServerMessage -> Ptr ServerMessage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ServerMessage
forall a. Ptr a
FP.nullPtr
then ServerMessage -> Maybe ServerMessage
forall a. a -> Maybe a
P.Just (ServerMessage -> Maybe ServerMessage)
-> IO ServerMessage -> IO (Maybe ServerMessage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ServerMessage -> ServerMessage)
-> Ptr ServerMessage -> IO ServerMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ServerMessage -> ServerMessage
ServerMessage Ptr ServerMessage
ptr
else Maybe ServerMessage -> IO (Maybe ServerMessage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ServerMessage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveServerMessageMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveServerMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveServerMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveServerMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveServerMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveServerMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveServerMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveServerMessageMethod "isOptionsPing" o = ServerMessageIsOptionsPingMethodInfo
ResolveServerMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveServerMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveServerMessageMethod "pause" o = ServerMessagePauseMethodInfo
ResolveServerMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveServerMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveServerMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveServerMessageMethod "stealConnection" o = ServerMessageStealConnectionMethodInfo
ResolveServerMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveServerMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveServerMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveServerMessageMethod "unpause" o = ServerMessageUnpauseMethodInfo
ResolveServerMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveServerMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveServerMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveServerMessageMethod "getHttpVersion" o = ServerMessageGetHttpVersionMethodInfo
ResolveServerMessageMethod "getLocalAddress" o = ServerMessageGetLocalAddressMethodInfo
ResolveServerMessageMethod "getMethod" o = ServerMessageGetMethodMethodInfo
ResolveServerMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveServerMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveServerMessageMethod "getReasonPhrase" o = ServerMessageGetReasonPhraseMethodInfo
ResolveServerMessageMethod "getRemoteAddress" o = ServerMessageGetRemoteAddressMethodInfo
ResolveServerMessageMethod "getRemoteHost" o = ServerMessageGetRemoteHostMethodInfo
ResolveServerMessageMethod "getRequestBody" o = ServerMessageGetRequestBodyMethodInfo
ResolveServerMessageMethod "getRequestHeaders" o = ServerMessageGetRequestHeadersMethodInfo
ResolveServerMessageMethod "getResponseBody" o = ServerMessageGetResponseBodyMethodInfo
ResolveServerMessageMethod "getResponseHeaders" o = ServerMessageGetResponseHeadersMethodInfo
ResolveServerMessageMethod "getSocket" o = ServerMessageGetSocketMethodInfo
ResolveServerMessageMethod "getStatus" o = ServerMessageGetStatusMethodInfo
ResolveServerMessageMethod "getTlsPeerCertificate" o = ServerMessageGetTlsPeerCertificateMethodInfo
ResolveServerMessageMethod "getTlsPeerCertificateErrors" o = ServerMessageGetTlsPeerCertificateErrorsMethodInfo
ResolveServerMessageMethod "getUri" o = ServerMessageGetUriMethodInfo
ResolveServerMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveServerMessageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveServerMessageMethod "setHttpVersion" o = ServerMessageSetHttpVersionMethodInfo
ResolveServerMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveServerMessageMethod "setRedirect" o = ServerMessageSetRedirectMethodInfo
ResolveServerMessageMethod "setResponse" o = ServerMessageSetResponseMethodInfo
ResolveServerMessageMethod "setStatus" o = ServerMessageSetStatusMethodInfo
ResolveServerMessageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveServerMessageMethod t ServerMessage, O.OverloadedMethod info ServerMessage p) => OL.IsLabel t (ServerMessage -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveServerMessageMethod t ServerMessage, O.OverloadedMethod info ServerMessage p, R.HasField t ServerMessage p) => R.HasField t ServerMessage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveServerMessageMethod t ServerMessage, O.OverloadedMethodInfo info ServerMessage) => OL.IsLabel t (O.MethodProxy info ServerMessage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ServerMessageAcceptCertificateCallback =
Gio.TlsCertificate.TlsCertificate
-> [Gio.Flags.TlsCertificateFlags]
-> IO Bool
type C_ServerMessageAcceptCertificateCallback =
Ptr ServerMessage ->
Ptr Gio.TlsCertificate.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_ServerMessageAcceptCertificateCallback :: C_ServerMessageAcceptCertificateCallback -> IO (FunPtr C_ServerMessageAcceptCertificateCallback)
wrap_ServerMessageAcceptCertificateCallback ::
GObject a => (a -> ServerMessageAcceptCertificateCallback) ->
C_ServerMessageAcceptCertificateCallback
wrap_ServerMessageAcceptCertificateCallback :: forall a.
GObject a =>
(a -> ServerMessageAcceptCertificateCallback)
-> C_ServerMessageAcceptCertificateCallback
wrap_ServerMessageAcceptCertificateCallback a -> ServerMessageAcceptCertificateCallback
gi'cb Ptr ServerMessage
gi'selfPtr Ptr TlsCertificate
tlsPeerCertificate CUInt
tlsPeerErrors Ptr ()
_ = do
TlsCertificate
tlsPeerCertificate' <- ((ManagedPtr TlsCertificate -> TlsCertificate)
-> Ptr TlsCertificate -> IO TlsCertificate
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate) Ptr TlsCertificate
tlsPeerCertificate
let tlsPeerErrors' :: [TlsCertificateFlags]
tlsPeerErrors' = CUInt -> [TlsCertificateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
tlsPeerErrors
Bool
result <- Ptr ServerMessage -> (ServerMessage -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO Bool) -> IO Bool)
-> (ServerMessage -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> ServerMessageAcceptCertificateCallback
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self) TlsCertificate
tlsPeerCertificate' [TlsCertificateFlags]
tlsPeerErrors'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onServerMessageAcceptCertificate :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageAcceptCertificateCallback) -> m SignalHandlerId
onServerMessageAcceptCertificate :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageAcceptCertificateCallback)
-> m SignalHandlerId
onServerMessageAcceptCertificate a
obj (?self::a) => ServerMessageAcceptCertificateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageAcceptCertificateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageAcceptCertificateCallback
ServerMessageAcceptCertificateCallback
cb
let wrapped' :: C_ServerMessageAcceptCertificateCallback
wrapped' = (a -> ServerMessageAcceptCertificateCallback)
-> C_ServerMessageAcceptCertificateCallback
forall a.
GObject a =>
(a -> ServerMessageAcceptCertificateCallback)
-> C_ServerMessageAcceptCertificateCallback
wrap_ServerMessageAcceptCertificateCallback a -> ServerMessageAcceptCertificateCallback
wrapped
FunPtr C_ServerMessageAcceptCertificateCallback
wrapped'' <- C_ServerMessageAcceptCertificateCallback
-> IO (FunPtr C_ServerMessageAcceptCertificateCallback)
mk_ServerMessageAcceptCertificateCallback C_ServerMessageAcceptCertificateCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageAcceptCertificateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"accept-certificate" FunPtr C_ServerMessageAcceptCertificateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageAcceptCertificate :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageAcceptCertificateCallback) -> m SignalHandlerId
afterServerMessageAcceptCertificate :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageAcceptCertificateCallback)
-> m SignalHandlerId
afterServerMessageAcceptCertificate a
obj (?self::a) => ServerMessageAcceptCertificateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageAcceptCertificateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageAcceptCertificateCallback
ServerMessageAcceptCertificateCallback
cb
let wrapped' :: C_ServerMessageAcceptCertificateCallback
wrapped' = (a -> ServerMessageAcceptCertificateCallback)
-> C_ServerMessageAcceptCertificateCallback
forall a.
GObject a =>
(a -> ServerMessageAcceptCertificateCallback)
-> C_ServerMessageAcceptCertificateCallback
wrap_ServerMessageAcceptCertificateCallback a -> ServerMessageAcceptCertificateCallback
wrapped
FunPtr C_ServerMessageAcceptCertificateCallback
wrapped'' <- C_ServerMessageAcceptCertificateCallback
-> IO (FunPtr C_ServerMessageAcceptCertificateCallback)
mk_ServerMessageAcceptCertificateCallback C_ServerMessageAcceptCertificateCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageAcceptCertificateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"accept-certificate" FunPtr C_ServerMessageAcceptCertificateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageAcceptCertificateSignalInfo
instance SignalInfo ServerMessageAcceptCertificateSignalInfo where
type HaskellCallbackType ServerMessageAcceptCertificateSignalInfo = ServerMessageAcceptCertificateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageAcceptCertificateCallback cb
cb'' <- mk_ServerMessageAcceptCertificateCallback cb'
connectSignalFunPtr obj "accept-certificate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::accept-certificate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:acceptCertificate"})
#endif
type ServerMessageConnectedCallback =
IO ()
type C_ServerMessageConnectedCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageConnectedCallback :: C_ServerMessageConnectedCallback -> IO (FunPtr C_ServerMessageConnectedCallback)
wrap_ServerMessageConnectedCallback ::
GObject a => (a -> ServerMessageConnectedCallback) ->
C_ServerMessageConnectedCallback
wrap_ServerMessageConnectedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageConnectedCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageConnected :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageConnectedCallback) -> m SignalHandlerId
onServerMessageConnected :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageConnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageConnectedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageConnectedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connected" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageConnected :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageConnectedCallback) -> m SignalHandlerId
afterServerMessageConnected :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageConnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageConnectedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageConnectedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connected" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageConnectedSignalInfo
instance SignalInfo ServerMessageConnectedSignalInfo where
type HaskellCallbackType ServerMessageConnectedSignalInfo = ServerMessageConnectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageConnectedCallback cb
cb'' <- mk_ServerMessageConnectedCallback cb'
connectSignalFunPtr obj "connected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::connected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:connected"})
#endif
type ServerMessageDisconnectedCallback =
IO ()
type C_ServerMessageDisconnectedCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageDisconnectedCallback :: C_ServerMessageDisconnectedCallback -> IO (FunPtr C_ServerMessageDisconnectedCallback)
wrap_ServerMessageDisconnectedCallback ::
GObject a => (a -> ServerMessageDisconnectedCallback) ->
C_ServerMessageDisconnectedCallback
wrap_ServerMessageDisconnectedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageDisconnectedCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageDisconnected :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageDisconnectedCallback) -> m SignalHandlerId
onServerMessageDisconnected :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageDisconnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageDisconnectedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageDisconnectedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"disconnected" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageDisconnected :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageDisconnectedCallback) -> m SignalHandlerId
afterServerMessageDisconnected :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageDisconnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageDisconnectedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageDisconnectedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"disconnected" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageDisconnectedSignalInfo
instance SignalInfo ServerMessageDisconnectedSignalInfo where
type HaskellCallbackType ServerMessageDisconnectedSignalInfo = ServerMessageDisconnectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageDisconnectedCallback cb
cb'' <- mk_ServerMessageDisconnectedCallback cb'
connectSignalFunPtr obj "disconnected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::disconnected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:disconnected"})
#endif
type ServerMessageFinishedCallback =
IO ()
type C_ServerMessageFinishedCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageFinishedCallback :: C_ServerMessageFinishedCallback -> IO (FunPtr C_ServerMessageFinishedCallback)
wrap_ServerMessageFinishedCallback ::
GObject a => (a -> ServerMessageFinishedCallback) ->
C_ServerMessageFinishedCallback
wrap_ServerMessageFinishedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageFinishedCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageFinished :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageFinishedCallback) -> m SignalHandlerId
onServerMessageFinished :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageFinished a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageFinishedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageFinishedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"finished" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageFinished :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageFinishedCallback) -> m SignalHandlerId
afterServerMessageFinished :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageFinished a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageFinishedCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageFinishedCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"finished" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageFinishedSignalInfo
instance SignalInfo ServerMessageFinishedSignalInfo where
type HaskellCallbackType ServerMessageFinishedSignalInfo = ServerMessageFinishedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageFinishedCallback cb
cb'' <- mk_ServerMessageFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::finished"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:finished"})
#endif
type ServerMessageGotBodyCallback =
IO ()
type C_ServerMessageGotBodyCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageGotBodyCallback :: C_ServerMessageGotBodyCallback -> IO (FunPtr C_ServerMessageGotBodyCallback)
wrap_ServerMessageGotBodyCallback ::
GObject a => (a -> ServerMessageGotBodyCallback) ->
C_ServerMessageGotBodyCallback
wrap_ServerMessageGotBodyCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageGotBodyCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageGotBody :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotBodyCallback) -> m SignalHandlerId
onServerMessageGotBody :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageGotBody a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageGotBodyCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageGotBodyCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-body" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageGotBody :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotBodyCallback) -> m SignalHandlerId
afterServerMessageGotBody :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageGotBody a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageGotBodyCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageGotBodyCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-body" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageGotBodySignalInfo
instance SignalInfo ServerMessageGotBodySignalInfo where
type HaskellCallbackType ServerMessageGotBodySignalInfo = ServerMessageGotBodyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageGotBodyCallback cb
cb'' <- mk_ServerMessageGotBodyCallback cb'
connectSignalFunPtr obj "got-body" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::got-body"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:gotBody"})
#endif
type ServerMessageGotChunkCallback =
GLib.Bytes.Bytes
-> IO ()
type C_ServerMessageGotChunkCallback =
Ptr ServerMessage ->
Ptr GLib.Bytes.Bytes ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageGotChunkCallback :: C_ServerMessageGotChunkCallback -> IO (FunPtr C_ServerMessageGotChunkCallback)
wrap_ServerMessageGotChunkCallback ::
GObject a => (a -> ServerMessageGotChunkCallback) ->
C_ServerMessageGotChunkCallback
wrap_ServerMessageGotChunkCallback :: forall a.
GObject a =>
(a -> ServerMessageGotChunkCallback)
-> C_ServerMessageGotChunkCallback
wrap_ServerMessageGotChunkCallback a -> ServerMessageGotChunkCallback
gi'cb Ptr ServerMessage
gi'selfPtr Ptr Bytes
chunk Ptr ()
_ = do
Ptr Bytes -> ServerMessageGotChunkCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Bytes
chunk (ServerMessageGotChunkCallback -> IO ())
-> ServerMessageGotChunkCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bytes
chunk' -> do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> ServerMessageGotChunkCallback
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self) Bytes
chunk'
onServerMessageGotChunk :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotChunkCallback) -> m SignalHandlerId
onServerMessageGotChunk :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageGotChunkCallback)
-> m SignalHandlerId
onServerMessageGotChunk a
obj (?self::a) => ServerMessageGotChunkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageGotChunkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageGotChunkCallback
ServerMessageGotChunkCallback
cb
let wrapped' :: C_ServerMessageGotChunkCallback
wrapped' = (a -> ServerMessageGotChunkCallback)
-> C_ServerMessageGotChunkCallback
forall a.
GObject a =>
(a -> ServerMessageGotChunkCallback)
-> C_ServerMessageGotChunkCallback
wrap_ServerMessageGotChunkCallback a -> ServerMessageGotChunkCallback
wrapped
FunPtr C_ServerMessageGotChunkCallback
wrapped'' <- C_ServerMessageGotChunkCallback
-> IO (FunPtr C_ServerMessageGotChunkCallback)
mk_ServerMessageGotChunkCallback C_ServerMessageGotChunkCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageGotChunkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-chunk" FunPtr C_ServerMessageGotChunkCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageGotChunk :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotChunkCallback) -> m SignalHandlerId
afterServerMessageGotChunk :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageGotChunkCallback)
-> m SignalHandlerId
afterServerMessageGotChunk a
obj (?self::a) => ServerMessageGotChunkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageGotChunkCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageGotChunkCallback
ServerMessageGotChunkCallback
cb
let wrapped' :: C_ServerMessageGotChunkCallback
wrapped' = (a -> ServerMessageGotChunkCallback)
-> C_ServerMessageGotChunkCallback
forall a.
GObject a =>
(a -> ServerMessageGotChunkCallback)
-> C_ServerMessageGotChunkCallback
wrap_ServerMessageGotChunkCallback a -> ServerMessageGotChunkCallback
wrapped
FunPtr C_ServerMessageGotChunkCallback
wrapped'' <- C_ServerMessageGotChunkCallback
-> IO (FunPtr C_ServerMessageGotChunkCallback)
mk_ServerMessageGotChunkCallback C_ServerMessageGotChunkCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageGotChunkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-chunk" FunPtr C_ServerMessageGotChunkCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageGotChunkSignalInfo
instance SignalInfo ServerMessageGotChunkSignalInfo where
type HaskellCallbackType ServerMessageGotChunkSignalInfo = ServerMessageGotChunkCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageGotChunkCallback cb
cb'' <- mk_ServerMessageGotChunkCallback cb'
connectSignalFunPtr obj "got-chunk" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::got-chunk"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:gotChunk"})
#endif
type =
IO ()
type =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_ServerMessageGotHeadersCallback -> IO (FunPtr C_ServerMessageGotHeadersCallback)
wrap_ServerMessageGotHeadersCallback ::
GObject a => (a -> ServerMessageGotHeadersCallback) ->
C_ServerMessageGotHeadersCallback
a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageGotHeaders :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotHeadersCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageGotHeadersCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageGotHeadersCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-headers" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageGotHeaders :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageGotHeadersCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageGotHeadersCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageGotHeadersCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"got-headers" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageGotHeadersSignalInfo
instance SignalInfo ServerMessageGotHeadersSignalInfo where
type HaskellCallbackType ServerMessageGotHeadersSignalInfo = ServerMessageGotHeadersCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageGotHeadersCallback cb
cb'' <- mk_ServerMessageGotHeadersCallback cb'
connectSignalFunPtr obj "got-headers" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::got-headers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:gotHeaders"})
#endif
type ServerMessageWroteBodyCallback =
IO ()
type C_ServerMessageWroteBodyCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageWroteBodyCallback :: C_ServerMessageWroteBodyCallback -> IO (FunPtr C_ServerMessageWroteBodyCallback)
wrap_ServerMessageWroteBodyCallback ::
GObject a => (a -> ServerMessageWroteBodyCallback) ->
C_ServerMessageWroteBodyCallback
wrap_ServerMessageWroteBodyCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteBodyCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageWroteBody :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteBodyCallback) -> m SignalHandlerId
onServerMessageWroteBody :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageWroteBody a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteBodyCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteBodyCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-body" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageWroteBody :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteBodyCallback) -> m SignalHandlerId
afterServerMessageWroteBody :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageWroteBody a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteBodyCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteBodyCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-body" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageWroteBodySignalInfo
instance SignalInfo ServerMessageWroteBodySignalInfo where
type HaskellCallbackType ServerMessageWroteBodySignalInfo = ServerMessageWroteBodyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageWroteBodyCallback cb
cb'' <- mk_ServerMessageWroteBodyCallback cb'
connectSignalFunPtr obj "wrote-body" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::wrote-body"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:wroteBody"})
#endif
type ServerMessageWroteBodyDataCallback =
Word32
-> IO ()
type C_ServerMessageWroteBodyDataCallback =
Ptr ServerMessage ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageWroteBodyDataCallback :: C_ServerMessageWroteBodyDataCallback -> IO (FunPtr C_ServerMessageWroteBodyDataCallback)
wrap_ServerMessageWroteBodyDataCallback ::
GObject a => (a -> ServerMessageWroteBodyDataCallback) ->
C_ServerMessageWroteBodyDataCallback
wrap_ServerMessageWroteBodyDataCallback :: forall a.
GObject a =>
(a -> ServerMessageWroteBodyDataCallback)
-> C_ServerMessageWroteBodyDataCallback
wrap_ServerMessageWroteBodyDataCallback a -> ServerMessageWroteBodyDataCallback
gi'cb Ptr ServerMessage
gi'selfPtr Word32
chunkSize Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> ServerMessageWroteBodyDataCallback
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self) Word32
chunkSize
onServerMessageWroteBodyData :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteBodyDataCallback) -> m SignalHandlerId
onServerMessageWroteBodyData :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageWroteBodyDataCallback)
-> m SignalHandlerId
onServerMessageWroteBodyData a
obj (?self::a) => ServerMessageWroteBodyDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageWroteBodyDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageWroteBodyDataCallback
ServerMessageWroteBodyDataCallback
cb
let wrapped' :: C_ServerMessageWroteBodyDataCallback
wrapped' = (a -> ServerMessageWroteBodyDataCallback)
-> C_ServerMessageWroteBodyDataCallback
forall a.
GObject a =>
(a -> ServerMessageWroteBodyDataCallback)
-> C_ServerMessageWroteBodyDataCallback
wrap_ServerMessageWroteBodyDataCallback a -> ServerMessageWroteBodyDataCallback
wrapped
FunPtr C_ServerMessageWroteBodyDataCallback
wrapped'' <- C_ServerMessageWroteBodyDataCallback
-> IO (FunPtr C_ServerMessageWroteBodyDataCallback)
mk_ServerMessageWroteBodyDataCallback C_ServerMessageWroteBodyDataCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageWroteBodyDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-body-data" FunPtr C_ServerMessageWroteBodyDataCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageWroteBodyData :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteBodyDataCallback) -> m SignalHandlerId
afterServerMessageWroteBodyData :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a
-> ((?self::a) => ServerMessageWroteBodyDataCallback)
-> m SignalHandlerId
afterServerMessageWroteBodyData a
obj (?self::a) => ServerMessageWroteBodyDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ServerMessageWroteBodyDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerMessageWroteBodyDataCallback
ServerMessageWroteBodyDataCallback
cb
let wrapped' :: C_ServerMessageWroteBodyDataCallback
wrapped' = (a -> ServerMessageWroteBodyDataCallback)
-> C_ServerMessageWroteBodyDataCallback
forall a.
GObject a =>
(a -> ServerMessageWroteBodyDataCallback)
-> C_ServerMessageWroteBodyDataCallback
wrap_ServerMessageWroteBodyDataCallback a -> ServerMessageWroteBodyDataCallback
wrapped
FunPtr C_ServerMessageWroteBodyDataCallback
wrapped'' <- C_ServerMessageWroteBodyDataCallback
-> IO (FunPtr C_ServerMessageWroteBodyDataCallback)
mk_ServerMessageWroteBodyDataCallback C_ServerMessageWroteBodyDataCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageWroteBodyDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-body-data" FunPtr C_ServerMessageWroteBodyDataCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageWroteBodyDataSignalInfo
instance SignalInfo ServerMessageWroteBodyDataSignalInfo where
type HaskellCallbackType ServerMessageWroteBodyDataSignalInfo = ServerMessageWroteBodyDataCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageWroteBodyDataCallback cb
cb'' <- mk_ServerMessageWroteBodyDataCallback cb'
connectSignalFunPtr obj "wrote-body-data" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::wrote-body-data"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:wroteBodyData"})
#endif
type ServerMessageWroteChunkCallback =
IO ()
type C_ServerMessageWroteChunkCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageWroteChunkCallback :: C_ServerMessageWroteChunkCallback -> IO (FunPtr C_ServerMessageWroteChunkCallback)
wrap_ServerMessageWroteChunkCallback ::
GObject a => (a -> ServerMessageWroteChunkCallback) ->
C_ServerMessageWroteChunkCallback
wrap_ServerMessageWroteChunkCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteChunkCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageWroteChunk :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteChunkCallback) -> m SignalHandlerId
onServerMessageWroteChunk :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageWroteChunk a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteChunkCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteChunkCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-chunk" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageWroteChunk :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteChunkCallback) -> m SignalHandlerId
afterServerMessageWroteChunk :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageWroteChunk a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteChunkCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteChunkCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-chunk" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageWroteChunkSignalInfo
instance SignalInfo ServerMessageWroteChunkSignalInfo where
type HaskellCallbackType ServerMessageWroteChunkSignalInfo = ServerMessageWroteChunkCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageWroteChunkCallback cb
cb'' <- mk_ServerMessageWroteChunkCallback cb'
connectSignalFunPtr obj "wrote-chunk" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::wrote-chunk"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:wroteChunk"})
#endif
type =
IO ()
type =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_ServerMessageWroteHeadersCallback -> IO (FunPtr C_ServerMessageWroteHeadersCallback)
wrap_ServerMessageWroteHeadersCallback ::
GObject a => (a -> ServerMessageWroteHeadersCallback) ->
C_ServerMessageWroteHeadersCallback
a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageWroteHeaders :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteHeadersCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteHeadersCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteHeadersCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-headers" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageWroteHeaders :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteHeadersCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteHeadersCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteHeadersCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-headers" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageWroteHeadersSignalInfo
instance SignalInfo ServerMessageWroteHeadersSignalInfo where
type HaskellCallbackType ServerMessageWroteHeadersSignalInfo = ServerMessageWroteHeadersCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageWroteHeadersCallback cb
cb'' <- mk_ServerMessageWroteHeadersCallback cb'
connectSignalFunPtr obj "wrote-headers" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::wrote-headers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:wroteHeaders"})
#endif
type ServerMessageWroteInformationalCallback =
IO ()
type C_ServerMessageWroteInformationalCallback =
Ptr ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerMessageWroteInformationalCallback :: C_ServerMessageWroteInformationalCallback -> IO (FunPtr C_ServerMessageWroteInformationalCallback)
wrap_ServerMessageWroteInformationalCallback ::
GObject a => (a -> ServerMessageWroteInformationalCallback) ->
C_ServerMessageWroteInformationalCallback
wrap_ServerMessageWroteInformationalCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteInformationalCallback a -> IO ()
gi'cb Ptr ServerMessage
gi'selfPtr Ptr ()
_ = do
Ptr ServerMessage -> (ServerMessage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ServerMessage
gi'selfPtr ((ServerMessage -> IO ()) -> IO ())
-> (ServerMessage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ServerMessage
gi'self -> a -> IO ()
gi'cb (ServerMessage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ServerMessage
gi'self)
onServerMessageWroteInformational :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteInformationalCallback) -> m SignalHandlerId
onServerMessageWroteInformational :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onServerMessageWroteInformational a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteInformationalCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteInformationalCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-informational" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerMessageWroteInformational :: (IsServerMessage a, MonadIO m) => a -> ((?self :: a) => ServerMessageWroteInformationalCallback) -> m SignalHandlerId
afterServerMessageWroteInformational :: forall a (m :: * -> *).
(IsServerMessage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterServerMessageWroteInformational a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ServerMessageConnectedCallback
wrapped' = (a -> IO ()) -> C_ServerMessageConnectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ServerMessageConnectedCallback
wrap_ServerMessageWroteInformationalCallback a -> IO ()
wrapped
FunPtr C_ServerMessageConnectedCallback
wrapped'' <- C_ServerMessageConnectedCallback
-> IO (FunPtr C_ServerMessageConnectedCallback)
mk_ServerMessageWroteInformationalCallback C_ServerMessageConnectedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerMessageConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrote-informational" FunPtr C_ServerMessageConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerMessageWroteInformationalSignalInfo
instance SignalInfo ServerMessageWroteInformationalSignalInfo where
type HaskellCallbackType ServerMessageWroteInformationalSignalInfo = ServerMessageWroteInformationalCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerMessageWroteInformationalCallback cb
cb'' <- mk_ServerMessageWroteInformationalCallback cb'
connectSignalFunPtr obj "wrote-informational" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage::wrote-informational"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:signal:wroteInformational"})
#endif
getServerMessageTlsPeerCertificate :: (MonadIO m, IsServerMessage o) => o -> m (Maybe Gio.TlsCertificate.TlsCertificate)
getServerMessageTlsPeerCertificate :: forall (m :: * -> *) o.
(MonadIO m, IsServerMessage o) =>
o -> m (Maybe TlsCertificate)
getServerMessageTlsPeerCertificate o
obj = IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate))
-> IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TlsCertificate -> TlsCertificate)
-> IO (Maybe TlsCertificate)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"tls-peer-certificate" ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate
#if defined(ENABLE_OVERLOADING)
data ServerMessageTlsPeerCertificatePropertyInfo
instance AttrInfo ServerMessageTlsPeerCertificatePropertyInfo where
type AttrAllowedOps ServerMessageTlsPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ServerMessageTlsPeerCertificatePropertyInfo = IsServerMessage
type AttrSetTypeConstraint ServerMessageTlsPeerCertificatePropertyInfo = (~) ()
type AttrTransferTypeConstraint ServerMessageTlsPeerCertificatePropertyInfo = (~) ()
type AttrTransferType ServerMessageTlsPeerCertificatePropertyInfo = ()
type AttrGetType ServerMessageTlsPeerCertificatePropertyInfo = (Maybe Gio.TlsCertificate.TlsCertificate)
type AttrLabel ServerMessageTlsPeerCertificatePropertyInfo = "tls-peer-certificate"
type AttrOrigin ServerMessageTlsPeerCertificatePropertyInfo = ServerMessage
attrGet = getServerMessageTlsPeerCertificate
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.tlsPeerCertificate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:attr:tlsPeerCertificate"
})
#endif
getServerMessageTlsPeerCertificateErrors :: (MonadIO m, IsServerMessage o) => o -> m [Gio.Flags.TlsCertificateFlags]
getServerMessageTlsPeerCertificateErrors :: forall (m :: * -> *) o.
(MonadIO m, IsServerMessage o) =>
o -> m [TlsCertificateFlags]
getServerMessageTlsPeerCertificateErrors o
obj = IO [TlsCertificateFlags] -> m [TlsCertificateFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [TlsCertificateFlags] -> m [TlsCertificateFlags])
-> IO [TlsCertificateFlags] -> m [TlsCertificateFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [TlsCertificateFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"tls-peer-certificate-errors"
#if defined(ENABLE_OVERLOADING)
data ServerMessageTlsPeerCertificateErrorsPropertyInfo
instance AttrInfo ServerMessageTlsPeerCertificateErrorsPropertyInfo where
type AttrAllowedOps ServerMessageTlsPeerCertificateErrorsPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ServerMessageTlsPeerCertificateErrorsPropertyInfo = IsServerMessage
type AttrSetTypeConstraint ServerMessageTlsPeerCertificateErrorsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ServerMessageTlsPeerCertificateErrorsPropertyInfo = (~) ()
type AttrTransferType ServerMessageTlsPeerCertificateErrorsPropertyInfo = ()
type AttrGetType ServerMessageTlsPeerCertificateErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]
type AttrLabel ServerMessageTlsPeerCertificateErrorsPropertyInfo = "tls-peer-certificate-errors"
type AttrOrigin ServerMessageTlsPeerCertificateErrorsPropertyInfo = ServerMessage
attrGet = getServerMessageTlsPeerCertificateErrors
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.tlsPeerCertificateErrors"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#g:attr:tlsPeerCertificateErrors"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ServerMessage
type instance O.AttributeList ServerMessage = ServerMessageAttributeList
type ServerMessageAttributeList = ('[ '("tlsPeerCertificate", ServerMessageTlsPeerCertificatePropertyInfo), '("tlsPeerCertificateErrors", ServerMessageTlsPeerCertificateErrorsPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
serverMessageTlsPeerCertificate :: AttrLabelProxy "tlsPeerCertificate"
serverMessageTlsPeerCertificate = AttrLabelProxy
serverMessageTlsPeerCertificateErrors :: AttrLabelProxy "tlsPeerCertificateErrors"
serverMessageTlsPeerCertificateErrors = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ServerMessage = ServerMessageSignalList
type ServerMessageSignalList = ('[ '("acceptCertificate", ServerMessageAcceptCertificateSignalInfo), '("connected", ServerMessageConnectedSignalInfo), '("disconnected", ServerMessageDisconnectedSignalInfo), '("finished", ServerMessageFinishedSignalInfo), '("gotBody", ServerMessageGotBodySignalInfo), '("gotChunk", ServerMessageGotChunkSignalInfo), '("gotHeaders", ServerMessageGotHeadersSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("wroteBody", ServerMessageWroteBodySignalInfo), '("wroteBodyData", ServerMessageWroteBodyDataSignalInfo), '("wroteChunk", ServerMessageWroteChunkSignalInfo), '("wroteHeaders", ServerMessageWroteHeadersSignalInfo), '("wroteInformational", ServerMessageWroteInformationalSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "soup_server_message_get_http_version" soup_server_message_get_http_version ::
Ptr ServerMessage ->
IO CUInt
serverMessageGetHttpVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Soup.Enums.HTTPVersion
serverMessageGetHttpVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m HTTPVersion
serverMessageGetHttpVersion a
msg = IO HTTPVersion -> m HTTPVersion
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HTTPVersion -> m HTTPVersion)
-> IO HTTPVersion -> m HTTPVersion
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CUInt
result <- Ptr ServerMessage -> IO CUInt
soup_server_message_get_http_version Ptr ServerMessage
msg'
let result' :: HTTPVersion
result' = (Int -> HTTPVersion
forall a. Enum a => Int -> a
toEnum (Int -> HTTPVersion) -> (CUInt -> Int) -> CUInt -> HTTPVersion
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
msg
HTTPVersion -> IO HTTPVersion
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return HTTPVersion
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetHttpVersionMethodInfo
instance (signature ~ (m Soup.Enums.HTTPVersion), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetHttpVersionMethodInfo a signature where
overloadedMethod = serverMessageGetHttpVersion
instance O.OverloadedMethodInfo ServerMessageGetHttpVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetHttpVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetHttpVersion"
})
#endif
foreign import ccall "soup_server_message_get_local_address" soup_server_message_get_local_address ::
Ptr ServerMessage ->
IO (Ptr Gio.SocketAddress.SocketAddress)
serverMessageGetLocalAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe Gio.SocketAddress.SocketAddress)
serverMessageGetLocalAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe SocketAddress)
serverMessageGetLocalAddress a
msg = IO (Maybe SocketAddress) -> m (Maybe SocketAddress)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe SocketAddress) -> m (Maybe SocketAddress))
-> IO (Maybe SocketAddress) -> m (Maybe SocketAddress)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr SocketAddress
result <- Ptr ServerMessage -> IO (Ptr SocketAddress)
soup_server_message_get_local_address Ptr ServerMessage
msg'
Maybe SocketAddress
maybeResult <- Ptr SocketAddress
-> (Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr SocketAddress
result ((Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress))
-> (Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress)
forall a b. (a -> b) -> a -> b
$ \Ptr SocketAddress
result' -> do
SocketAddress
result'' <- ((ManagedPtr SocketAddress -> SocketAddress)
-> Ptr SocketAddress -> IO SocketAddress
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SocketAddress -> SocketAddress
Gio.SocketAddress.SocketAddress) Ptr SocketAddress
result'
SocketAddress -> IO SocketAddress
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SocketAddress
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe SocketAddress -> IO (Maybe SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SocketAddress
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetLocalAddressMethodInfo
instance (signature ~ (m (Maybe Gio.SocketAddress.SocketAddress)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetLocalAddressMethodInfo a signature where
overloadedMethod = serverMessageGetLocalAddress
instance O.OverloadedMethodInfo ServerMessageGetLocalAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetLocalAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetLocalAddress"
})
#endif
foreign import ccall "soup_server_message_get_method" soup_server_message_get_method ::
Ptr ServerMessage ->
IO CString
serverMessageGetMethod ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m T.Text
serverMessageGetMethod :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m Text
serverMessageGetMethod a
msg = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
result <- Ptr ServerMessage -> IO CString
soup_server_message_get_method Ptr ServerMessage
msg'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetMethod" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetMethodMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetMethodMethodInfo a signature where
overloadedMethod = serverMessageGetMethod
instance O.OverloadedMethodInfo ServerMessageGetMethodMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetMethod",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetMethod"
})
#endif
foreign import ccall "soup_server_message_get_reason_phrase" soup_server_message_get_reason_phrase ::
Ptr ServerMessage ->
IO CString
serverMessageGetReasonPhrase ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe T.Text)
serverMessageGetReasonPhrase :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe Text)
serverMessageGetReasonPhrase a
msg = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
result <- Ptr ServerMessage -> IO CString
soup_server_message_get_reason_phrase Ptr ServerMessage
msg'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetReasonPhraseMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetReasonPhraseMethodInfo a signature where
overloadedMethod = serverMessageGetReasonPhrase
instance O.OverloadedMethodInfo ServerMessageGetReasonPhraseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetReasonPhrase",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetReasonPhrase"
})
#endif
foreign import ccall "soup_server_message_get_remote_address" soup_server_message_get_remote_address ::
Ptr ServerMessage ->
IO (Ptr Gio.SocketAddress.SocketAddress)
serverMessageGetRemoteAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe Gio.SocketAddress.SocketAddress)
serverMessageGetRemoteAddress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe SocketAddress)
serverMessageGetRemoteAddress a
msg = IO (Maybe SocketAddress) -> m (Maybe SocketAddress)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe SocketAddress) -> m (Maybe SocketAddress))
-> IO (Maybe SocketAddress) -> m (Maybe SocketAddress)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr SocketAddress
result <- Ptr ServerMessage -> IO (Ptr SocketAddress)
soup_server_message_get_remote_address Ptr ServerMessage
msg'
Maybe SocketAddress
maybeResult <- Ptr SocketAddress
-> (Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr SocketAddress
result ((Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress))
-> (Ptr SocketAddress -> IO SocketAddress)
-> IO (Maybe SocketAddress)
forall a b. (a -> b) -> a -> b
$ \Ptr SocketAddress
result' -> do
SocketAddress
result'' <- ((ManagedPtr SocketAddress -> SocketAddress)
-> Ptr SocketAddress -> IO SocketAddress
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SocketAddress -> SocketAddress
Gio.SocketAddress.SocketAddress) Ptr SocketAddress
result'
SocketAddress -> IO SocketAddress
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SocketAddress
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe SocketAddress -> IO (Maybe SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SocketAddress
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetRemoteAddressMethodInfo
instance (signature ~ (m (Maybe Gio.SocketAddress.SocketAddress)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetRemoteAddressMethodInfo a signature where
overloadedMethod = serverMessageGetRemoteAddress
instance O.OverloadedMethodInfo ServerMessageGetRemoteAddressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetRemoteAddress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetRemoteAddress"
})
#endif
foreign import ccall "soup_server_message_get_remote_host" soup_server_message_get_remote_host ::
Ptr ServerMessage ->
IO CString
serverMessageGetRemoteHost ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe T.Text)
serverMessageGetRemoteHost :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe Text)
serverMessageGetRemoteHost a
msg = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
result <- Ptr ServerMessage -> IO CString
soup_server_message_get_remote_host Ptr ServerMessage
msg'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetRemoteHostMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetRemoteHostMethodInfo a signature where
overloadedMethod = serverMessageGetRemoteHost
instance O.OverloadedMethodInfo ServerMessageGetRemoteHostMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetRemoteHost",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetRemoteHost"
})
#endif
foreign import ccall "soup_server_message_get_request_body" soup_server_message_get_request_body ::
Ptr ServerMessage ->
IO (Ptr Soup.MessageBody.MessageBody)
serverMessageGetRequestBody ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Soup.MessageBody.MessageBody
serverMessageGetRequestBody :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m MessageBody
serverMessageGetRequestBody a
msg = IO MessageBody -> m MessageBody
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MessageBody -> m MessageBody)
-> IO MessageBody -> m MessageBody
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr MessageBody
result <- Ptr ServerMessage -> IO (Ptr MessageBody)
soup_server_message_get_request_body Ptr ServerMessage
msg'
Text -> Ptr MessageBody -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetRequestBody" Ptr MessageBody
result
MessageBody
result' <- ((ManagedPtr MessageBody -> MessageBody)
-> Ptr MessageBody -> IO MessageBody
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr MessageBody -> MessageBody
Soup.MessageBody.MessageBody) Ptr MessageBody
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
MessageBody -> IO MessageBody
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MessageBody
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetRequestBodyMethodInfo
instance (signature ~ (m Soup.MessageBody.MessageBody), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetRequestBodyMethodInfo a signature where
overloadedMethod = serverMessageGetRequestBody
instance O.OverloadedMethodInfo ServerMessageGetRequestBodyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetRequestBody",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetRequestBody"
})
#endif
foreign import ccall "soup_server_message_get_request_headers" ::
Ptr ServerMessage ->
IO (Ptr Soup.MessageHeaders.MessageHeaders)
serverMessageGetRequestHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Soup.MessageHeaders.MessageHeaders
a
msg = IO MessageHeaders -> m MessageHeaders
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MessageHeaders -> m MessageHeaders)
-> IO MessageHeaders -> m MessageHeaders
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr MessageHeaders
result <- Ptr ServerMessage -> IO (Ptr MessageHeaders)
soup_server_message_get_request_headers Ptr ServerMessage
msg'
Text -> Ptr MessageHeaders -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetRequestHeaders" Ptr MessageHeaders
result
MessageHeaders
result' <- ((ManagedPtr MessageHeaders -> MessageHeaders)
-> Ptr MessageHeaders -> IO MessageHeaders
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr MessageHeaders -> MessageHeaders
Soup.MessageHeaders.MessageHeaders) Ptr MessageHeaders
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
MessageHeaders -> IO MessageHeaders
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MessageHeaders
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetRequestHeadersMethodInfo
instance (signature ~ (m Soup.MessageHeaders.MessageHeaders), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetRequestHeadersMethodInfo a signature where
overloadedMethod = serverMessageGetRequestHeaders
instance O.OverloadedMethodInfo ServerMessageGetRequestHeadersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetRequestHeaders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetRequestHeaders"
})
#endif
foreign import ccall "soup_server_message_get_response_body" soup_server_message_get_response_body ::
Ptr ServerMessage ->
IO (Ptr Soup.MessageBody.MessageBody)
serverMessageGetResponseBody ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Soup.MessageBody.MessageBody
serverMessageGetResponseBody :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m MessageBody
serverMessageGetResponseBody a
msg = IO MessageBody -> m MessageBody
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MessageBody -> m MessageBody)
-> IO MessageBody -> m MessageBody
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr MessageBody
result <- Ptr ServerMessage -> IO (Ptr MessageBody)
soup_server_message_get_response_body Ptr ServerMessage
msg'
Text -> Ptr MessageBody -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetResponseBody" Ptr MessageBody
result
MessageBody
result' <- ((ManagedPtr MessageBody -> MessageBody)
-> Ptr MessageBody -> IO MessageBody
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr MessageBody -> MessageBody
Soup.MessageBody.MessageBody) Ptr MessageBody
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
MessageBody -> IO MessageBody
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MessageBody
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetResponseBodyMethodInfo
instance (signature ~ (m Soup.MessageBody.MessageBody), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetResponseBodyMethodInfo a signature where
overloadedMethod = serverMessageGetResponseBody
instance O.OverloadedMethodInfo ServerMessageGetResponseBodyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetResponseBody",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetResponseBody"
})
#endif
foreign import ccall "soup_server_message_get_response_headers" ::
Ptr ServerMessage ->
IO (Ptr Soup.MessageHeaders.MessageHeaders)
serverMessageGetResponseHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Soup.MessageHeaders.MessageHeaders
a
msg = IO MessageHeaders -> m MessageHeaders
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MessageHeaders -> m MessageHeaders)
-> IO MessageHeaders -> m MessageHeaders
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr MessageHeaders
result <- Ptr ServerMessage -> IO (Ptr MessageHeaders)
soup_server_message_get_response_headers Ptr ServerMessage
msg'
Text -> Ptr MessageHeaders -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetResponseHeaders" Ptr MessageHeaders
result
MessageHeaders
result' <- ((ManagedPtr MessageHeaders -> MessageHeaders)
-> Ptr MessageHeaders -> IO MessageHeaders
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr MessageHeaders -> MessageHeaders
Soup.MessageHeaders.MessageHeaders) Ptr MessageHeaders
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
MessageHeaders -> IO MessageHeaders
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MessageHeaders
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetResponseHeadersMethodInfo
instance (signature ~ (m Soup.MessageHeaders.MessageHeaders), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetResponseHeadersMethodInfo a signature where
overloadedMethod = serverMessageGetResponseHeaders
instance O.OverloadedMethodInfo ServerMessageGetResponseHeadersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetResponseHeaders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetResponseHeaders"
})
#endif
foreign import ccall "soup_server_message_get_socket" soup_server_message_get_socket ::
Ptr ServerMessage ->
IO (Ptr Gio.Socket.Socket)
serverMessageGetSocket ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe Gio.Socket.Socket)
serverMessageGetSocket :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe Socket)
serverMessageGetSocket a
msg = IO (Maybe Socket) -> m (Maybe Socket)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Socket) -> m (Maybe Socket))
-> IO (Maybe Socket) -> m (Maybe Socket)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr Socket
result <- Ptr ServerMessage -> IO (Ptr Socket)
soup_server_message_get_socket Ptr ServerMessage
msg'
Maybe Socket
maybeResult <- Ptr Socket -> (Ptr Socket -> IO Socket) -> IO (Maybe Socket)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Socket
result ((Ptr Socket -> IO Socket) -> IO (Maybe Socket))
-> (Ptr Socket -> IO Socket) -> IO (Maybe Socket)
forall a b. (a -> b) -> a -> b
$ \Ptr Socket
result' -> do
Socket
result'' <- ((ManagedPtr Socket -> Socket) -> Ptr Socket -> IO Socket
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Socket -> Socket
Gio.Socket.Socket) Ptr Socket
result'
Socket -> IO Socket
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Socket
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe Socket -> IO (Maybe Socket)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Socket
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetSocketMethodInfo
instance (signature ~ (m (Maybe Gio.Socket.Socket)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetSocketMethodInfo a signature where
overloadedMethod = serverMessageGetSocket
instance O.OverloadedMethodInfo ServerMessageGetSocketMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetSocket",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetSocket"
})
#endif
foreign import ccall "soup_server_message_get_status" soup_server_message_get_status ::
Ptr ServerMessage ->
IO Word32
serverMessageGetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Word32
serverMessageGetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m Word32
serverMessageGetStatus a
msg = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Word32
result <- Ptr ServerMessage -> IO Word32
soup_server_message_get_status Ptr ServerMessage
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetStatusMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetStatusMethodInfo a signature where
overloadedMethod = serverMessageGetStatus
instance O.OverloadedMethodInfo ServerMessageGetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetStatus"
})
#endif
foreign import ccall "soup_server_message_get_tls_peer_certificate" soup_server_message_get_tls_peer_certificate ::
Ptr ServerMessage ->
IO (Ptr Gio.TlsCertificate.TlsCertificate)
serverMessageGetTlsPeerCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m (Maybe Gio.TlsCertificate.TlsCertificate)
serverMessageGetTlsPeerCertificate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m (Maybe TlsCertificate)
serverMessageGetTlsPeerCertificate a
msg = IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate))
-> IO (Maybe TlsCertificate) -> m (Maybe TlsCertificate)
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr TlsCertificate
result <- Ptr ServerMessage -> IO (Ptr TlsCertificate)
soup_server_message_get_tls_peer_certificate Ptr ServerMessage
msg'
Maybe TlsCertificate
maybeResult <- Ptr TlsCertificate
-> (Ptr TlsCertificate -> IO TlsCertificate)
-> IO (Maybe TlsCertificate)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TlsCertificate
result ((Ptr TlsCertificate -> IO TlsCertificate)
-> IO (Maybe TlsCertificate))
-> (Ptr TlsCertificate -> IO TlsCertificate)
-> IO (Maybe TlsCertificate)
forall a b. (a -> b) -> a -> b
$ \Ptr TlsCertificate
result' -> do
TlsCertificate
result'' <- ((ManagedPtr TlsCertificate -> TlsCertificate)
-> Ptr TlsCertificate -> IO TlsCertificate
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate) Ptr TlsCertificate
result'
TlsCertificate -> IO TlsCertificate
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TlsCertificate
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe TlsCertificate -> IO (Maybe TlsCertificate)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TlsCertificate
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetTlsPeerCertificateMethodInfo
instance (signature ~ (m (Maybe Gio.TlsCertificate.TlsCertificate)), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetTlsPeerCertificateMethodInfo a signature where
overloadedMethod = serverMessageGetTlsPeerCertificate
instance O.OverloadedMethodInfo ServerMessageGetTlsPeerCertificateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetTlsPeerCertificate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetTlsPeerCertificate"
})
#endif
foreign import ccall "soup_server_message_get_tls_peer_certificate_errors" soup_server_message_get_tls_peer_certificate_errors ::
Ptr ServerMessage ->
IO CUInt
serverMessageGetTlsPeerCertificateErrors ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m [Gio.Flags.TlsCertificateFlags]
serverMessageGetTlsPeerCertificateErrors :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m [TlsCertificateFlags]
serverMessageGetTlsPeerCertificateErrors a
msg = IO [TlsCertificateFlags] -> m [TlsCertificateFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TlsCertificateFlags] -> m [TlsCertificateFlags])
-> IO [TlsCertificateFlags] -> m [TlsCertificateFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CUInt
result <- Ptr ServerMessage -> IO CUInt
soup_server_message_get_tls_peer_certificate_errors Ptr ServerMessage
msg'
let result' :: [TlsCertificateFlags]
result' = CUInt -> [TlsCertificateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
[TlsCertificateFlags] -> IO [TlsCertificateFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [TlsCertificateFlags]
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetTlsPeerCertificateErrorsMethodInfo
instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetTlsPeerCertificateErrorsMethodInfo a signature where
overloadedMethod = serverMessageGetTlsPeerCertificateErrors
instance O.OverloadedMethodInfo ServerMessageGetTlsPeerCertificateErrorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetTlsPeerCertificateErrors",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetTlsPeerCertificateErrors"
})
#endif
foreign import ccall "soup_server_message_get_uri" soup_server_message_get_uri ::
Ptr ServerMessage ->
IO (Ptr GLib.Uri.Uri)
serverMessageGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m GLib.Uri.Uri
serverMessageGetUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m Uri
serverMessageGetUri a
msg = IO Uri -> m Uri
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Uri -> m Uri) -> IO Uri -> m Uri
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr Uri
result <- Ptr ServerMessage -> IO (Ptr Uri)
soup_server_message_get_uri Ptr ServerMessage
msg'
Text -> Ptr Uri -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageGetUri" Ptr Uri
result
Uri
result' <- ((ManagedPtr Uri -> Uri) -> Ptr Uri -> IO Uri
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Uri -> Uri
GLib.Uri.Uri) Ptr Uri
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Uri -> IO Uri
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Uri
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageGetUriMethodInfo
instance (signature ~ (m GLib.Uri.Uri), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageGetUriMethodInfo a signature where
overloadedMethod = serverMessageGetUri
instance O.OverloadedMethodInfo ServerMessageGetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageGetUri"
})
#endif
foreign import ccall "soup_server_message_is_options_ping" soup_server_message_is_options_ping ::
Ptr ServerMessage ->
IO CInt
serverMessageIsOptionsPing ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Bool
serverMessageIsOptionsPing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m Bool
serverMessageIsOptionsPing a
msg = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CInt
result <- Ptr ServerMessage -> IO CInt
soup_server_message_is_options_ping Ptr ServerMessage
msg'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageIsOptionsPingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageIsOptionsPingMethodInfo a signature where
overloadedMethod = serverMessageIsOptionsPing
instance O.OverloadedMethodInfo ServerMessageIsOptionsPingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageIsOptionsPing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageIsOptionsPing"
})
#endif
foreign import ccall "soup_server_message_pause" soup_server_message_pause ::
Ptr ServerMessage ->
IO ()
serverMessagePause ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m ()
serverMessagePause :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m ()
serverMessagePause a
msg = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr ServerMessage -> IO ()
soup_server_message_pause Ptr ServerMessage
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessagePauseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessagePauseMethodInfo a signature where
overloadedMethod = serverMessagePause
instance O.OverloadedMethodInfo ServerMessagePauseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessagePause",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessagePause"
})
#endif
foreign import ccall "soup_server_message_set_http_version" soup_server_message_set_http_version ::
Ptr ServerMessage ->
CUInt ->
IO ()
serverMessageSetHttpVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> Soup.Enums.HTTPVersion
-> m ()
serverMessageSetHttpVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> HTTPVersion -> m ()
serverMessageSetHttpVersion a
msg HTTPVersion
version = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
let version' :: CUInt
version' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (HTTPVersion -> Int) -> HTTPVersion -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. HTTPVersion -> Int
forall a. Enum a => a -> Int
fromEnum) HTTPVersion
version
Ptr ServerMessage -> CUInt -> IO ()
soup_server_message_set_http_version Ptr ServerMessage
msg' CUInt
version'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessageSetHttpVersionMethodInfo
instance (signature ~ (Soup.Enums.HTTPVersion -> m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageSetHttpVersionMethodInfo a signature where
overloadedMethod = serverMessageSetHttpVersion
instance O.OverloadedMethodInfo ServerMessageSetHttpVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageSetHttpVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageSetHttpVersion"
})
#endif
foreign import ccall "soup_server_message_set_redirect" soup_server_message_set_redirect ::
Ptr ServerMessage ->
Word32 ->
CString ->
IO ()
serverMessageSetRedirect ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> Word32
-> T.Text
-> m ()
serverMessageSetRedirect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> Word32 -> Text -> m ()
serverMessageSetRedirect a
msg Word32
statusCode Text
redirectUri = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
redirectUri' <- Text -> IO CString
textToCString Text
redirectUri
Ptr ServerMessage -> Word32 -> CString -> IO ()
soup_server_message_set_redirect Ptr ServerMessage
msg' Word32
statusCode CString
redirectUri'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
redirectUri'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessageSetRedirectMethodInfo
instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageSetRedirectMethodInfo a signature where
overloadedMethod = serverMessageSetRedirect
instance O.OverloadedMethodInfo ServerMessageSetRedirectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageSetRedirect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageSetRedirect"
})
#endif
foreign import ccall "soup_server_message_set_response" soup_server_message_set_response ::
Ptr ServerMessage ->
CString ->
CUInt ->
Ptr Word8 ->
Word64 ->
IO ()
serverMessageSetResponse ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> Maybe (T.Text)
-> Soup.Enums.MemoryUse
-> Maybe (ByteString)
-> m ()
serverMessageSetResponse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> Maybe Text -> MemoryUse -> Maybe ByteString -> m ()
serverMessageSetResponse a
msg Maybe Text
contentType MemoryUse
respUse Maybe ByteString
respBody = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let respLength :: Word64
respLength = case Maybe ByteString
respBody of
Maybe ByteString
Nothing -> Word64
0
Just ByteString
jRespBody -> Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
jRespBody
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
maybeContentType <- case Maybe Text
contentType of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jContentType -> do
CString
jContentType' <- Text -> IO CString
textToCString Text
jContentType
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jContentType'
let respUse' :: CUInt
respUse' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (MemoryUse -> Int) -> MemoryUse -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MemoryUse -> Int
forall a. Enum a => a -> Int
fromEnum) MemoryUse
respUse
Ptr Word8
maybeRespBody <- case Maybe ByteString
respBody of
Maybe ByteString
Nothing -> Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
nullPtr
Just ByteString
jRespBody -> do
Ptr Word8
jRespBody' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jRespBody
Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
jRespBody'
Ptr ServerMessage
-> CString -> CUInt -> Ptr Word8 -> Word64 -> IO ()
soup_server_message_set_response Ptr ServerMessage
msg' CString
maybeContentType CUInt
respUse' Ptr Word8
maybeRespBody Word64
respLength
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeContentType
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
maybeRespBody
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessageSetResponseMethodInfo
instance (signature ~ (Maybe (T.Text) -> Soup.Enums.MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageSetResponseMethodInfo a signature where
overloadedMethod = serverMessageSetResponse
instance O.OverloadedMethodInfo ServerMessageSetResponseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageSetResponse",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageSetResponse"
})
#endif
foreign import ccall "soup_server_message_set_status" soup_server_message_set_status ::
Ptr ServerMessage ->
Word32 ->
CString ->
IO ()
serverMessageSetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> Word32
-> Maybe (T.Text)
-> m ()
serverMessageSetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> Word32 -> Maybe Text -> m ()
serverMessageSetStatus a
msg Word32
statusCode Maybe Text
reasonPhrase = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
CString
maybeReasonPhrase <- case Maybe Text
reasonPhrase of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jReasonPhrase -> do
CString
jReasonPhrase' <- Text -> IO CString
textToCString Text
jReasonPhrase
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jReasonPhrase'
Ptr ServerMessage -> Word32 -> CString -> IO ()
soup_server_message_set_status Ptr ServerMessage
msg' Word32
statusCode CString
maybeReasonPhrase
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeReasonPhrase
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessageSetStatusMethodInfo
instance (signature ~ (Word32 -> Maybe (T.Text) -> m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageSetStatusMethodInfo a signature where
overloadedMethod = serverMessageSetStatus
instance O.OverloadedMethodInfo ServerMessageSetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageSetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageSetStatus"
})
#endif
foreign import ccall "soup_server_message_steal_connection" soup_server_message_steal_connection ::
Ptr ServerMessage ->
IO (Ptr Gio.IOStream.IOStream)
serverMessageStealConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m Gio.IOStream.IOStream
serverMessageStealConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m IOStream
serverMessageStealConnection a
msg = IO IOStream -> m IOStream
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IOStream -> m IOStream) -> IO IOStream -> m IOStream
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr IOStream
result <- Ptr ServerMessage -> IO (Ptr IOStream)
soup_server_message_steal_connection Ptr ServerMessage
msg'
Text -> Ptr IOStream -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"serverMessageStealConnection" Ptr IOStream
result
IOStream
result' <- ((ManagedPtr IOStream -> IOStream) -> Ptr IOStream -> IO IOStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr IOStream -> IOStream
Gio.IOStream.IOStream) Ptr IOStream
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
IOStream -> IO IOStream
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return IOStream
result'
#if defined(ENABLE_OVERLOADING)
data ServerMessageStealConnectionMethodInfo
instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageStealConnectionMethodInfo a signature where
overloadedMethod = serverMessageStealConnection
instance O.OverloadedMethodInfo ServerMessageStealConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageStealConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageStealConnection"
})
#endif
foreign import ccall "soup_server_message_unpause" soup_server_message_unpause ::
Ptr ServerMessage ->
IO ()
serverMessageUnpause ::
(B.CallStack.HasCallStack, MonadIO m, IsServerMessage a) =>
a
-> m ()
serverMessageUnpause :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServerMessage a) =>
a -> m ()
serverMessageUnpause a
msg = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ServerMessage
msg' <- a -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr ServerMessage -> IO ()
soup_server_message_unpause Ptr ServerMessage
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerMessageUnpauseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsServerMessage a) => O.OverloadedMethod ServerMessageUnpauseMethodInfo a signature where
overloadedMethod = serverMessageUnpause
instance O.OverloadedMethodInfo ServerMessageUnpauseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.ServerMessage.serverMessageUnpause",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-ServerMessage.html#v:serverMessageUnpause"
})
#endif