diff --git a/test/hs/ThriftTest_Main.hs b/test/hs/ThriftTest_Main.hs
index 1139506..670023e 100755
--- a/test/hs/ThriftTest_Main.hs
+++ b/test/hs/ThriftTest_Main.hs
@@ -67,6 +67,10 @@
         ThriftTestUtils.serverLog $ show x
         return x
 
+    testBinary _ x = do
+        ThriftTestUtils.serverLog $ show x
+        return x
+
     testStruct _ x = do
         ThriftTestUtils.serverLog $ show x
         return x
@@ -150,6 +154,8 @@
     v9 <- Client.testDouble ps (-3.14)
     ThriftTestUtils.clientLog $ show v9
 
+    -- TODO: Client.testBinary ...
+	
     v10 <- Client.testMap ps (Map.fromList [(1,1),(2,2),(3,3)])
     ThriftTestUtils.clientLog $ show v10