commit ef2b5285f3be08e52000a60d3de2e2f8a30f892b
author Nobuaki Sukegawa <nsuke@apache.org> Fri Dec 11 02:24:17 2015 +0900
committer Nobuaki Sukegawa <nsuke@apache.org> Sun Dec 13 14:07:27 2015 +0900
tree 91220cdc598e79de4ff885b697aea5935e0d55f8
parent f48e339cc99aab7f6206c360d4193dd9944ad156

THRIFT-3145 JSON protocol does not handle bool and empty containers correctly
Client: Haskell
Patch: Nobuaki Sukegawa

Fix bool and empty map and add test

This closes #740

lib/hs/src/Thrift/Protocol.hs

diff --git a/lib/hs/src/Thrift/Protocol.hs b/lib/hs/src/Thrift/Protocol.hs
index 31e48b5..8467f40 100644
--- a/lib/hs/src/Thrift/Protocol.hs
+++ b/lib/hs/src/Thrift/Protocol.hs
@@ -107,7 +107,7 @@
 runParser :: (Protocol p, Transport t, Show a) => p t -> Parser a -> IO a
 runParser prot p = refill >>= getResult . parse p
   where
-    refill = handle handleEOF $ toStrict <$> tRead (getTransport prot) 1
+    refill = handle handleEOF $ toStrict <$> tReadAll (getTransport prot) 1
     getResult (Done _ a) = return a
     getResult (Partial k) = refill >>= getResult . k
     getResult f = throw $ ProtocolExn PE_INVALID_DATA (show f)