@@ -125,7 +125,7 @@ webSocket' url config onRawMessage = do
125 unless success $ atomically $ unGetTQueue payloadQueue payload
125 unless success $ atomically $ unGetTQueue payloadQueue payload
126 return $ RawWebSocket eRecv eOpen eError eClose
126 return $ RawWebSocket eRecv eOpen eError eClose
128−textWebSocket :: (MonadJSM m, MonadJSM (Performable m), HasJSContext m, PostBuild t m, TriggerEvent t m, PerformEvent t m, MonadHold t m, Reflex t) => Text -> WebSocketConfig t Text -> m (RawWebSocket t Text)
128+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)
129textWebSocket url cfg = webSocket' url cfg (either (return . decodeUtf8) fromJSValUnchecked)
129textWebSocket url cfg = webSocket' url cfg (either (return . decodeUtf8) fromJSValUnchecked)
131#ifdef USE_TEMPLATE_HASKELL
131#ifdef USE_TEMPLATE_HASKELL