THRIFT-2641 Improvements to Haskell Compiler/Libraries
some fixes
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