commit e68ccc23bebde961767e47e6751dcf764b8503f2
author Nobuaki Sukegawa <nsuke@apache.org> Sun Dec 13 21:45:39 2015 +0900
committer Nobuaki Sukegawa <nsuke@apache.org> Sun Dec 13 23:48:22 2015 +0900
tree 9112b830eedaffd1fc1c22cb14f2504a5bd42a6d
parent ef2b5285f3be08e52000a60d3de2e2f8a30f892b

THRIFT-3482 Haskell JSON protocol does not encode binary field as Base64

test/hs/DebugProtoTest_Main.hs

diff --git a/test/hs/DebugProtoTest_Main.hs b/test/hs/DebugProtoTest_Main.hs
old mode 100755
new mode 100644

test/hs/TestClient.hs

diff --git a/test/hs/TestClient.hs b/test/hs/TestClient.hs
index 0ebc0fd..d1ebb3c 100644
--- a/test/hs/TestClient.hs
+++ b/test/hs/TestClient.hs
@@ -168,13 +168,13 @@
                       }
   putStrLn "testNest"
   nestOut <- Client.testNest prot nestIn
-  when (nestIn /= nestOut) exitSuccess
+  when (nestIn /= nestOut) exitFailure
 
   -- Map Test
   let mapIn = Map.fromList $ map (\i -> (i, i-10)) [1..5]
   putStrLn "testMap"
   mapOut <- Client.testMap prot mapIn
-  when (mapIn /= mapOut) exitSuccess
+  when (mapIn /= mapOut) exitFailure
 
   -- Set Test
   let setIn = Set.fromList [-2..3]

test/hs/TestServer.hs

diff --git a/test/hs/TestServer.hs b/test/hs/TestServer.hs
old mode 100755
new mode 100644

test/hs/ThriftTest_Main.hs

diff --git a/test/hs/ThriftTest_Main.hs b/test/hs/ThriftTest_Main.hs
old mode 100755
new mode 100644