git.iko.soy/reflex-dom
on develop help sign in
Don't convert to String when sending Text data through websockets.
413d433Luigy Leon
reflex-dom-core/src/Reflex/Dom/WebSocket/Foreign.hs+1−2
compare with develop
unifiedsplit
@@ -16,7 +16,6 @@ import Control.Monad.Reader
16import Data.Bifoldable
16import Data.Bifoldable
17import Data.ByteString (ByteString)
17import Data.ByteString (ByteString)
18import Data.Text (Text)
18import Data.Text (Text)
19−import qualified Data.Text as T (unpack)
20import Data.Text.Encoding
19import Data.Text.Encoding
21import Foreign.JavaScript.Utils (bsFromMutableArrayBuffer, bsToArrayBuffer)
20import Foreign.JavaScript.Utils (bsFromMutableArrayBuffer, bsToArrayBuffer)
22import GHCJS.DOM.CloseEvent
21import GHCJS.DOM.CloseEvent
@@ -46,7 +45,7 @@ instance IsWebSocketMessage ByteString where
46
45
47-- Use plaintext websocket communication for Text, and String
46-- Use plaintext websocket communication for Text, and String
48instance IsWebSocketMessage Text where
47instance IsWebSocketMessage Text where
49− webSocketSend (JSWebSocket ws) = DOM.sendString ws . T.unpack
48+ webSocketSend (JSWebSocket ws) = DOM.sendString ws
50
49
51closeWebSocket :: JSWebSocket -> Word -> Text -> JSM ()
50closeWebSocket :: JSWebSocket -> Word -> Text -> JSM ()
52closeWebSocket (JSWebSocket ws) code reason = DOM.close ws (Just code) (Just reason)
51closeWebSocket (JSWebSocket ws) code reason = DOM.close ws (Just code) (Just reason)