fix delimeter U+FFFD parsing

Author: banacorn

Web/SocketIO/Protocol.hs

@@ -33,9 +33,9 @@ demultiplexMessage = do
 ---- | Using U+FFFD as delimiter
 frameParser :: Parser a -> Parser a
 frameParser parser = do
-    string "\253"
+    string "�"
     len <- decimal
-    string "\253"
+    string "�"
     x <- take len
     case parseOnly parser x of
         Left e  -> error e
@@ -53,8 +53,6 @@ parseFramedMessage input = case parseOnly framedMessageParser input of
     Left e -> error e
     Right r -> Framed r
 
-
-
 --------------------------------------------------------------------------------
 -- | Message, not framed
 messageParser :: Parser Message

Web/SocketIO/Request.hs

@@ -58,7 +58,7 @@ serializeMessage = toByteString 0
                         leftover n'
                         toByteString (i + 1)
 
-            frame b = "�" <> serialize size <> "�" <> b'
+            frame b = "�" <> serialize size <> "�" <> b'
                 where   b' = serialize b
                         size = B.length b'
 

Web/SocketIO/Types/Request.hs

@@ -56,7 +56,7 @@ instance (Show a, Serializable a) => Serializable (Framed a) where
     serialize (Framed [message]) = serialize message
     serialize (Framed messages) = mconcat $ map frame messages
         where   frame message = let serialized = serialize message  
-                                in "�" <> serialize size <> "�" <> serialized
+                                in "�" <> serialize size <> "�" <> serialized
                                 where   size = B.length (serialize message)
 
 --------------------------------------------------------------------------------