@@ -125,7 +125,7 @@ webSocket' url config onRawMessage = do
125125 unless success $ atomically $ unGetTQueue payloadQueue payload
126126 return $ RawWebSocket eRecv eOpen eError eClose
127127
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)
129129textWebSocket url cfg = webSocket' url cfg (either (return . decodeUtf8) fromJSValUnchecked)
130130
131131#ifdef USE_TEMPLATE_HASKELL