diff --git a/lib/hs/src/Thrift/Transport/Handle.hs b/lib/hs/src/Thrift/Transport/Handle.hs
index d6cfe31..b7d16e4 100644
--- a/lib/hs/src/Thrift/Transport/Handle.hs
+++ b/lib/hs/src/Thrift/Transport/Handle.hs
@@ -44,8 +44,8 @@
 instance Transport Handle where
     tIsOpen = hIsOpen
     tClose = hClose
-    tRead h n = LBS.hGet h n `catch` handleEOF mempty
-    tPeek h = (Just . c2w <$> hLookAhead h) `catch` handleEOF Nothing
+    tRead h n = LBS.hGet h n `Control.Exception.catch` handleEOF mempty
+    tPeek h = (Just . c2w <$> hLookAhead h) `Control.Exception.catch` handleEOF Nothing
     tWrite = LBS.hPut
     tFlush = hFlush
 
diff --git a/test/hs/run-test.sh b/test/hs/run-test.sh
index 46b8b2c..ecafc18 100755
--- a/test/hs/run-test.sh
+++ b/test/hs/run-test.sh
@@ -40,4 +40,4 @@
 fi
 
 printf "Running test... \n"
-runhaskell -Wall -i$BASE/lib/hs/src -igen-hs $TEST_SOURCE_FILE
+runhaskell -Wall -XScopedTypeVariables -i$BASE/lib/hs/src -igen-hs $TEST_SOURCE_FILE
diff --git a/test/test.sh b/test/test.sh
index 5d06e47..3a28429 100755
--- a/test/test.sh
+++ b/test/test.sh
@@ -275,7 +275,6 @@
       do_test "hs-java" "${proto}" "${trans}-${sock}" \
               "hs/TestClient --protocol ${proto} --transport ${trans} ${extraparam}" \
 	      "ant -f  ../lib/java/build.xml -Dno-gen-thrift=\"\" -Dtestargs \"--protocol=${proto} --transport=${trans} ${extraparam}\" run-testserver" \
-              "cpp/TestServer --protocol=${proto} --transport=${trans} ${extraparam}" \
               "5" "1"
     done
   done