#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Soup.Objects.WebsocketConnection
(
WebsocketConnection(..) ,
IsWebsocketConnection ,
toWebsocketConnection ,
noWebsocketConnection ,
#if ENABLE_OVERLOADING
WebsocketConnectionCloseMethodInfo ,
#endif
websocketConnectionClose ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetCloseCodeMethodInfo,
#endif
websocketConnectionGetCloseCode ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetCloseDataMethodInfo,
#endif
websocketConnectionGetCloseData ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetConnectionTypeMethodInfo,
#endif
websocketConnectionGetConnectionType ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetIoStreamMethodInfo,
#endif
websocketConnectionGetIoStream ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetKeepaliveIntervalMethodInfo,
#endif
websocketConnectionGetKeepaliveInterval ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo,
#endif
websocketConnectionGetMaxIncomingPayloadSize,
#if ENABLE_OVERLOADING
WebsocketConnectionGetOriginMethodInfo ,
#endif
websocketConnectionGetOrigin ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetProtocolMethodInfo,
#endif
websocketConnectionGetProtocol ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetStateMethodInfo ,
#endif
websocketConnectionGetState ,
#if ENABLE_OVERLOADING
WebsocketConnectionGetUriMethodInfo ,
#endif
websocketConnectionGetUri ,
websocketConnectionNew ,
#if ENABLE_OVERLOADING
WebsocketConnectionSendBinaryMethodInfo ,
#endif
websocketConnectionSendBinary ,
#if ENABLE_OVERLOADING
WebsocketConnectionSendTextMethodInfo ,
#endif
websocketConnectionSendText ,
#if ENABLE_OVERLOADING
WebsocketConnectionSetKeepaliveIntervalMethodInfo,
#endif
websocketConnectionSetKeepaliveInterval ,
#if ENABLE_OVERLOADING
WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo,
#endif
websocketConnectionSetMaxIncomingPayloadSize,
#if ENABLE_OVERLOADING
WebsocketConnectionConnectionTypePropertyInfo,
#endif
constructWebsocketConnectionConnectionType,
getWebsocketConnectionConnectionType ,
#if ENABLE_OVERLOADING
websocketConnectionConnectionType ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionIoStreamPropertyInfo ,
#endif
constructWebsocketConnectionIoStream ,
getWebsocketConnectionIoStream ,
#if ENABLE_OVERLOADING
websocketConnectionIoStream ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionKeepaliveIntervalPropertyInfo,
#endif
constructWebsocketConnectionKeepaliveInterval,
getWebsocketConnectionKeepaliveInterval ,
setWebsocketConnectionKeepaliveInterval ,
#if ENABLE_OVERLOADING
websocketConnectionKeepaliveInterval ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionMaxIncomingPayloadSizePropertyInfo,
#endif
constructWebsocketConnectionMaxIncomingPayloadSize,
getWebsocketConnectionMaxIncomingPayloadSize,
setWebsocketConnectionMaxIncomingPayloadSize,
#if ENABLE_OVERLOADING
websocketConnectionMaxIncomingPayloadSize,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionOriginPropertyInfo ,
#endif
constructWebsocketConnectionOrigin ,
getWebsocketConnectionOrigin ,
#if ENABLE_OVERLOADING
websocketConnectionOrigin ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionProtocolPropertyInfo ,
#endif
constructWebsocketConnectionProtocol ,
getWebsocketConnectionProtocol ,
#if ENABLE_OVERLOADING
websocketConnectionProtocol ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionStatePropertyInfo ,
#endif
getWebsocketConnectionState ,
#if ENABLE_OVERLOADING
websocketConnectionState ,
#endif
#if ENABLE_OVERLOADING
WebsocketConnectionUriPropertyInfo ,
#endif
constructWebsocketConnectionUri ,
getWebsocketConnectionUri ,
#if ENABLE_OVERLOADING
websocketConnectionUri ,
#endif
C_WebsocketConnectionClosedCallback ,
WebsocketConnectionClosedCallback ,
#if ENABLE_OVERLOADING
WebsocketConnectionClosedSignalInfo ,
#endif
afterWebsocketConnectionClosed ,
genClosure_WebsocketConnectionClosed ,
mk_WebsocketConnectionClosedCallback ,
noWebsocketConnectionClosedCallback ,
onWebsocketConnectionClosed ,
wrap_WebsocketConnectionClosedCallback ,
C_WebsocketConnectionClosingCallback ,
WebsocketConnectionClosingCallback ,
#if ENABLE_OVERLOADING
WebsocketConnectionClosingSignalInfo ,
#endif
afterWebsocketConnectionClosing ,
genClosure_WebsocketConnectionClosing ,
mk_WebsocketConnectionClosingCallback ,
noWebsocketConnectionClosingCallback ,
onWebsocketConnectionClosing ,
wrap_WebsocketConnectionClosingCallback ,
C_WebsocketConnectionErrorCallback ,
WebsocketConnectionErrorCallback ,
#if ENABLE_OVERLOADING
WebsocketConnectionErrorSignalInfo ,
#endif
afterWebsocketConnectionError ,
genClosure_WebsocketConnectionError ,
mk_WebsocketConnectionErrorCallback ,
noWebsocketConnectionErrorCallback ,
onWebsocketConnectionError ,
wrap_WebsocketConnectionErrorCallback ,
C_WebsocketConnectionMessageCallback ,
WebsocketConnectionMessageCallback ,
#if ENABLE_OVERLOADING
WebsocketConnectionMessageSignalInfo ,
#endif
afterWebsocketConnectionMessage ,
genClosure_WebsocketConnectionMessage ,
mk_WebsocketConnectionMessageCallback ,
noWebsocketConnectionMessageCallback ,
onWebsocketConnectionMessage ,
wrap_WebsocketConnectionMessageCallback ,
C_WebsocketConnectionPongCallback ,
WebsocketConnectionPongCallback ,
#if ENABLE_OVERLOADING
WebsocketConnectionPongSignalInfo ,
#endif
afterWebsocketConnectionPong ,
genClosure_WebsocketConnectionPong ,
mk_WebsocketConnectionPongCallback ,
noWebsocketConnectionPongCallback ,
onWebsocketConnectionPong ,
wrap_WebsocketConnectionPongCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Objects.IOStream as Gio.IOStream
import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums
import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI
newtype WebsocketConnection = WebsocketConnection (ManagedPtr WebsocketConnection)
foreign import ccall "soup_websocket_connection_get_type"
c_soup_websocket_connection_get_type :: IO GType
instance GObject WebsocketConnection where
gobjectType = c_soup_websocket_connection_get_type
class (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o
instance (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o
instance O.HasParentTypes WebsocketConnection
type instance O.ParentTypes WebsocketConnection = '[GObject.Object.Object]
toWebsocketConnection :: (MonadIO m, IsWebsocketConnection o) => o -> m WebsocketConnection
toWebsocketConnection = liftIO . unsafeCastTo WebsocketConnection
noWebsocketConnection :: Maybe WebsocketConnection
noWebsocketConnection = Nothing
#if ENABLE_OVERLOADING
type family ResolveWebsocketConnectionMethod (t :: Symbol) (o :: *) :: * where
ResolveWebsocketConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebsocketConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebsocketConnectionMethod "close" o = WebsocketConnectionCloseMethodInfo
ResolveWebsocketConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebsocketConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebsocketConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebsocketConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebsocketConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebsocketConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebsocketConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebsocketConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebsocketConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebsocketConnectionMethod "sendBinary" o = WebsocketConnectionSendBinaryMethodInfo
ResolveWebsocketConnectionMethod "sendText" o = WebsocketConnectionSendTextMethodInfo
ResolveWebsocketConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebsocketConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebsocketConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebsocketConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebsocketConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebsocketConnectionMethod "getCloseCode" o = WebsocketConnectionGetCloseCodeMethodInfo
ResolveWebsocketConnectionMethod "getCloseData" o = WebsocketConnectionGetCloseDataMethodInfo
ResolveWebsocketConnectionMethod "getConnectionType" o = WebsocketConnectionGetConnectionTypeMethodInfo
ResolveWebsocketConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebsocketConnectionMethod "getIoStream" o = WebsocketConnectionGetIoStreamMethodInfo
ResolveWebsocketConnectionMethod "getKeepaliveInterval" o = WebsocketConnectionGetKeepaliveIntervalMethodInfo
ResolveWebsocketConnectionMethod "getMaxIncomingPayloadSize" o = WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo
ResolveWebsocketConnectionMethod "getOrigin" o = WebsocketConnectionGetOriginMethodInfo
ResolveWebsocketConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebsocketConnectionMethod "getProtocol" o = WebsocketConnectionGetProtocolMethodInfo
ResolveWebsocketConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebsocketConnectionMethod "getState" o = WebsocketConnectionGetStateMethodInfo
ResolveWebsocketConnectionMethod "getUri" o = WebsocketConnectionGetUriMethodInfo
ResolveWebsocketConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebsocketConnectionMethod "setKeepaliveInterval" o = WebsocketConnectionSetKeepaliveIntervalMethodInfo
ResolveWebsocketConnectionMethod "setMaxIncomingPayloadSize" o = WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo
ResolveWebsocketConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebsocketConnectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, O.MethodInfo info WebsocketConnection p) => OL.IsLabel t (WebsocketConnection -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type WebsocketConnectionClosedCallback =
IO ()
noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback
noWebsocketConnectionClosedCallback = Nothing
type C_WebsocketConnectionClosedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebsocketConnectionClosedCallback :: C_WebsocketConnectionClosedCallback -> IO (FunPtr C_WebsocketConnectionClosedCallback)
genClosure_WebsocketConnectionClosed :: MonadIO m => WebsocketConnectionClosedCallback -> m (GClosure C_WebsocketConnectionClosedCallback)
genClosure_WebsocketConnectionClosed cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosedCallback cb
mk_WebsocketConnectionClosedCallback cb' >>= B.GClosure.newGClosure
wrap_WebsocketConnectionClosedCallback ::
WebsocketConnectionClosedCallback ->
C_WebsocketConnectionClosedCallback
wrap_WebsocketConnectionClosedCallback _cb _ _ = do
_cb
onWebsocketConnectionClosed :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId
onWebsocketConnectionClosed obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosedCallback cb
cb'' <- mk_WebsocketConnectionClosedCallback cb'
connectSignalFunPtr obj "closed" cb'' SignalConnectBefore
afterWebsocketConnectionClosed :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId
afterWebsocketConnectionClosed obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosedCallback cb
cb'' <- mk_WebsocketConnectionClosedCallback cb'
connectSignalFunPtr obj "closed" cb'' SignalConnectAfter
type WebsocketConnectionClosingCallback =
IO ()
noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback
noWebsocketConnectionClosingCallback = Nothing
type C_WebsocketConnectionClosingCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebsocketConnectionClosingCallback :: C_WebsocketConnectionClosingCallback -> IO (FunPtr C_WebsocketConnectionClosingCallback)
genClosure_WebsocketConnectionClosing :: MonadIO m => WebsocketConnectionClosingCallback -> m (GClosure C_WebsocketConnectionClosingCallback)
genClosure_WebsocketConnectionClosing cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosingCallback cb
mk_WebsocketConnectionClosingCallback cb' >>= B.GClosure.newGClosure
wrap_WebsocketConnectionClosingCallback ::
WebsocketConnectionClosingCallback ->
C_WebsocketConnectionClosingCallback
wrap_WebsocketConnectionClosingCallback _cb _ _ = do
_cb
onWebsocketConnectionClosing :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId
onWebsocketConnectionClosing obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosingCallback cb
cb'' <- mk_WebsocketConnectionClosingCallback cb'
connectSignalFunPtr obj "closing" cb'' SignalConnectBefore
afterWebsocketConnectionClosing :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId
afterWebsocketConnectionClosing obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionClosingCallback cb
cb'' <- mk_WebsocketConnectionClosingCallback cb'
connectSignalFunPtr obj "closing" cb'' SignalConnectAfter
type WebsocketConnectionErrorCallback =
GError
-> IO ()
noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback
noWebsocketConnectionErrorCallback = Nothing
type C_WebsocketConnectionErrorCallback =
Ptr () ->
Ptr GError ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebsocketConnectionErrorCallback :: C_WebsocketConnectionErrorCallback -> IO (FunPtr C_WebsocketConnectionErrorCallback)
genClosure_WebsocketConnectionError :: MonadIO m => WebsocketConnectionErrorCallback -> m (GClosure C_WebsocketConnectionErrorCallback)
genClosure_WebsocketConnectionError cb = liftIO $ do
let cb' = wrap_WebsocketConnectionErrorCallback cb
mk_WebsocketConnectionErrorCallback cb' >>= B.GClosure.newGClosure
wrap_WebsocketConnectionErrorCallback ::
WebsocketConnectionErrorCallback ->
C_WebsocketConnectionErrorCallback
wrap_WebsocketConnectionErrorCallback _cb _ error_ _ = do
error_' <- (newBoxed GError) error_
_cb error_'
onWebsocketConnectionError :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId
onWebsocketConnectionError obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionErrorCallback cb
cb'' <- mk_WebsocketConnectionErrorCallback cb'
connectSignalFunPtr obj "error" cb'' SignalConnectBefore
afterWebsocketConnectionError :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId
afterWebsocketConnectionError obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionErrorCallback cb
cb'' <- mk_WebsocketConnectionErrorCallback cb'
connectSignalFunPtr obj "error" cb'' SignalConnectAfter
type WebsocketConnectionMessageCallback =
Int32
-> GLib.Bytes.Bytes
-> IO ()
noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback
noWebsocketConnectionMessageCallback = Nothing
type C_WebsocketConnectionMessageCallback =
Ptr () ->
Int32 ->
Ptr GLib.Bytes.Bytes ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebsocketConnectionMessageCallback :: C_WebsocketConnectionMessageCallback -> IO (FunPtr C_WebsocketConnectionMessageCallback)
genClosure_WebsocketConnectionMessage :: MonadIO m => WebsocketConnectionMessageCallback -> m (GClosure C_WebsocketConnectionMessageCallback)
genClosure_WebsocketConnectionMessage cb = liftIO $ do
let cb' = wrap_WebsocketConnectionMessageCallback cb
mk_WebsocketConnectionMessageCallback cb' >>= B.GClosure.newGClosure
wrap_WebsocketConnectionMessageCallback ::
WebsocketConnectionMessageCallback ->
C_WebsocketConnectionMessageCallback
wrap_WebsocketConnectionMessageCallback _cb _ type_ message _ = do
B.ManagedPtr.withTransient GLib.Bytes.Bytes message $ \message' -> do
_cb type_ message'
onWebsocketConnectionMessage :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId
onWebsocketConnectionMessage obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionMessageCallback cb
cb'' <- mk_WebsocketConnectionMessageCallback cb'
connectSignalFunPtr obj "message" cb'' SignalConnectBefore
afterWebsocketConnectionMessage :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId
afterWebsocketConnectionMessage obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionMessageCallback cb
cb'' <- mk_WebsocketConnectionMessageCallback cb'
connectSignalFunPtr obj "message" cb'' SignalConnectAfter
type WebsocketConnectionPongCallback =
GLib.Bytes.Bytes
-> IO ()
noWebsocketConnectionPongCallback :: Maybe WebsocketConnectionPongCallback
noWebsocketConnectionPongCallback = Nothing
type C_WebsocketConnectionPongCallback =
Ptr () ->
Ptr GLib.Bytes.Bytes ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebsocketConnectionPongCallback :: C_WebsocketConnectionPongCallback -> IO (FunPtr C_WebsocketConnectionPongCallback)
genClosure_WebsocketConnectionPong :: MonadIO m => WebsocketConnectionPongCallback -> m (GClosure C_WebsocketConnectionPongCallback)
genClosure_WebsocketConnectionPong cb = liftIO $ do
let cb' = wrap_WebsocketConnectionPongCallback cb
mk_WebsocketConnectionPongCallback cb' >>= B.GClosure.newGClosure
wrap_WebsocketConnectionPongCallback ::
WebsocketConnectionPongCallback ->
C_WebsocketConnectionPongCallback
wrap_WebsocketConnectionPongCallback _cb _ message _ = do
B.ManagedPtr.withTransient GLib.Bytes.Bytes message $ \message' -> do
_cb message'
onWebsocketConnectionPong :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionPongCallback -> m SignalHandlerId
onWebsocketConnectionPong obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionPongCallback cb
cb'' <- mk_WebsocketConnectionPongCallback cb'
connectSignalFunPtr obj "pong" cb'' SignalConnectBefore
afterWebsocketConnectionPong :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionPongCallback -> m SignalHandlerId
afterWebsocketConnectionPong obj cb = liftIO $ do
let cb' = wrap_WebsocketConnectionPongCallback cb
cb'' <- mk_WebsocketConnectionPongCallback cb'
connectSignalFunPtr obj "pong" cb'' SignalConnectAfter
getWebsocketConnectionConnectionType :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.Enums.WebsocketConnectionType
getWebsocketConnectionConnectionType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "connection-type"
constructWebsocketConnectionConnectionType :: (IsWebsocketConnection o) => Soup.Enums.WebsocketConnectionType -> IO (GValueConstruct o)
constructWebsocketConnectionConnectionType val = B.Properties.constructObjectPropertyEnum "connection-type" val
#if ENABLE_OVERLOADING
data WebsocketConnectionConnectionTypePropertyInfo
instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where
type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) Soup.Enums.WebsocketConnectionType
type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = Soup.Enums.WebsocketConnectionType
type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "connection-type"
type AttrOrigin WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionConnectionType
attrSet _ = undefined
attrConstruct _ = constructWebsocketConnectionConnectionType
attrClear _ = undefined
#endif
getWebsocketConnectionIoStream :: (MonadIO m, IsWebsocketConnection o) => o -> m Gio.IOStream.IOStream
getWebsocketConnectionIoStream obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionIoStream" $ B.Properties.getObjectPropertyObject obj "io-stream" Gio.IOStream.IOStream
constructWebsocketConnectionIoStream :: (IsWebsocketConnection o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)
constructWebsocketConnectionIoStream val = B.Properties.constructObjectPropertyObject "io-stream" (Just val)
#if ENABLE_OVERLOADING
data WebsocketConnectionIoStreamPropertyInfo
instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where
type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream.IsIOStream
type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream.IOStream
type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "io-stream"
type AttrOrigin WebsocketConnectionIoStreamPropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionIoStream
attrSet _ = undefined
attrConstruct _ = constructWebsocketConnectionIoStream
attrClear _ = undefined
#endif
getWebsocketConnectionKeepaliveInterval :: (MonadIO m, IsWebsocketConnection o) => o -> m Word32
getWebsocketConnectionKeepaliveInterval obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "keepalive-interval"
setWebsocketConnectionKeepaliveInterval :: (MonadIO m, IsWebsocketConnection o) => o -> Word32 -> m ()
setWebsocketConnectionKeepaliveInterval obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "keepalive-interval" val
constructWebsocketConnectionKeepaliveInterval :: (IsWebsocketConnection o) => Word32 -> IO (GValueConstruct o)
constructWebsocketConnectionKeepaliveInterval val = B.Properties.constructObjectPropertyUInt32 "keepalive-interval" val
#if ENABLE_OVERLOADING
data WebsocketConnectionKeepaliveIntervalPropertyInfo
instance AttrInfo WebsocketConnectionKeepaliveIntervalPropertyInfo where
type AttrAllowedOps WebsocketConnectionKeepaliveIntervalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebsocketConnectionKeepaliveIntervalPropertyInfo = (~) Word32
type AttrBaseTypeConstraint WebsocketConnectionKeepaliveIntervalPropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionKeepaliveIntervalPropertyInfo = Word32
type AttrLabel WebsocketConnectionKeepaliveIntervalPropertyInfo = "keepalive-interval"
type AttrOrigin WebsocketConnectionKeepaliveIntervalPropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionKeepaliveInterval
attrSet _ = setWebsocketConnectionKeepaliveInterval
attrConstruct _ = constructWebsocketConnectionKeepaliveInterval
attrClear _ = undefined
#endif
getWebsocketConnectionMaxIncomingPayloadSize :: (MonadIO m, IsWebsocketConnection o) => o -> m Word64
getWebsocketConnectionMaxIncomingPayloadSize obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "max-incoming-payload-size"
setWebsocketConnectionMaxIncomingPayloadSize :: (MonadIO m, IsWebsocketConnection o) => o -> Word64 -> m ()
setWebsocketConnectionMaxIncomingPayloadSize obj val = liftIO $ B.Properties.setObjectPropertyUInt64 obj "max-incoming-payload-size" val
constructWebsocketConnectionMaxIncomingPayloadSize :: (IsWebsocketConnection o) => Word64 -> IO (GValueConstruct o)
constructWebsocketConnectionMaxIncomingPayloadSize val = B.Properties.constructObjectPropertyUInt64 "max-incoming-payload-size" val
#if ENABLE_OVERLOADING
data WebsocketConnectionMaxIncomingPayloadSizePropertyInfo
instance AttrInfo WebsocketConnectionMaxIncomingPayloadSizePropertyInfo where
type AttrAllowedOps WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = (~) Word64
type AttrBaseTypeConstraint WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = Word64
type AttrLabel WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = "max-incoming-payload-size"
type AttrOrigin WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionMaxIncomingPayloadSize
attrSet _ = setWebsocketConnectionMaxIncomingPayloadSize
attrConstruct _ = constructWebsocketConnectionMaxIncomingPayloadSize
attrClear _ = undefined
#endif
getWebsocketConnectionOrigin :: (MonadIO m, IsWebsocketConnection o) => o -> m (Maybe T.Text)
getWebsocketConnectionOrigin obj = liftIO $ B.Properties.getObjectPropertyString obj "origin"
constructWebsocketConnectionOrigin :: (IsWebsocketConnection o) => T.Text -> IO (GValueConstruct o)
constructWebsocketConnectionOrigin val = B.Properties.constructObjectPropertyString "origin" (Just val)
#if ENABLE_OVERLOADING
data WebsocketConnectionOriginPropertyInfo
instance AttrInfo WebsocketConnectionOriginPropertyInfo where
type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionOriginPropertyInfo = (Maybe T.Text)
type AttrLabel WebsocketConnectionOriginPropertyInfo = "origin"
type AttrOrigin WebsocketConnectionOriginPropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionOrigin
attrSet _ = undefined
attrConstruct _ = constructWebsocketConnectionOrigin
attrClear _ = undefined
#endif
getWebsocketConnectionProtocol :: (MonadIO m, IsWebsocketConnection o) => o -> m (Maybe T.Text)
getWebsocketConnectionProtocol obj = liftIO $ B.Properties.getObjectPropertyString obj "protocol"
constructWebsocketConnectionProtocol :: (IsWebsocketConnection o) => T.Text -> IO (GValueConstruct o)
constructWebsocketConnectionProtocol val = B.Properties.constructObjectPropertyString "protocol" (Just val)
#if ENABLE_OVERLOADING
data WebsocketConnectionProtocolPropertyInfo
instance AttrInfo WebsocketConnectionProtocolPropertyInfo where
type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionProtocolPropertyInfo = (Maybe T.Text)
type AttrLabel WebsocketConnectionProtocolPropertyInfo = "protocol"
type AttrOrigin WebsocketConnectionProtocolPropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionProtocol
attrSet _ = undefined
attrConstruct _ = constructWebsocketConnectionProtocol
attrClear _ = undefined
#endif
getWebsocketConnectionState :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.Enums.WebsocketState
getWebsocketConnectionState obj = liftIO $ B.Properties.getObjectPropertyEnum obj "state"
#if ENABLE_OVERLOADING
data WebsocketConnectionStatePropertyInfo
instance AttrInfo WebsocketConnectionStatePropertyInfo where
type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionStatePropertyInfo = Soup.Enums.WebsocketState
type AttrLabel WebsocketConnectionStatePropertyInfo = "state"
type AttrOrigin WebsocketConnectionStatePropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionState
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getWebsocketConnectionUri :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.URI.URI
getWebsocketConnectionUri obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionUri" $ B.Properties.getObjectPropertyBoxed obj "uri" Soup.URI.URI
constructWebsocketConnectionUri :: (IsWebsocketConnection o) => Soup.URI.URI -> IO (GValueConstruct o)
constructWebsocketConnectionUri val = B.Properties.constructObjectPropertyBoxed "uri" (Just val)
#if ENABLE_OVERLOADING
data WebsocketConnectionUriPropertyInfo
instance AttrInfo WebsocketConnectionUriPropertyInfo where
type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) Soup.URI.URI
type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = IsWebsocketConnection
type AttrGetType WebsocketConnectionUriPropertyInfo = Soup.URI.URI
type AttrLabel WebsocketConnectionUriPropertyInfo = "uri"
type AttrOrigin WebsocketConnectionUriPropertyInfo = WebsocketConnection
attrGet _ = getWebsocketConnectionUri
attrSet _ = undefined
attrConstruct _ = constructWebsocketConnectionUri
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList WebsocketConnection
type instance O.AttributeList WebsocketConnection = WebsocketConnectionAttributeList
type WebsocketConnectionAttributeList = ('[ '("connectionType", WebsocketConnectionConnectionTypePropertyInfo), '("ioStream", WebsocketConnectionIoStreamPropertyInfo), '("keepaliveInterval", WebsocketConnectionKeepaliveIntervalPropertyInfo), '("maxIncomingPayloadSize", WebsocketConnectionMaxIncomingPayloadSizePropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
websocketConnectionConnectionType :: AttrLabelProxy "connectionType"
websocketConnectionConnectionType = AttrLabelProxy
websocketConnectionIoStream :: AttrLabelProxy "ioStream"
websocketConnectionIoStream = AttrLabelProxy
websocketConnectionKeepaliveInterval :: AttrLabelProxy "keepaliveInterval"
websocketConnectionKeepaliveInterval = AttrLabelProxy
websocketConnectionMaxIncomingPayloadSize :: AttrLabelProxy "maxIncomingPayloadSize"
websocketConnectionMaxIncomingPayloadSize = AttrLabelProxy
websocketConnectionOrigin :: AttrLabelProxy "origin"
websocketConnectionOrigin = AttrLabelProxy
websocketConnectionProtocol :: AttrLabelProxy "protocol"
websocketConnectionProtocol = AttrLabelProxy
websocketConnectionState :: AttrLabelProxy "state"
websocketConnectionState = AttrLabelProxy
websocketConnectionUri :: AttrLabelProxy "uri"
websocketConnectionUri = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data WebsocketConnectionClosedSignalInfo
instance SignalInfo WebsocketConnectionClosedSignalInfo where
type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebsocketConnectionClosedCallback cb
cb'' <- mk_WebsocketConnectionClosedCallback cb'
connectSignalFunPtr obj "closed" cb'' connectMode
data WebsocketConnectionClosingSignalInfo
instance SignalInfo WebsocketConnectionClosingSignalInfo where
type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebsocketConnectionClosingCallback cb
cb'' <- mk_WebsocketConnectionClosingCallback cb'
connectSignalFunPtr obj "closing" cb'' connectMode
data WebsocketConnectionErrorSignalInfo
instance SignalInfo WebsocketConnectionErrorSignalInfo where
type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebsocketConnectionErrorCallback cb
cb'' <- mk_WebsocketConnectionErrorCallback cb'
connectSignalFunPtr obj "error" cb'' connectMode
data WebsocketConnectionMessageSignalInfo
instance SignalInfo WebsocketConnectionMessageSignalInfo where
type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebsocketConnectionMessageCallback cb
cb'' <- mk_WebsocketConnectionMessageCallback cb'
connectSignalFunPtr obj "message" cb'' connectMode
data WebsocketConnectionPongSignalInfo
instance SignalInfo WebsocketConnectionPongSignalInfo where
type HaskellCallbackType WebsocketConnectionPongSignalInfo = WebsocketConnectionPongCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebsocketConnectionPongCallback cb
cb'' <- mk_WebsocketConnectionPongCallback cb'
connectSignalFunPtr obj "pong" cb'' connectMode
type instance O.SignalList WebsocketConnection = WebsocketConnectionSignalList
type WebsocketConnectionSignalList = ('[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pong", WebsocketConnectionPongSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new ::
Ptr Gio.IOStream.IOStream ->
Ptr Soup.URI.URI ->
CUInt ->
CString ->
CString ->
IO (Ptr WebsocketConnection)
websocketConnectionNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a) =>
a
-> Soup.URI.URI
-> Soup.Enums.WebsocketConnectionType
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m WebsocketConnection
websocketConnectionNew stream uri type_ origin protocol = liftIO $ do
stream' <- unsafeManagedPtrCastPtr stream
uri' <- unsafeManagedPtrGetPtr uri
let type_' = (fromIntegral . fromEnum) type_
maybeOrigin <- case origin of
Nothing -> return nullPtr
Just jOrigin -> do
jOrigin' <- textToCString jOrigin
return jOrigin'
maybeProtocol <- case protocol of
Nothing -> return nullPtr
Just jProtocol -> do
jProtocol' <- textToCString jProtocol
return jProtocol'
result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol
checkUnexpectedReturnNULL "websocketConnectionNew" result
result' <- (wrapObject WebsocketConnection) result
touchManagedPtr stream
touchManagedPtr uri
freeMem maybeOrigin
freeMem maybeProtocol
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "soup_websocket_connection_close" soup_websocket_connection_close ::
Ptr WebsocketConnection ->
Word16 ->
CString ->
IO ()
websocketConnectionClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> Word16
-> Maybe (T.Text)
-> m ()
websocketConnectionClose self code data_ = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
maybeData_ <- case data_ of
Nothing -> return nullPtr
Just jData_ -> do
jData_' <- textToCString jData_
return jData_'
soup_websocket_connection_close self' code maybeData_
touchManagedPtr self
freeMem maybeData_
return ()
#if ENABLE_OVERLOADING
data WebsocketConnectionCloseMethodInfo
instance (signature ~ (Word16 -> Maybe (T.Text) -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionCloseMethodInfo a signature where
overloadedMethod _ = websocketConnectionClose
#endif
foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code ::
Ptr WebsocketConnection ->
IO Word16
websocketConnectionGetCloseCode ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Word16
websocketConnectionGetCloseCode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_close_code self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data WebsocketConnectionGetCloseCodeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetCloseCodeMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetCloseCode
#endif
foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data ::
Ptr WebsocketConnection ->
IO CString
websocketConnectionGetCloseData ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m T.Text
websocketConnectionGetCloseData self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_close_data self'
checkUnexpectedReturnNULL "websocketConnectionGetCloseData" result
result' <- cstringToText result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data WebsocketConnectionGetCloseDataMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetCloseDataMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetCloseData
#endif
foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type ::
Ptr WebsocketConnection ->
IO CUInt
websocketConnectionGetConnectionType ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Soup.Enums.WebsocketConnectionType
websocketConnectionGetConnectionType self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_connection_type self'
let result' = (toEnum . fromIntegral) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data WebsocketConnectionGetConnectionTypeMethodInfo
instance (signature ~ (m Soup.Enums.WebsocketConnectionType), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetConnectionTypeMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetConnectionType
#endif
foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream ::
Ptr WebsocketConnection ->
IO (Ptr Gio.IOStream.IOStream)
websocketConnectionGetIoStream ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Gio.IOStream.IOStream
websocketConnectionGetIoStream self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_io_stream self'
checkUnexpectedReturnNULL "websocketConnectionGetIoStream" result
result' <- (newObject Gio.IOStream.IOStream) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data WebsocketConnectionGetIoStreamMethodInfo
instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetIoStreamMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetIoStream
#endif
foreign import ccall "soup_websocket_connection_get_keepalive_interval" soup_websocket_connection_get_keepalive_interval ::
Ptr WebsocketConnection ->
IO Word32
websocketConnectionGetKeepaliveInterval ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Word32
websocketConnectionGetKeepaliveInterval self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_keepalive_interval self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data WebsocketConnectionGetKeepaliveIntervalMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetKeepaliveIntervalMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetKeepaliveInterval
#endif
foreign import ccall "soup_websocket_connection_get_max_incoming_payload_size" soup_websocket_connection_get_max_incoming_payload_size ::
Ptr WebsocketConnection ->
IO Word64
websocketConnectionGetMaxIncomingPayloadSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Word64
websocketConnectionGetMaxIncomingPayloadSize self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_max_incoming_payload_size self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetMaxIncomingPayloadSize
#endif
foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin ::
Ptr WebsocketConnection ->
IO CString
websocketConnectionGetOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m (Maybe T.Text)
websocketConnectionGetOrigin self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_origin self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr self
return maybeResult
#if ENABLE_OVERLOADING
data WebsocketConnectionGetOriginMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetOriginMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetOrigin
#endif
foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol ::
Ptr WebsocketConnection ->
IO CString
websocketConnectionGetProtocol ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m (Maybe T.Text)
websocketConnectionGetProtocol self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_protocol self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr self
return maybeResult
#if ENABLE_OVERLOADING
data WebsocketConnectionGetProtocolMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetProtocolMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetProtocol
#endif
foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state ::
Ptr WebsocketConnection ->
IO CUInt
websocketConnectionGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Soup.Enums.WebsocketState
websocketConnectionGetState self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_state self'
let result' = (toEnum . fromIntegral) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data WebsocketConnectionGetStateMethodInfo
instance (signature ~ (m Soup.Enums.WebsocketState), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetStateMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetState
#endif
foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri ::
Ptr WebsocketConnection ->
IO (Ptr Soup.URI.URI)
websocketConnectionGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> m Soup.URI.URI
websocketConnectionGetUri self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- soup_websocket_connection_get_uri self'
checkUnexpectedReturnNULL "websocketConnectionGetUri" result
result' <- (newBoxed Soup.URI.URI) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data WebsocketConnectionGetUriMethodInfo
instance (signature ~ (m Soup.URI.URI), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetUriMethodInfo a signature where
overloadedMethod _ = websocketConnectionGetUri
#endif
foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary ::
Ptr WebsocketConnection ->
Ptr Word8 ->
Word64 ->
IO ()
websocketConnectionSendBinary ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> ByteString
-> m ()
websocketConnectionSendBinary self data_ = liftIO $ do
let length_ = fromIntegral $ B.length data_
self' <- unsafeManagedPtrCastPtr self
data_' <- packByteString data_
soup_websocket_connection_send_binary self' data_' length_
touchManagedPtr self
freeMem data_'
return ()
#if ENABLE_OVERLOADING
data WebsocketConnectionSendBinaryMethodInfo
instance (signature ~ (ByteString -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSendBinaryMethodInfo a signature where
overloadedMethod _ = websocketConnectionSendBinary
#endif
foreign import ccall "soup_websocket_connection_send_text" soup_websocket_connection_send_text ::
Ptr WebsocketConnection ->
CString ->
IO ()
websocketConnectionSendText ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> T.Text
-> m ()
websocketConnectionSendText self text = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
text' <- textToCString text
soup_websocket_connection_send_text self' text'
touchManagedPtr self
freeMem text'
return ()
#if ENABLE_OVERLOADING
data WebsocketConnectionSendTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSendTextMethodInfo a signature where
overloadedMethod _ = websocketConnectionSendText
#endif
foreign import ccall "soup_websocket_connection_set_keepalive_interval" soup_websocket_connection_set_keepalive_interval ::
Ptr WebsocketConnection ->
Word32 ->
IO ()
websocketConnectionSetKeepaliveInterval ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> Word32
-> m ()
websocketConnectionSetKeepaliveInterval self interval = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
soup_websocket_connection_set_keepalive_interval self' interval
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data WebsocketConnectionSetKeepaliveIntervalMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSetKeepaliveIntervalMethodInfo a signature where
overloadedMethod _ = websocketConnectionSetKeepaliveInterval
#endif
foreign import ccall "soup_websocket_connection_set_max_incoming_payload_size" soup_websocket_connection_set_max_incoming_payload_size ::
Ptr WebsocketConnection ->
Word64 ->
IO ()
websocketConnectionSetMaxIncomingPayloadSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>
a
-> Word64
-> m ()
websocketConnectionSetMaxIncomingPayloadSize self maxIncomingPayloadSize = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
soup_websocket_connection_set_max_incoming_payload_size self' maxIncomingPayloadSize
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo a signature where
overloadedMethod _ = websocketConnectionSetMaxIncomingPayloadSize
#endif