git.iko.soy/reflex-dom
on develop help sign in
Merge pull request #154 from reflex-frp/no-unpack-text-websocket-data

Don't convert to String when sending Text data through websockets.

commit21087a7fb192eb1a830ad7073b98efc5583cdef1 authorRyan Trinkle <ryan.trinkle@gmail.com> dateFri 2 Jun 2017, 07:57 (9 years ago) parentcb342ab413d433
1 file changed+1−2
compare with develop
unifiedsplit
reflex-dom-core/src/Reflex/Dom/WebSocket/Foreign.hs+1−2
reflex-dom-core/src/Reflex/Dom/WebSocket/Foreign.hs+1−2
@@ -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)