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])