flaw-websocket-client/Flaw/Network/WebSocket.hs
Parse error Open
Open
callback <- asyncCallback1 $ \messageEvent -> do
- Read upRead up
- Exclude checks
Found
} <- atomically $ newBiuoSocket 1
> callback <- asyncCallback1 $ \messageEvent -> do
let bytes = case WME.getData $ unsafeCoerce messageEvent of
WME.StringData s -> T.encodeUtf8 $ textFromJSString s
remove it.