use ByteString for ObjectStr for compatibility

see TokTok/hs-msgpack-types#36
l29ah · Jul 24, 2020 · 8bfa799 · 8bfa799
1 parent 1ec4ac2
commit 8bfa799
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/src/Data/MessagePack/Get.hs b/src/Data/MessagePack/Get.hs
@@ -95,7 +95,7 @@ getFloat = tag 0xCA >> getFloat32be
 getDouble :: Get Double
 getDouble = tag 0xCB >> getFloat64be
 
-getStr :: Get T.Text
+getStr :: Get S.ByteString
 getStr = do
   len <- getWord8 >>= \case
     t | t .&. 0xE0 == 0xA0 ->
@@ -104,10 +104,7 @@ getStr = do
     0xDA -> fromIntegral <$> getWord16be
     0xDB -> fromIntegral <$> getWord32be
     _    -> empty
-  bs <- getByteString len
-  case T.decodeUtf8' bs of
-    Left  _ -> empty
-    Right v -> return v
+  getByteString len
 
 getBin :: Get S.ByteString
 getBin = do

diff --git a/src/Data/MessagePack/Put.hs b/src/Data/MessagePack/Put.hs
@@ -111,9 +111,8 @@ putDouble d = do
   putWord8 0xCB
   putFloat64be d
 
-putStr :: T.Text -> Put
-putStr t = do
-  let bs = T.encodeUtf8 t
+putStr :: S.ByteString -> Put
+putStr bs = do
   case S.length bs of
     len | len <= 31 ->
           putWord8 $ 0xA0 .|. fromIntegral len