THRIFT-1598 Update Haskell generated code to use Text, Hash{Map,Set}, Vector
fix test suite
git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1340044 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/test/hs/ThriftTest_Main.hs b/test/hs/ThriftTest_Main.hs
old mode 100644
new mode 100755
index 2f9fc4a..3612935
--- a/test/hs/ThriftTest_Main.hs
+++ b/test/hs/ThriftTest_Main.hs
@@ -18,12 +18,16 @@
-- under the License.
--
+{-# LANGUAGE OverloadedStrings #-}
+
module Main where
import qualified Control.Exception
-import qualified Data.Map as Map
-import qualified Data.Set as Set
+import qualified Data.HashMap.Strict as Map
+import qualified Data.HashSet as Set
+import qualified Data.Vector as Vector
+
import qualified Network
import Thrift
@@ -44,7 +48,7 @@
testVoid _ = return ()
testString _ (Just s) = do
- ThriftTestUtils.serverLog s
+ ThriftTestUtils.serverLog $ show s
return s
testString _ Nothing = do
@@ -168,7 +172,7 @@
let ps = (BinaryProtocol to, BinaryProtocol to)
v1 <- Client.testString ps "bya"
- ThriftTestUtils.clientLog v1
+ ThriftTestUtils.clientLog $ show v1
v2 <- Client.testByte ps 8
ThriftTestUtils.clientLog $ show v2
@@ -200,7 +204,7 @@
v11 <- Client.testStringMap ps (Map.fromList [("a","123"),("a b","with spaces "),("same","same"),("0","numeric key")])
ThriftTestUtils.clientLog $ show v11
- v12 <- Client.testList ps [1,2,3,4,5]
+ v12 <- Client.testList ps (Vector.fromList [1,2,3,4,5])
ThriftTestUtils.clientLog $ show v12
v13 <- Client.testSet ps (Set.fromList [1,2,3,4,5])