@@ -15,6 +15,7 @@ import Prelude hiding (all, concat, concatMap, div, mapM, mapM_, sequence, span)
1515import Control.Monad.Reader
1616import Data.Bifoldable
1717import Data.ByteString (ByteString)
18+import qualified Data.ByteString.Lazy as LBS
1819import Data.Text (Text)
1920import Data.Text.Encoding
2021import Foreign.JavaScript.Utils (bsFromMutableArrayBuffer, bsToArrayBuffer)
@@ -43,6 +44,9 @@ instance IsWebSocketMessage ByteString where
4344 ab <- bsToArrayBuffer bs
4445 DOM.send ws ab
4546
47+instance IsWebSocketMessage LBS.ByteString where
48+ webSocketSend ws = webSocketSend ws . LBS.toStrict
49+
4650-- Use plaintext websocket communication for Text, and String
4751instance IsWebSocketMessage Text where
4852 webSocketSend (JSWebSocket ws) = DOM.sendString ws