Reflex.Dom.WebSocket

Documentation

data RawWebSocket t a

Constructors

RawWebSocket

Fields

• _webSocket_recv :: Event t a
• _webSocket_open :: Event t ()
• _webSocket_error :: Event t ()
• _webSocket_close :: Event t (Bool, Word, Text)

type WebSocket t = RawWebSocket t ByteString

data WebSocketConfig t a

Constructors

WebSocketConfig

Fields

• _webSocketConfig_send :: Event t [a]
• _webSocketConfig_close :: Event t (Word, Text)
• _webSocketConfig_reconnect :: Bool
• _webSocketConfig_protocols :: [Text]

Instances

Reflex t => Default (WebSocketConfig t a)

Defined in Reflex.Dom.WebSocket

Methods

def :: WebSocketConfig t a

webSocket :: (MonadJSM m, MonadJSM (Performable m), HasJSContext m, PerformEvent t m, TriggerEvent t m, PostBuild t m, IsWebSocketMessage a) => Text -> WebSocketConfig t a -> m (WebSocket t)

webSocket' :: (MonadJSM m, MonadJSM (Performable m), HasJSContext m, PerformEvent t m, TriggerEvent t m, PostBuild t m, IsWebSocketMessage a) => Text -> WebSocketConfig t a -> (Either ByteString JSVal -> JSM b) -> m (RawWebSocket t b)

textWebSocket :: (IsWebSocketMessage a, MonadJSM m, MonadJSM (Performable m), HasJSContext m, PostBuild t m, TriggerEvent t m, PerformEvent t m, MonadHold t m, Reflex t) => Text -> WebSocketConfig t a -> m (RawWebSocket t Text)

jsonWebSocket :: (ToJSON a, FromJSON b, MonadJSM m, MonadJSM (Performable m), HasJSContext m, PostBuild t m, TriggerEvent t m, PerformEvent t m, MonadHold t m, Reflex t) => Text -> WebSocketConfig t a -> m (RawWebSocket t (Maybe b))

forkJSM :: JSM () -> JSM ()

webSocketConfig_close :: forall t a. Lens' (WebSocketConfig t a) (Event t (Word, Text))

webSocketConfig_protocols :: forall t a. Lens' (WebSocketConfig t a) [Text]

webSocketConfig_reconnect :: forall t a. Lens' (WebSocketConfig t a) Bool

webSocketConfig_send :: forall t a. Lens' (WebSocketConfig t a) (Event t [a])

webSocket_close :: forall t a. Lens' (RawWebSocket t a) (Event t (Bool, Word, Text))

webSocket_error :: forall t a. Lens' (RawWebSocket t a) (Event t ())

webSocket_open :: forall t a. Lens' (RawWebSocket t a) (Event t ())

webSocket_recv :: forall t a. Lens' (RawWebSocket t a) (Event t a)

jsonDecode :: FromJSON a => JSString -> Maybe a