@@ -16,7 +16,6 @@ import Control.Monad.Reader
1616import Data.Bifoldable
1717import Data.ByteString (ByteString)
1818import Data.Text (Text)
19−import qualified Data.Text as T (unpack)
2019import Data.Text.Encoding
2120import Foreign.JavaScript.Utils (bsFromMutableArrayBuffer, bsToArrayBuffer)
2221import GHCJS.DOM.CloseEvent
@@ -46,7 +45,7 @@ instance IsWebSocketMessage ByteString where
4645
4746-- Use plaintext websocket communication for Text, and String
4847instance IsWebSocketMessage Text where
49− webSocketSend (JSWebSocket ws) = DOM.sendString ws . T.unpack
48+ webSocketSend (JSWebSocket ws) = DOM.sendString ws
5049
5150closeWebSocket :: JSWebSocket -> Word -> Text -> JSM ()
5251closeWebSocket (JSWebSocket ws) code reason = DOM.close ws (Just code) (Just reason)