{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Objects.Server
(
Server(..) ,
IsServer ,
toServer ,
#if defined(ENABLE_OVERLOADING)
ResolveServerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ServerAcceptIostreamMethodInfo ,
#endif
serverAcceptIostream ,
#if defined(ENABLE_OVERLOADING)
ServerAddAuthDomainMethodInfo ,
#endif
serverAddAuthDomain ,
#if defined(ENABLE_OVERLOADING)
ServerAddEarlyHandlerMethodInfo ,
#endif
serverAddEarlyHandler ,
#if defined(ENABLE_OVERLOADING)
ServerAddHandlerMethodInfo ,
#endif
serverAddHandler ,
#if defined(ENABLE_OVERLOADING)
ServerAddWebsocketExtensionMethodInfo ,
#endif
serverAddWebsocketExtension ,
#if defined(ENABLE_OVERLOADING)
ServerAddWebsocketHandlerMethodInfo ,
#endif
serverAddWebsocketHandler ,
#if defined(ENABLE_OVERLOADING)
ServerDisconnectMethodInfo ,
#endif
serverDisconnect ,
#if defined(ENABLE_OVERLOADING)
ServerGetListenersMethodInfo ,
#endif
serverGetListeners ,
#if defined(ENABLE_OVERLOADING)
ServerGetTlsAuthModeMethodInfo ,
#endif
serverGetTlsAuthMode ,
#if defined(ENABLE_OVERLOADING)
ServerGetTlsCertificateMethodInfo ,
#endif
serverGetTlsCertificate ,
#if defined(ENABLE_OVERLOADING)
ServerGetTlsDatabaseMethodInfo ,
#endif
serverGetTlsDatabase ,
#if defined(ENABLE_OVERLOADING)
ServerGetUrisMethodInfo ,
#endif
serverGetUris ,
#if defined(ENABLE_OVERLOADING)
ServerIsHttpsMethodInfo ,
#endif
serverIsHttps ,
#if defined(ENABLE_OVERLOADING)
ServerListenMethodInfo ,
#endif
serverListen ,
#if defined(ENABLE_OVERLOADING)
ServerListenAllMethodInfo ,
#endif
serverListenAll ,
#if defined(ENABLE_OVERLOADING)
ServerListenLocalMethodInfo ,
#endif
serverListenLocal ,
#if defined(ENABLE_OVERLOADING)
ServerListenSocketMethodInfo ,
#endif
serverListenSocket ,
#if defined(ENABLE_OVERLOADING)
ServerPauseMessageMethodInfo ,
#endif
serverPauseMessage ,
#if defined(ENABLE_OVERLOADING)
ServerRemoveAuthDomainMethodInfo ,
#endif
serverRemoveAuthDomain ,
#if defined(ENABLE_OVERLOADING)
ServerRemoveHandlerMethodInfo ,
#endif
serverRemoveHandler ,
#if defined(ENABLE_OVERLOADING)
ServerRemoveWebsocketExtensionMethodInfo,
#endif
serverRemoveWebsocketExtension ,
#if defined(ENABLE_OVERLOADING)
ServerSetTlsAuthModeMethodInfo ,
#endif
serverSetTlsAuthMode ,
#if defined(ENABLE_OVERLOADING)
ServerSetTlsCertificateMethodInfo ,
#endif
serverSetTlsCertificate ,
#if defined(ENABLE_OVERLOADING)
ServerSetTlsDatabaseMethodInfo ,
#endif
serverSetTlsDatabase ,
#if defined(ENABLE_OVERLOADING)
ServerUnpauseMessageMethodInfo ,
#endif
serverUnpauseMessage ,
#if defined(ENABLE_OVERLOADING)
ServerRawPathsPropertyInfo ,
#endif
constructServerRawPaths ,
getServerRawPaths ,
#if defined(ENABLE_OVERLOADING)
serverRawPaths ,
#endif
#if defined(ENABLE_OVERLOADING)
ServerServerHeaderPropertyInfo ,
#endif
clearServerServerHeader ,
constructServerServerHeader ,
getServerServerHeader ,
#if defined(ENABLE_OVERLOADING)
serverServerHeader ,
#endif
setServerServerHeader ,
#if defined(ENABLE_OVERLOADING)
ServerTlsAuthModePropertyInfo ,
#endif
constructServerTlsAuthMode ,
getServerTlsAuthMode ,
#if defined(ENABLE_OVERLOADING)
serverTlsAuthMode ,
#endif
setServerTlsAuthMode ,
#if defined(ENABLE_OVERLOADING)
ServerTlsCertificatePropertyInfo ,
#endif
constructServerTlsCertificate ,
getServerTlsCertificate ,
#if defined(ENABLE_OVERLOADING)
serverTlsCertificate ,
#endif
setServerTlsCertificate ,
#if defined(ENABLE_OVERLOADING)
ServerTlsDatabasePropertyInfo ,
#endif
constructServerTlsDatabase ,
getServerTlsDatabase ,
#if defined(ENABLE_OVERLOADING)
serverTlsDatabase ,
#endif
setServerTlsDatabase ,
ServerRequestAbortedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerRequestAbortedSignalInfo ,
#endif
afterServerRequestAborted ,
onServerRequestAborted ,
ServerRequestFinishedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerRequestFinishedSignalInfo ,
#endif
afterServerRequestFinished ,
onServerRequestFinished ,
ServerRequestReadCallback ,
#if defined(ENABLE_OVERLOADING)
ServerRequestReadSignalInfo ,
#endif
afterServerRequestRead ,
onServerRequestRead ,
ServerRequestStartedCallback ,
#if defined(ENABLE_OVERLOADING)
ServerRequestStartedSignalInfo ,
#endif
afterServerRequestStarted ,
onServerRequestStarted ,
) 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.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Uri as GLib.Uri
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Enums as Gio.Enums
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 qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase
import qualified GI.Soup.Callbacks as Soup.Callbacks
import {-# SOURCE #-} qualified GI.Soup.Flags as Soup.Flags
import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain
import {-# SOURCE #-} qualified GI.Soup.Objects.ServerMessage as Soup.ServerMessage
newtype Server = Server (SP.ManagedPtr Server)
deriving (Server -> Server -> Bool
(Server -> Server -> Bool)
-> (Server -> Server -> Bool) -> Eq Server
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Server -> Server -> Bool
== :: Server -> Server -> Bool
$c/= :: Server -> Server -> Bool
/= :: Server -> Server -> Bool
Eq)
instance SP.ManagedPtrNewtype Server where
toManagedPtr :: Server -> ManagedPtr Server
toManagedPtr (Server ManagedPtr Server
p) = ManagedPtr Server
p
foreign import ccall "soup_server_get_type"
c_soup_server_get_type :: IO B.Types.GType
instance B.Types.TypedObject Server where
glibType :: IO GType
glibType = IO GType
c_soup_server_get_type
instance B.Types.GObject Server
class (SP.GObject o, O.IsDescendantOf Server o) => IsServer o
instance (SP.GObject o, O.IsDescendantOf Server o) => IsServer o
instance O.HasParentTypes Server
type instance O.ParentTypes Server = '[GObject.Object.Object]
toServer :: (MIO.MonadIO m, IsServer o) => o -> m Server
toServer :: forall (m :: * -> *) o. (MonadIO m, IsServer o) => o -> m Server
toServer = IO Server -> m Server
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Server -> m Server) -> (o -> IO Server) -> o -> m Server
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Server -> Server) -> o -> IO Server
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Server -> Server
Server
instance B.GValue.IsGValue (Maybe Server) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_soup_server_get_type
gvalueSet_ :: Ptr GValue -> Maybe Server -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Server
P.Nothing = Ptr GValue -> Ptr Server -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Server
forall a. Ptr a
FP.nullPtr :: FP.Ptr Server)
gvalueSet_ Ptr GValue
gv (P.Just Server
obj) = Server -> (Ptr Server -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Server
obj (Ptr GValue -> Ptr Server -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Server)
gvalueGet_ Ptr GValue
gv = do
Ptr Server
ptr <- Ptr GValue -> IO (Ptr Server)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Server)
if Ptr Server
ptr Ptr Server -> Ptr Server -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Server
forall a. Ptr a
FP.nullPtr
then Server -> Maybe Server
forall a. a -> Maybe a
P.Just (Server -> Maybe Server) -> IO Server -> IO (Maybe Server)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Server -> Server) -> Ptr Server -> IO Server
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Server -> Server
Server Ptr Server
ptr
else Maybe Server -> IO (Maybe Server)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Server
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveServerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveServerMethod "acceptIostream" o = ServerAcceptIostreamMethodInfo
ResolveServerMethod "addAuthDomain" o = ServerAddAuthDomainMethodInfo
ResolveServerMethod "addEarlyHandler" o = ServerAddEarlyHandlerMethodInfo
ResolveServerMethod "addHandler" o = ServerAddHandlerMethodInfo
ResolveServerMethod "addWebsocketExtension" o = ServerAddWebsocketExtensionMethodInfo
ResolveServerMethod "addWebsocketHandler" o = ServerAddWebsocketHandlerMethodInfo
ResolveServerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveServerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveServerMethod "disconnect" o = ServerDisconnectMethodInfo
ResolveServerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveServerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveServerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveServerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveServerMethod "isHttps" o = ServerIsHttpsMethodInfo
ResolveServerMethod "listen" o = ServerListenMethodInfo
ResolveServerMethod "listenAll" o = ServerListenAllMethodInfo
ResolveServerMethod "listenLocal" o = ServerListenLocalMethodInfo
ResolveServerMethod "listenSocket" o = ServerListenSocketMethodInfo
ResolveServerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveServerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveServerMethod "pauseMessage" o = ServerPauseMessageMethodInfo
ResolveServerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveServerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveServerMethod "removeAuthDomain" o = ServerRemoveAuthDomainMethodInfo
ResolveServerMethod "removeHandler" o = ServerRemoveHandlerMethodInfo
ResolveServerMethod "removeWebsocketExtension" o = ServerRemoveWebsocketExtensionMethodInfo
ResolveServerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveServerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveServerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveServerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveServerMethod "unpauseMessage" o = ServerUnpauseMessageMethodInfo
ResolveServerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveServerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveServerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveServerMethod "getListeners" o = ServerGetListenersMethodInfo
ResolveServerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveServerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveServerMethod "getTlsAuthMode" o = ServerGetTlsAuthModeMethodInfo
ResolveServerMethod "getTlsCertificate" o = ServerGetTlsCertificateMethodInfo
ResolveServerMethod "getTlsDatabase" o = ServerGetTlsDatabaseMethodInfo
ResolveServerMethod "getUris" o = ServerGetUrisMethodInfo
ResolveServerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveServerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveServerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveServerMethod "setTlsAuthMode" o = ServerSetTlsAuthModeMethodInfo
ResolveServerMethod "setTlsCertificate" o = ServerSetTlsCertificateMethodInfo
ResolveServerMethod "setTlsDatabase" o = ServerSetTlsDatabaseMethodInfo
ResolveServerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveServerMethod t Server, O.OverloadedMethod info Server p) => OL.IsLabel t (Server -> 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 ~ ResolveServerMethod t Server, O.OverloadedMethod info Server p, R.HasField t Server p) => R.HasField t Server p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveServerMethod t Server, O.OverloadedMethodInfo info Server) => OL.IsLabel t (O.MethodProxy info Server) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ServerRequestAbortedCallback =
Soup.ServerMessage.ServerMessage
-> IO ()
type C_ServerRequestAbortedCallback =
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerRequestAbortedCallback :: C_ServerRequestAbortedCallback -> IO (FunPtr C_ServerRequestAbortedCallback)
wrap_ServerRequestAbortedCallback ::
GObject a => (a -> ServerRequestAbortedCallback) ->
C_ServerRequestAbortedCallback
wrap_ServerRequestAbortedCallback :: forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestAbortedCallback a -> ServerRequestAbortedCallback
gi'cb Ptr Server
gi'selfPtr Ptr ServerMessage
message Ptr ()
_ = do
ServerMessage
message' <- ((ManagedPtr ServerMessage -> ServerMessage)
-> Ptr ServerMessage -> IO ServerMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ServerMessage -> ServerMessage
Soup.ServerMessage.ServerMessage) Ptr ServerMessage
message
Ptr Server -> (Server -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Server
gi'selfPtr ((Server -> IO ()) -> IO ()) -> (Server -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Server
gi'self -> a -> ServerRequestAbortedCallback
gi'cb (Server -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Server
gi'self) ServerMessage
message'
onServerRequestAborted :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestAbortedCallback) -> m SignalHandlerId
onServerRequestAborted :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
onServerRequestAborted a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestAbortedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestAbortedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-aborted" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerRequestAborted :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestAbortedCallback) -> m SignalHandlerId
afterServerRequestAborted :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
afterServerRequestAborted a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestAbortedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestAbortedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-aborted" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerRequestAbortedSignalInfo
instance SignalInfo ServerRequestAbortedSignalInfo where
type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerRequestAbortedCallback cb
cb'' <- mk_ServerRequestAbortedCallback cb'
connectSignalFunPtr obj "request-aborted" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server::request-aborted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:signal:requestAborted"})
#endif
type ServerRequestFinishedCallback =
Soup.ServerMessage.ServerMessage
-> IO ()
type C_ServerRequestFinishedCallback =
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerRequestFinishedCallback :: C_ServerRequestFinishedCallback -> IO (FunPtr C_ServerRequestFinishedCallback)
wrap_ServerRequestFinishedCallback ::
GObject a => (a -> ServerRequestFinishedCallback) ->
C_ServerRequestFinishedCallback
wrap_ServerRequestFinishedCallback :: forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestFinishedCallback a -> ServerRequestAbortedCallback
gi'cb Ptr Server
gi'selfPtr Ptr ServerMessage
message Ptr ()
_ = do
ServerMessage
message' <- ((ManagedPtr ServerMessage -> ServerMessage)
-> Ptr ServerMessage -> IO ServerMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ServerMessage -> ServerMessage
Soup.ServerMessage.ServerMessage) Ptr ServerMessage
message
Ptr Server -> (Server -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Server
gi'selfPtr ((Server -> IO ()) -> IO ()) -> (Server -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Server
gi'self -> a -> ServerRequestAbortedCallback
gi'cb (Server -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Server
gi'self) ServerMessage
message'
onServerRequestFinished :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestFinishedCallback) -> m SignalHandlerId
onServerRequestFinished :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
onServerRequestFinished a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestFinishedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestFinishedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-finished" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerRequestFinished :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestFinishedCallback) -> m SignalHandlerId
afterServerRequestFinished :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
afterServerRequestFinished a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestFinishedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestFinishedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-finished" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerRequestFinishedSignalInfo
instance SignalInfo ServerRequestFinishedSignalInfo where
type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerRequestFinishedCallback cb
cb'' <- mk_ServerRequestFinishedCallback cb'
connectSignalFunPtr obj "request-finished" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server::request-finished"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:signal:requestFinished"})
#endif
type ServerRequestReadCallback =
Soup.ServerMessage.ServerMessage
-> IO ()
type C_ServerRequestReadCallback =
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerRequestReadCallback :: C_ServerRequestReadCallback -> IO (FunPtr C_ServerRequestReadCallback)
wrap_ServerRequestReadCallback ::
GObject a => (a -> ServerRequestReadCallback) ->
C_ServerRequestReadCallback
wrap_ServerRequestReadCallback :: forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestReadCallback a -> ServerRequestAbortedCallback
gi'cb Ptr Server
gi'selfPtr Ptr ServerMessage
message Ptr ()
_ = do
ServerMessage
message' <- ((ManagedPtr ServerMessage -> ServerMessage)
-> Ptr ServerMessage -> IO ServerMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ServerMessage -> ServerMessage
Soup.ServerMessage.ServerMessage) Ptr ServerMessage
message
Ptr Server -> (Server -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Server
gi'selfPtr ((Server -> IO ()) -> IO ()) -> (Server -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Server
gi'self -> a -> ServerRequestAbortedCallback
gi'cb (Server -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Server
gi'self) ServerMessage
message'
onServerRequestRead :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestReadCallback) -> m SignalHandlerId
onServerRequestRead :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
onServerRequestRead a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestReadCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestReadCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-read" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerRequestRead :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestReadCallback) -> m SignalHandlerId
afterServerRequestRead :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
afterServerRequestRead a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestReadCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestReadCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-read" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerRequestReadSignalInfo
instance SignalInfo ServerRequestReadSignalInfo where
type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerRequestReadCallback cb
cb'' <- mk_ServerRequestReadCallback cb'
connectSignalFunPtr obj "request-read" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server::request-read"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:signal:requestRead"})
#endif
type ServerRequestStartedCallback =
Soup.ServerMessage.ServerMessage
-> IO ()
type C_ServerRequestStartedCallback =
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ServerRequestStartedCallback :: C_ServerRequestStartedCallback -> IO (FunPtr C_ServerRequestStartedCallback)
wrap_ServerRequestStartedCallback ::
GObject a => (a -> ServerRequestStartedCallback) ->
C_ServerRequestStartedCallback
wrap_ServerRequestStartedCallback :: forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestStartedCallback a -> ServerRequestAbortedCallback
gi'cb Ptr Server
gi'selfPtr Ptr ServerMessage
message Ptr ()
_ = do
ServerMessage
message' <- ((ManagedPtr ServerMessage -> ServerMessage)
-> Ptr ServerMessage -> IO ServerMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ServerMessage -> ServerMessage
Soup.ServerMessage.ServerMessage) Ptr ServerMessage
message
Ptr Server -> (Server -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Server
gi'selfPtr ((Server -> IO ()) -> IO ()) -> (Server -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Server
gi'self -> a -> ServerRequestAbortedCallback
gi'cb (Server -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Server
gi'self) ServerMessage
message'
onServerRequestStarted :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestStartedCallback) -> m SignalHandlerId
onServerRequestStarted :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
onServerRequestStarted a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestStartedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestStartedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-started" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterServerRequestStarted :: (IsServer a, MonadIO m) => a -> ((?self :: a) => ServerRequestStartedCallback) -> m SignalHandlerId
afterServerRequestStarted :: forall a (m :: * -> *).
(IsServer a, MonadIO m) =>
a
-> ((?self::a) => ServerRequestAbortedCallback)
-> m SignalHandlerId
afterServerRequestStarted a
obj (?self::a) => ServerRequestAbortedCallback
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 -> ServerRequestAbortedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ServerRequestAbortedCallback
ServerRequestAbortedCallback
cb
let wrapped' :: C_ServerRequestAbortedCallback
wrapped' = (a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
forall a.
GObject a =>
(a -> ServerRequestAbortedCallback)
-> C_ServerRequestAbortedCallback
wrap_ServerRequestStartedCallback a -> ServerRequestAbortedCallback
wrapped
FunPtr C_ServerRequestAbortedCallback
wrapped'' <- C_ServerRequestAbortedCallback
-> IO (FunPtr C_ServerRequestAbortedCallback)
mk_ServerRequestStartedCallback C_ServerRequestAbortedCallback
wrapped'
a
-> Text
-> FunPtr C_ServerRequestAbortedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-started" FunPtr C_ServerRequestAbortedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ServerRequestStartedSignalInfo
instance SignalInfo ServerRequestStartedSignalInfo where
type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ServerRequestStartedCallback cb
cb'' <- mk_ServerRequestStartedCallback cb'
connectSignalFunPtr obj "request-started" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server::request-started"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:signal:requestStarted"})
#endif
getServerRawPaths :: (MonadIO m, IsServer o) => o -> m Bool
getServerRawPaths :: forall (m :: * -> *) o. (MonadIO m, IsServer o) => o -> m Bool
getServerRawPaths o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"raw-paths"
constructServerRawPaths :: (IsServer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructServerRawPaths :: forall o (m :: * -> *).
(IsServer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructServerRawPaths Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"raw-paths" Bool
val
#if defined(ENABLE_OVERLOADING)
data ServerRawPathsPropertyInfo
instance AttrInfo ServerRawPathsPropertyInfo where
type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = IsServer
type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ServerRawPathsPropertyInfo = (~) Bool
type AttrTransferType ServerRawPathsPropertyInfo = Bool
type AttrGetType ServerRawPathsPropertyInfo = Bool
type AttrLabel ServerRawPathsPropertyInfo = "raw-paths"
type AttrOrigin ServerRawPathsPropertyInfo = Server
attrGet = getServerRawPaths
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructServerRawPaths
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.rawPaths"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:attr:rawPaths"
})
#endif
getServerServerHeader :: (MonadIO m, IsServer o) => o -> m (Maybe T.Text)
o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"server-header"
setServerServerHeader :: (MonadIO m, IsServer o) => o -> T.Text -> m ()
o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"server-header" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructServerServerHeader :: (IsServer o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"server-header" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearServerServerHeader :: (MonadIO m, IsServer o) => o -> m ()
o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"server-header" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ServerServerHeaderPropertyInfo
instance AttrInfo ServerServerHeaderPropertyInfo where
type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = IsServer
type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text
type AttrTransferType ServerServerHeaderPropertyInfo = T.Text
type AttrGetType ServerServerHeaderPropertyInfo = (Maybe T.Text)
type AttrLabel ServerServerHeaderPropertyInfo = "server-header"
type AttrOrigin ServerServerHeaderPropertyInfo = Server
attrGet = getServerServerHeader
attrSet = setServerServerHeader
attrTransfer _ v = do
return v
attrConstruct = constructServerServerHeader
attrClear = clearServerServerHeader
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverHeader"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:attr:serverHeader"
})
#endif
getServerTlsAuthMode :: (MonadIO m, IsServer o) => o -> m Gio.Enums.TlsAuthenticationMode
getServerTlsAuthMode :: forall (m :: * -> *) o.
(MonadIO m, IsServer o) =>
o -> m TlsAuthenticationMode
getServerTlsAuthMode o
obj = IO TlsAuthenticationMode -> m TlsAuthenticationMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TlsAuthenticationMode -> m TlsAuthenticationMode)
-> IO TlsAuthenticationMode -> m TlsAuthenticationMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TlsAuthenticationMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"tls-auth-mode"
setServerTlsAuthMode :: (MonadIO m, IsServer o) => o -> Gio.Enums.TlsAuthenticationMode -> m ()
setServerTlsAuthMode :: forall (m :: * -> *) o.
(MonadIO m, IsServer o) =>
o -> TlsAuthenticationMode -> m ()
setServerTlsAuthMode o
obj TlsAuthenticationMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> TlsAuthenticationMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"tls-auth-mode" TlsAuthenticationMode
val
constructServerTlsAuthMode :: (IsServer o, MIO.MonadIO m) => Gio.Enums.TlsAuthenticationMode -> m (GValueConstruct o)
constructServerTlsAuthMode :: forall o (m :: * -> *).
(IsServer o, MonadIO m) =>
TlsAuthenticationMode -> m (GValueConstruct o)
constructServerTlsAuthMode TlsAuthenticationMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TlsAuthenticationMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"tls-auth-mode" TlsAuthenticationMode
val
#if defined(ENABLE_OVERLOADING)
data ServerTlsAuthModePropertyInfo
instance AttrInfo ServerTlsAuthModePropertyInfo where
type AttrAllowedOps ServerTlsAuthModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ServerTlsAuthModePropertyInfo = IsServer
type AttrSetTypeConstraint ServerTlsAuthModePropertyInfo = (~) Gio.Enums.TlsAuthenticationMode
type AttrTransferTypeConstraint ServerTlsAuthModePropertyInfo = (~) Gio.Enums.TlsAuthenticationMode
type AttrTransferType ServerTlsAuthModePropertyInfo = Gio.Enums.TlsAuthenticationMode
type AttrGetType ServerTlsAuthModePropertyInfo = Gio.Enums.TlsAuthenticationMode
type AttrLabel ServerTlsAuthModePropertyInfo = "tls-auth-mode"
type AttrOrigin ServerTlsAuthModePropertyInfo = Server
attrGet = getServerTlsAuthMode
attrSet = setServerTlsAuthMode
attrTransfer _ v = do
return v
attrConstruct = constructServerTlsAuthMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.tlsAuthMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:attr:tlsAuthMode"
})
#endif
getServerTlsCertificate :: (MonadIO m, IsServer o) => o -> m (Maybe Gio.TlsCertificate.TlsCertificate)
getServerTlsCertificate :: forall (m :: * -> *) o.
(MonadIO m, IsServer o) =>
o -> m (Maybe TlsCertificate)
getServerTlsCertificate 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-certificate" ManagedPtr TlsCertificate -> TlsCertificate
Gio.TlsCertificate.TlsCertificate
setServerTlsCertificate :: (MonadIO m, IsServer o, Gio.TlsCertificate.IsTlsCertificate a) => o -> a -> m ()
setServerTlsCertificate :: forall (m :: * -> *) o a.
(MonadIO m, IsServer o, IsTlsCertificate a) =>
o -> a -> m ()
setServerTlsCertificate o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"tls-certificate" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructServerTlsCertificate :: (IsServer o, MIO.MonadIO m, Gio.TlsCertificate.IsTlsCertificate a) => a -> m (GValueConstruct o)
constructServerTlsCertificate :: forall o (m :: * -> *) a.
(IsServer o, MonadIO m, IsTlsCertificate a) =>
a -> m (GValueConstruct o)
constructServerTlsCertificate a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"tls-certificate" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data ServerTlsCertificatePropertyInfo
instance AttrInfo ServerTlsCertificatePropertyInfo where
type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = IsServer
type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate
type AttrTransferTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate
type AttrTransferType ServerTlsCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate
type AttrGetType ServerTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate.TlsCertificate)
type AttrLabel ServerTlsCertificatePropertyInfo = "tls-certificate"
type AttrOrigin ServerTlsCertificatePropertyInfo = Server
attrGet = getServerTlsCertificate
attrSet = setServerTlsCertificate
attrTransfer _ v = do
unsafeCastTo Gio.TlsCertificate.TlsCertificate v
attrConstruct = constructServerTlsCertificate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.tlsCertificate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:attr:tlsCertificate"
})
#endif
getServerTlsDatabase :: (MonadIO m, IsServer o) => o -> m (Maybe Gio.TlsDatabase.TlsDatabase)
getServerTlsDatabase :: forall (m :: * -> *) o.
(MonadIO m, IsServer o) =>
o -> m (Maybe TlsDatabase)
getServerTlsDatabase o
obj = IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase))
-> IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TlsDatabase -> TlsDatabase)
-> IO (Maybe TlsDatabase)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"tls-database" ManagedPtr TlsDatabase -> TlsDatabase
Gio.TlsDatabase.TlsDatabase
setServerTlsDatabase :: (MonadIO m, IsServer o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()
setServerTlsDatabase :: forall (m :: * -> *) o a.
(MonadIO m, IsServer o, IsTlsDatabase a) =>
o -> a -> m ()
setServerTlsDatabase o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"tls-database" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructServerTlsDatabase :: (IsServer o, MIO.MonadIO m, Gio.TlsDatabase.IsTlsDatabase a) => a -> m (GValueConstruct o)
constructServerTlsDatabase :: forall o (m :: * -> *) a.
(IsServer o, MonadIO m, IsTlsDatabase a) =>
a -> m (GValueConstruct o)
constructServerTlsDatabase a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"tls-database" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data ServerTlsDatabasePropertyInfo
instance AttrInfo ServerTlsDatabasePropertyInfo where
type AttrAllowedOps ServerTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ServerTlsDatabasePropertyInfo = IsServer
type AttrSetTypeConstraint ServerTlsDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase
type AttrTransferTypeConstraint ServerTlsDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase
type AttrTransferType ServerTlsDatabasePropertyInfo = Gio.TlsDatabase.TlsDatabase
type AttrGetType ServerTlsDatabasePropertyInfo = (Maybe Gio.TlsDatabase.TlsDatabase)
type AttrLabel ServerTlsDatabasePropertyInfo = "tls-database"
type AttrOrigin ServerTlsDatabasePropertyInfo = Server
attrGet = getServerTlsDatabase
attrSet = setServerTlsDatabase
attrTransfer _ v = do
unsafeCastTo Gio.TlsDatabase.TlsDatabase v
attrConstruct = constructServerTlsDatabase
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.tlsDatabase"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#g:attr:tlsDatabase"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Server
type instance O.AttributeList Server = ServerAttributeList
type ServerAttributeList = ('[ '("rawPaths", ServerRawPathsPropertyInfo), '("serverHeader", ServerServerHeaderPropertyInfo), '("tlsAuthMode", ServerTlsAuthModePropertyInfo), '("tlsCertificate", ServerTlsCertificatePropertyInfo), '("tlsDatabase", ServerTlsDatabasePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
serverRawPaths :: AttrLabelProxy "rawPaths"
serverRawPaths = AttrLabelProxy
serverServerHeader :: AttrLabelProxy "serverHeader"
serverServerHeader = AttrLabelProxy
serverTlsAuthMode :: AttrLabelProxy "tlsAuthMode"
serverTlsAuthMode = AttrLabelProxy
serverTlsCertificate :: AttrLabelProxy "tlsCertificate"
serverTlsCertificate = AttrLabelProxy
serverTlsDatabase :: AttrLabelProxy "tlsDatabase"
serverTlsDatabase = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Server = ServerSignalList
type ServerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestAborted", ServerRequestAbortedSignalInfo), '("requestFinished", ServerRequestFinishedSignalInfo), '("requestRead", ServerRequestReadSignalInfo), '("requestStarted", ServerRequestStartedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream ::
Ptr Server ->
Ptr Gio.IOStream.IOStream ->
Ptr Gio.SocketAddress.SocketAddress ->
Ptr Gio.SocketAddress.SocketAddress ->
Ptr (Ptr GError) ->
IO CInt
serverAcceptIostream ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.IOStream.IsIOStream b, Gio.SocketAddress.IsSocketAddress c, Gio.SocketAddress.IsSocketAddress d) =>
a
-> b
-> Maybe (c)
-> Maybe (d)
-> m ()
serverAcceptIostream :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsServer a, IsIOStream b,
IsSocketAddress c, IsSocketAddress d) =>
a -> b -> Maybe c -> Maybe d -> m ()
serverAcceptIostream a
server b
stream Maybe c
localAddr Maybe d
remoteAddr = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr IOStream
stream' <- b -> IO (Ptr IOStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
stream
Ptr SocketAddress
maybeLocalAddr <- case Maybe c
localAddr of
Maybe c
Nothing -> Ptr SocketAddress -> IO (Ptr SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SocketAddress
forall a. Ptr a
nullPtr
Just c
jLocalAddr -> do
Ptr SocketAddress
jLocalAddr' <- c -> IO (Ptr SocketAddress)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jLocalAddr
Ptr SocketAddress -> IO (Ptr SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SocketAddress
jLocalAddr'
Ptr SocketAddress
maybeRemoteAddr <- case Maybe d
remoteAddr of
Maybe d
Nothing -> Ptr SocketAddress -> IO (Ptr SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SocketAddress
forall a. Ptr a
nullPtr
Just d
jRemoteAddr -> do
Ptr SocketAddress
jRemoteAddr' <- d -> IO (Ptr SocketAddress)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jRemoteAddr
Ptr SocketAddress -> IO (Ptr SocketAddress)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SocketAddress
jRemoteAddr'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Server
-> Ptr IOStream
-> Ptr SocketAddress
-> Ptr SocketAddress
-> Ptr (Ptr GError)
-> IO CInt
soup_server_accept_iostream Ptr Server
server' Ptr IOStream
stream' Ptr SocketAddress
maybeLocalAddr Ptr SocketAddress
maybeRemoteAddr
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
stream
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
localAddr c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
remoteAddr d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ServerAcceptIostreamMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, IsServer a, Gio.IOStream.IsIOStream b, Gio.SocketAddress.IsSocketAddress c, Gio.SocketAddress.IsSocketAddress d) => O.OverloadedMethod ServerAcceptIostreamMethodInfo a signature where
overloadedMethod = serverAcceptIostream
instance O.OverloadedMethodInfo ServerAcceptIostreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAcceptIostream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAcceptIostream"
})
#endif
foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain ::
Ptr Server ->
Ptr Soup.AuthDomain.AuthDomain ->
IO ()
serverAddAuthDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) =>
a
-> b
-> m ()
serverAddAuthDomain :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsAuthDomain b) =>
a -> b -> m ()
serverAddAuthDomain a
server b
authDomain = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr AuthDomain
authDomain' <- b -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
authDomain
Ptr Server -> Ptr AuthDomain -> IO ()
soup_server_add_auth_domain Ptr Server
server' Ptr AuthDomain
authDomain'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
authDomain
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerAddAuthDomainMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) => O.OverloadedMethod ServerAddAuthDomainMethodInfo a signature where
overloadedMethod = serverAddAuthDomain
instance O.OverloadedMethodInfo ServerAddAuthDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAddAuthDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAddAuthDomain"
})
#endif
foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler ::
Ptr Server ->
CString ->
FunPtr Soup.Callbacks.C_ServerCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
serverAddEarlyHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Maybe (T.Text)
-> Soup.Callbacks.ServerCallback
-> m ()
serverAddEarlyHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> Maybe Text -> ServerCallback -> m ()
serverAddEarlyHandler a
server Maybe Text
path ServerCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr CChar
maybePath <- case Maybe Text
path of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPath -> do
Ptr CChar
jPath' <- Text -> IO (Ptr CChar)
textToCString Text
jPath
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPath'
FunPtr C_ServerCallback
callback' <- C_ServerCallback -> IO (FunPtr C_ServerCallback)
Soup.Callbacks.mk_ServerCallback (Maybe (Ptr (FunPtr C_ServerCallback))
-> ServerCallback_WithClosures -> C_ServerCallback
Soup.Callbacks.wrap_ServerCallback Maybe (Ptr (FunPtr C_ServerCallback))
forall a. Maybe a
Nothing (ServerCallback -> ServerCallback_WithClosures
Soup.Callbacks.drop_closures_ServerCallback ServerCallback
callback))
let userData :: Ptr ()
userData = FunPtr C_ServerCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ServerCallback
callback'
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Server
-> Ptr CChar
-> FunPtr C_ServerCallback
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
soup_server_add_early_handler Ptr Server
server' Ptr CChar
maybePath FunPtr C_ServerCallback
callback' Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePath
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerAddEarlyHandlerMethodInfo
instance (signature ~ (Maybe (T.Text) -> Soup.Callbacks.ServerCallback -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerAddEarlyHandlerMethodInfo a signature where
overloadedMethod = serverAddEarlyHandler
instance O.OverloadedMethodInfo ServerAddEarlyHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAddEarlyHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAddEarlyHandler"
})
#endif
foreign import ccall "soup_server_add_handler" soup_server_add_handler ::
Ptr Server ->
CString ->
FunPtr Soup.Callbacks.C_ServerCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
serverAddHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Maybe (T.Text)
-> Soup.Callbacks.ServerCallback
-> m ()
serverAddHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> Maybe Text -> ServerCallback -> m ()
serverAddHandler a
server Maybe Text
path ServerCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr CChar
maybePath <- case Maybe Text
path of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPath -> do
Ptr CChar
jPath' <- Text -> IO (Ptr CChar)
textToCString Text
jPath
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPath'
FunPtr C_ServerCallback
callback' <- C_ServerCallback -> IO (FunPtr C_ServerCallback)
Soup.Callbacks.mk_ServerCallback (Maybe (Ptr (FunPtr C_ServerCallback))
-> ServerCallback_WithClosures -> C_ServerCallback
Soup.Callbacks.wrap_ServerCallback Maybe (Ptr (FunPtr C_ServerCallback))
forall a. Maybe a
Nothing (ServerCallback -> ServerCallback_WithClosures
Soup.Callbacks.drop_closures_ServerCallback ServerCallback
callback))
let userData :: Ptr ()
userData = FunPtr C_ServerCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ServerCallback
callback'
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Server
-> Ptr CChar
-> FunPtr C_ServerCallback
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
soup_server_add_handler Ptr Server
server' Ptr CChar
maybePath FunPtr C_ServerCallback
callback' Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePath
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerAddHandlerMethodInfo
instance (signature ~ (Maybe (T.Text) -> Soup.Callbacks.ServerCallback -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerAddHandlerMethodInfo a signature where
overloadedMethod = serverAddHandler
instance O.OverloadedMethodInfo ServerAddHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAddHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAddHandler"
})
#endif
foreign import ccall "soup_server_add_websocket_extension" soup_server_add_websocket_extension ::
Ptr Server ->
CGType ->
IO ()
serverAddWebsocketExtension ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> GType
-> m ()
serverAddWebsocketExtension :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> GType -> m ()
serverAddWebsocketExtension a
server GType
extensionType = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
let extensionType' :: CGType
extensionType' = GType -> CGType
gtypeToCGType GType
extensionType
Ptr Server -> CGType -> IO ()
soup_server_add_websocket_extension Ptr Server
server' CGType
extensionType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerAddWebsocketExtensionMethodInfo
instance (signature ~ (GType -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerAddWebsocketExtensionMethodInfo a signature where
overloadedMethod = serverAddWebsocketExtension
instance O.OverloadedMethodInfo ServerAddWebsocketExtensionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAddWebsocketExtension",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAddWebsocketExtension"
})
#endif
foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler ::
Ptr Server ->
CString ->
CString ->
Ptr CString ->
FunPtr Soup.Callbacks.C_ServerWebsocketCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
serverAddWebsocketHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Maybe (T.Text)
-> Maybe (T.Text)
-> Maybe ([T.Text])
-> Soup.Callbacks.ServerWebsocketCallback
-> m ()
serverAddWebsocketHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a
-> Maybe Text
-> Maybe Text
-> Maybe [Text]
-> ServerWebsocketCallback
-> m ()
serverAddWebsocketHandler a
server Maybe Text
path Maybe Text
origin Maybe [Text]
protocols ServerWebsocketCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr CChar
maybePath <- case Maybe Text
path of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPath -> do
Ptr CChar
jPath' <- Text -> IO (Ptr CChar)
textToCString Text
jPath
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPath'
Ptr CChar
maybeOrigin <- case Maybe Text
origin of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jOrigin -> do
Ptr CChar
jOrigin' <- Text -> IO (Ptr CChar)
textToCString Text
jOrigin
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jOrigin'
Ptr (Ptr CChar)
maybeProtocols <- case Maybe [Text]
protocols of
Maybe [Text]
Nothing -> Ptr (Ptr CChar) -> IO (Ptr (Ptr CChar))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr (Ptr CChar)
forall a. Ptr a
nullPtr
Just [Text]
jProtocols -> do
Ptr (Ptr CChar)
jProtocols' <- [Text] -> IO (Ptr (Ptr CChar))
packZeroTerminatedUTF8CArray [Text]
jProtocols
Ptr (Ptr CChar) -> IO (Ptr (Ptr CChar))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr (Ptr CChar)
jProtocols'
FunPtr C_ServerWebsocketCallback
callback' <- C_ServerWebsocketCallback -> IO (FunPtr C_ServerWebsocketCallback)
Soup.Callbacks.mk_ServerWebsocketCallback (Maybe (Ptr (FunPtr C_ServerWebsocketCallback))
-> ServerWebsocketCallback_WithClosures
-> C_ServerWebsocketCallback
Soup.Callbacks.wrap_ServerWebsocketCallback Maybe (Ptr (FunPtr C_ServerWebsocketCallback))
forall a. Maybe a
Nothing (ServerWebsocketCallback -> ServerWebsocketCallback_WithClosures
Soup.Callbacks.drop_closures_ServerWebsocketCallback ServerWebsocketCallback
callback))
let userData :: Ptr ()
userData = FunPtr C_ServerWebsocketCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ServerWebsocketCallback
callback'
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Server
-> Ptr CChar
-> Ptr CChar
-> Ptr (Ptr CChar)
-> FunPtr C_ServerWebsocketCallback
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
soup_server_add_websocket_handler Ptr Server
server' Ptr CChar
maybePath Ptr CChar
maybeOrigin Ptr (Ptr CChar)
maybeProtocols FunPtr C_ServerWebsocketCallback
callback' Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePath
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeOrigin
(Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
maybeProtocols
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
maybeProtocols
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerAddWebsocketHandlerMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe ([T.Text]) -> Soup.Callbacks.ServerWebsocketCallback -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerAddWebsocketHandlerMethodInfo a signature where
overloadedMethod = serverAddWebsocketHandler
instance O.OverloadedMethodInfo ServerAddWebsocketHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverAddWebsocketHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverAddWebsocketHandler"
})
#endif
foreign import ccall "soup_server_disconnect" soup_server_disconnect ::
Ptr Server ->
IO ()
serverDisconnect ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m ()
serverDisconnect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m ()
serverDisconnect a
server = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr Server -> IO ()
soup_server_disconnect Ptr Server
server'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerDisconnectMethodInfo
instance (signature ~ (m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerDisconnectMethodInfo a signature where
overloadedMethod = serverDisconnect
instance O.OverloadedMethodInfo ServerDisconnectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverDisconnect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverDisconnect"
})
#endif
foreign import ccall "soup_server_get_listeners" soup_server_get_listeners ::
Ptr Server ->
IO (Ptr (GSList (Ptr Gio.Socket.Socket)))
serverGetListeners ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m [Gio.Socket.Socket]
serverGetListeners :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m [Socket]
serverGetListeners a
server = IO [Socket] -> m [Socket]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Socket] -> m [Socket]) -> IO [Socket] -> m [Socket]
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr (GSList (Ptr Socket))
result <- Ptr Server -> IO (Ptr (GSList (Ptr Socket)))
soup_server_get_listeners Ptr Server
server'
[Ptr Socket]
result' <- Ptr (GSList (Ptr Socket)) -> IO [Ptr Socket]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Socket))
result
[Socket]
result'' <- (Ptr Socket -> IO Socket) -> [Ptr Socket] -> IO [Socket]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr 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'
Ptr (GSList (Ptr Socket)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Socket))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
[Socket] -> IO [Socket]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Socket]
result''
#if defined(ENABLE_OVERLOADING)
data ServerGetListenersMethodInfo
instance (signature ~ (m [Gio.Socket.Socket]), MonadIO m, IsServer a) => O.OverloadedMethod ServerGetListenersMethodInfo a signature where
overloadedMethod = serverGetListeners
instance O.OverloadedMethodInfo ServerGetListenersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverGetListeners",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverGetListeners"
})
#endif
foreign import ccall "soup_server_get_tls_auth_mode" soup_server_get_tls_auth_mode ::
Ptr Server ->
IO CUInt
serverGetTlsAuthMode ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m Gio.Enums.TlsAuthenticationMode
serverGetTlsAuthMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m TlsAuthenticationMode
serverGetTlsAuthMode a
server = IO TlsAuthenticationMode -> m TlsAuthenticationMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsAuthenticationMode -> m TlsAuthenticationMode)
-> IO TlsAuthenticationMode -> m TlsAuthenticationMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
CUInt
result <- Ptr Server -> IO CUInt
soup_server_get_tls_auth_mode Ptr Server
server'
let result' :: TlsAuthenticationMode
result' = (Int -> TlsAuthenticationMode
forall a. Enum a => Int -> a
toEnum (Int -> TlsAuthenticationMode)
-> (CUInt -> Int) -> CUInt -> TlsAuthenticationMode
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
server
TlsAuthenticationMode -> IO TlsAuthenticationMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TlsAuthenticationMode
result'
#if defined(ENABLE_OVERLOADING)
data ServerGetTlsAuthModeMethodInfo
instance (signature ~ (m Gio.Enums.TlsAuthenticationMode), MonadIO m, IsServer a) => O.OverloadedMethod ServerGetTlsAuthModeMethodInfo a signature where
overloadedMethod = serverGetTlsAuthMode
instance O.OverloadedMethodInfo ServerGetTlsAuthModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverGetTlsAuthMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverGetTlsAuthMode"
})
#endif
foreign import ccall "soup_server_get_tls_certificate" soup_server_get_tls_certificate ::
Ptr Server ->
IO (Ptr Gio.TlsCertificate.TlsCertificate)
serverGetTlsCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m (Maybe Gio.TlsCertificate.TlsCertificate)
serverGetTlsCertificate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m (Maybe TlsCertificate)
serverGetTlsCertificate a
server = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr TlsCertificate
result <- Ptr Server -> IO (Ptr TlsCertificate)
soup_server_get_tls_certificate Ptr Server
server'
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
server
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 ServerGetTlsCertificateMethodInfo
instance (signature ~ (m (Maybe Gio.TlsCertificate.TlsCertificate)), MonadIO m, IsServer a) => O.OverloadedMethod ServerGetTlsCertificateMethodInfo a signature where
overloadedMethod = serverGetTlsCertificate
instance O.OverloadedMethodInfo ServerGetTlsCertificateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverGetTlsCertificate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverGetTlsCertificate"
})
#endif
foreign import ccall "soup_server_get_tls_database" soup_server_get_tls_database ::
Ptr Server ->
IO (Ptr Gio.TlsDatabase.TlsDatabase)
serverGetTlsDatabase ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m (Maybe Gio.TlsDatabase.TlsDatabase)
serverGetTlsDatabase :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m (Maybe TlsDatabase)
serverGetTlsDatabase a
server = IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase))
-> IO (Maybe TlsDatabase) -> m (Maybe TlsDatabase)
forall a b. (a -> b) -> a -> b
$ do
Ptr Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr TlsDatabase
result <- Ptr Server -> IO (Ptr TlsDatabase)
soup_server_get_tls_database Ptr Server
server'
Maybe TlsDatabase
maybeResult <- Ptr TlsDatabase
-> (Ptr TlsDatabase -> IO TlsDatabase) -> IO (Maybe TlsDatabase)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TlsDatabase
result ((Ptr TlsDatabase -> IO TlsDatabase) -> IO (Maybe TlsDatabase))
-> (Ptr TlsDatabase -> IO TlsDatabase) -> IO (Maybe TlsDatabase)
forall a b. (a -> b) -> a -> b
$ \Ptr TlsDatabase
result' -> do
TlsDatabase
result'' <- ((ManagedPtr TlsDatabase -> TlsDatabase)
-> Ptr TlsDatabase -> IO TlsDatabase
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TlsDatabase -> TlsDatabase
Gio.TlsDatabase.TlsDatabase) Ptr TlsDatabase
result'
TlsDatabase -> IO TlsDatabase
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TlsDatabase
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
Maybe TlsDatabase -> IO (Maybe TlsDatabase)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TlsDatabase
maybeResult
#if defined(ENABLE_OVERLOADING)
data ServerGetTlsDatabaseMethodInfo
instance (signature ~ (m (Maybe Gio.TlsDatabase.TlsDatabase)), MonadIO m, IsServer a) => O.OverloadedMethod ServerGetTlsDatabaseMethodInfo a signature where
overloadedMethod = serverGetTlsDatabase
instance O.OverloadedMethodInfo ServerGetTlsDatabaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverGetTlsDatabase",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverGetTlsDatabase"
})
#endif
foreign import ccall "soup_server_get_uris" soup_server_get_uris ::
Ptr Server ->
IO (Ptr (GSList (Ptr GLib.Uri.Uri)))
serverGetUris ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m [GLib.Uri.Uri]
serverGetUris :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m [Uri]
serverGetUris a
server = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr (GSList (Ptr Uri))
result <- Ptr Server -> IO (Ptr (GSList (Ptr Uri)))
soup_server_get_uris Ptr Server
server'
[Ptr Uri]
result' <- Ptr (GSList (Ptr Uri)) -> IO [Ptr Uri]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Uri))
result
[Uri]
result'' <- (Ptr Uri -> IO Uri) -> [Ptr Uri] -> IO [Uri]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Uri -> Uri) -> Ptr Uri -> IO Uri
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Uri -> Uri
GLib.Uri.Uri) [Ptr Uri]
result'
Ptr (GSList (Ptr Uri)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Uri))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
[Uri] -> IO [Uri]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Uri]
result''
#if defined(ENABLE_OVERLOADING)
data ServerGetUrisMethodInfo
instance (signature ~ (m [GLib.Uri.Uri]), MonadIO m, IsServer a) => O.OverloadedMethod ServerGetUrisMethodInfo a signature where
overloadedMethod = serverGetUris
instance O.OverloadedMethodInfo ServerGetUrisMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverGetUris",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverGetUris"
})
#endif
foreign import ccall "soup_server_is_https" soup_server_is_https ::
Ptr Server ->
IO CInt
serverIsHttps ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> m Bool
serverIsHttps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> m Bool
serverIsHttps a
server = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
CInt
result <- Ptr Server -> IO CInt
soup_server_is_https Ptr Server
server'
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
server
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ServerIsHttpsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsServer a) => O.OverloadedMethod ServerIsHttpsMethodInfo a signature where
overloadedMethod = serverIsHttps
instance O.OverloadedMethodInfo ServerIsHttpsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverIsHttps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverIsHttps"
})
#endif
foreign import ccall "soup_server_listen" soup_server_listen ::
Ptr Server ->
Ptr Gio.SocketAddress.SocketAddress ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
serverListen ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.SocketAddress.IsSocketAddress b) =>
a
-> b
-> [Soup.Flags.ServerListenOptions]
-> m ()
serverListen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsSocketAddress b) =>
a -> b -> [ServerListenOptions] -> m ()
serverListen a
server b
address [ServerListenOptions]
options = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr SocketAddress
address' <- b -> IO (Ptr SocketAddress)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
address
let options' :: CUInt
options' = [ServerListenOptions] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ServerListenOptions]
options
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Server
-> Ptr SocketAddress -> CUInt -> Ptr (Ptr GError) -> IO CInt
soup_server_listen Ptr Server
server' Ptr SocketAddress
address' CUInt
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
address
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ServerListenMethodInfo
instance (signature ~ (b -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a, Gio.SocketAddress.IsSocketAddress b) => O.OverloadedMethod ServerListenMethodInfo a signature where
overloadedMethod = serverListen
instance O.OverloadedMethodInfo ServerListenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverListen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverListen"
})
#endif
foreign import ccall "soup_server_listen_all" soup_server_listen_all ::
Ptr Server ->
Word32 ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
serverListenAll ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Word32
-> [Soup.Flags.ServerListenOptions]
-> m ()
serverListenAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> Word32 -> [ServerListenOptions] -> m ()
serverListenAll a
server Word32
port [ServerListenOptions]
options = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
let options' :: CUInt
options' = [ServerListenOptions] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ServerListenOptions]
options
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Server -> Word32 -> CUInt -> Ptr (Ptr GError) -> IO CInt
soup_server_listen_all Ptr Server
server' Word32
port CUInt
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ServerListenAllMethodInfo
instance (signature ~ (Word32 -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerListenAllMethodInfo a signature where
overloadedMethod = serverListenAll
instance O.OverloadedMethodInfo ServerListenAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverListenAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverListenAll"
})
#endif
foreign import ccall "soup_server_listen_local" soup_server_listen_local ::
Ptr Server ->
Word32 ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
serverListenLocal ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Word32
-> [Soup.Flags.ServerListenOptions]
-> m ()
serverListenLocal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> Word32 -> [ServerListenOptions] -> m ()
serverListenLocal a
server Word32
port [ServerListenOptions]
options = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
let options' :: CUInt
options' = [ServerListenOptions] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ServerListenOptions]
options
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Server -> Word32 -> CUInt -> Ptr (Ptr GError) -> IO CInt
soup_server_listen_local Ptr Server
server' Word32
port CUInt
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ServerListenLocalMethodInfo
instance (signature ~ (Word32 -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerListenLocalMethodInfo a signature where
overloadedMethod = serverListenLocal
instance O.OverloadedMethodInfo ServerListenLocalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverListenLocal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverListenLocal"
})
#endif
foreign import ccall "soup_server_listen_socket" soup_server_listen_socket ::
Ptr Server ->
Ptr Gio.Socket.Socket ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
serverListenSocket ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.Socket.IsSocket b) =>
a
-> b
-> [Soup.Flags.ServerListenOptions]
-> m ()
serverListenSocket :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsSocket b) =>
a -> b -> [ServerListenOptions] -> m ()
serverListenSocket a
server b
socket [ServerListenOptions]
options = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr Socket
socket' <- b -> IO (Ptr Socket)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
socket
let options' :: CUInt
options' = [ServerListenOptions] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ServerListenOptions]
options
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Server -> Ptr Socket -> CUInt -> Ptr (Ptr GError) -> IO CInt
soup_server_listen_socket Ptr Server
server' Ptr Socket
socket' CUInt
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
socket
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ServerListenSocketMethodInfo
instance (signature ~ (b -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a, Gio.Socket.IsSocket b) => O.OverloadedMethod ServerListenSocketMethodInfo a signature where
overloadedMethod = serverListenSocket
instance O.OverloadedMethodInfo ServerListenSocketMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverListenSocket",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverListenSocket"
})
#endif
foreign import ccall "soup_server_pause_message" soup_server_pause_message ::
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
IO ()
{-# DEPRECATED serverPauseMessage ["(Since version 3.2)","Use 'GI.Soup.Objects.ServerMessage.serverMessagePause' instead."] #-}
serverPauseMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.ServerMessage.IsServerMessage b) =>
a
-> b
-> m ()
serverPauseMessage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsServerMessage b) =>
a -> b -> m ()
serverPauseMessage a
server b
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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr ServerMessage
msg' <- b -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
Ptr Server -> Ptr ServerMessage -> IO ()
soup_server_pause_message Ptr Server
server' Ptr ServerMessage
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerPauseMessageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.ServerMessage.IsServerMessage b) => O.OverloadedMethod ServerPauseMessageMethodInfo a signature where
overloadedMethod = serverPauseMessage
instance O.OverloadedMethodInfo ServerPauseMessageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverPauseMessage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverPauseMessage"
})
#endif
foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain ::
Ptr Server ->
Ptr Soup.AuthDomain.AuthDomain ->
IO ()
serverRemoveAuthDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) =>
a
-> b
-> m ()
serverRemoveAuthDomain :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsAuthDomain b) =>
a -> b -> m ()
serverRemoveAuthDomain a
server b
authDomain = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr AuthDomain
authDomain' <- b -> IO (Ptr AuthDomain)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
authDomain
Ptr Server -> Ptr AuthDomain -> IO ()
soup_server_remove_auth_domain Ptr Server
server' Ptr AuthDomain
authDomain'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
authDomain
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerRemoveAuthDomainMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) => O.OverloadedMethod ServerRemoveAuthDomainMethodInfo a signature where
overloadedMethod = serverRemoveAuthDomain
instance O.OverloadedMethodInfo ServerRemoveAuthDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverRemoveAuthDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverRemoveAuthDomain"
})
#endif
foreign import ccall "soup_server_remove_handler" soup_server_remove_handler ::
Ptr Server ->
CString ->
IO ()
serverRemoveHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> T.Text
-> m ()
serverRemoveHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> Text -> m ()
serverRemoveHandler a
server Text
path = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr CChar
path' <- Text -> IO (Ptr CChar)
textToCString Text
path
Ptr Server -> Ptr CChar -> IO ()
soup_server_remove_handler Ptr Server
server' Ptr CChar
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
path'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerRemoveHandlerMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerRemoveHandlerMethodInfo a signature where
overloadedMethod = serverRemoveHandler
instance O.OverloadedMethodInfo ServerRemoveHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverRemoveHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverRemoveHandler"
})
#endif
foreign import ccall "soup_server_remove_websocket_extension" soup_server_remove_websocket_extension ::
Ptr Server ->
CGType ->
IO ()
serverRemoveWebsocketExtension ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> GType
-> m ()
serverRemoveWebsocketExtension :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> GType -> m ()
serverRemoveWebsocketExtension a
server GType
extensionType = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
let extensionType' :: CGType
extensionType' = GType -> CGType
gtypeToCGType GType
extensionType
Ptr Server -> CGType -> IO ()
soup_server_remove_websocket_extension Ptr Server
server' CGType
extensionType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerRemoveWebsocketExtensionMethodInfo
instance (signature ~ (GType -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerRemoveWebsocketExtensionMethodInfo a signature where
overloadedMethod = serverRemoveWebsocketExtension
instance O.OverloadedMethodInfo ServerRemoveWebsocketExtensionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverRemoveWebsocketExtension",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverRemoveWebsocketExtension"
})
#endif
foreign import ccall "soup_server_set_tls_auth_mode" soup_server_set_tls_auth_mode ::
Ptr Server ->
CUInt ->
IO ()
serverSetTlsAuthMode ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a) =>
a
-> Gio.Enums.TlsAuthenticationMode
-> m ()
serverSetTlsAuthMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsServer a) =>
a -> TlsAuthenticationMode -> m ()
serverSetTlsAuthMode a
server TlsAuthenticationMode
mode = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TlsAuthenticationMode -> Int) -> TlsAuthenticationMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TlsAuthenticationMode -> Int
forall a. Enum a => a -> Int
fromEnum) TlsAuthenticationMode
mode
Ptr Server -> CUInt -> IO ()
soup_server_set_tls_auth_mode Ptr Server
server' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerSetTlsAuthModeMethodInfo
instance (signature ~ (Gio.Enums.TlsAuthenticationMode -> m ()), MonadIO m, IsServer a) => O.OverloadedMethod ServerSetTlsAuthModeMethodInfo a signature where
overloadedMethod = serverSetTlsAuthMode
instance O.OverloadedMethodInfo ServerSetTlsAuthModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverSetTlsAuthMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverSetTlsAuthMode"
})
#endif
foreign import ccall "soup_server_set_tls_certificate" soup_server_set_tls_certificate ::
Ptr Server ->
Ptr Gio.TlsCertificate.TlsCertificate ->
IO ()
serverSetTlsCertificate ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.TlsCertificate.IsTlsCertificate b) =>
a
-> b
-> m ()
serverSetTlsCertificate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsTlsCertificate b) =>
a -> b -> m ()
serverSetTlsCertificate a
server b
certificate = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr TlsCertificate
certificate' <- b -> IO (Ptr TlsCertificate)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
certificate
Ptr Server -> Ptr TlsCertificate -> IO ()
soup_server_set_tls_certificate Ptr Server
server' Ptr TlsCertificate
certificate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
certificate
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerSetTlsCertificateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Gio.TlsCertificate.IsTlsCertificate b) => O.OverloadedMethod ServerSetTlsCertificateMethodInfo a signature where
overloadedMethod = serverSetTlsCertificate
instance O.OverloadedMethodInfo ServerSetTlsCertificateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverSetTlsCertificate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverSetTlsCertificate"
})
#endif
foreign import ccall "soup_server_set_tls_database" soup_server_set_tls_database ::
Ptr Server ->
Ptr Gio.TlsDatabase.TlsDatabase ->
IO ()
serverSetTlsDatabase ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.TlsDatabase.IsTlsDatabase b) =>
a
-> b
-> m ()
serverSetTlsDatabase :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsTlsDatabase b) =>
a -> b -> m ()
serverSetTlsDatabase a
server b
tlsDatabase = 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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr TlsDatabase
tlsDatabase' <- b -> IO (Ptr TlsDatabase)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tlsDatabase
Ptr Server -> Ptr TlsDatabase -> IO ()
soup_server_set_tls_database Ptr Server
server' Ptr TlsDatabase
tlsDatabase'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tlsDatabase
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerSetTlsDatabaseMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Gio.TlsDatabase.IsTlsDatabase b) => O.OverloadedMethod ServerSetTlsDatabaseMethodInfo a signature where
overloadedMethod = serverSetTlsDatabase
instance O.OverloadedMethodInfo ServerSetTlsDatabaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverSetTlsDatabase",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverSetTlsDatabase"
})
#endif
foreign import ccall "soup_server_unpause_message" soup_server_unpause_message ::
Ptr Server ->
Ptr Soup.ServerMessage.ServerMessage ->
IO ()
{-# DEPRECATED serverUnpauseMessage ["(Since version 3.2)","Use 'GI.Soup.Objects.ServerMessage.serverMessageUnpause' instead."] #-}
serverUnpauseMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.ServerMessage.IsServerMessage b) =>
a
-> b
-> m ()
serverUnpauseMessage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsServer a, IsServerMessage b) =>
a -> b -> m ()
serverUnpauseMessage a
server b
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 Server
server' <- a -> IO (Ptr Server)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
server
Ptr ServerMessage
msg' <- b -> IO (Ptr ServerMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
msg
Ptr Server -> Ptr ServerMessage -> IO ()
soup_server_unpause_message Ptr Server
server' Ptr ServerMessage
msg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
server
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
msg
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ServerUnpauseMessageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.ServerMessage.IsServerMessage b) => O.OverloadedMethod ServerUnpauseMessageMethodInfo a signature where
overloadedMethod = serverUnpauseMessage
instance O.OverloadedMethodInfo ServerUnpauseMessageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Objects.Server.serverUnpauseMessage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Objects-Server.html#v:serverUnpauseMessage"
})
#endif