X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=quickcheck%2Frun.sh;fp=quickcheck%2Frun.sh;h=cff728abee84bef0aa8d23b2690f019690dc6b5f;hp=0000000000000000000000000000000000000000;hb=422eaf986e456ed0e16647445f7bdcb3018eb6c2;hpb=693342ffbb61e1da4c009059755fa0b9b1396bb8

diff --git a/quickcheck/run.sh b/quickcheck/run.sh
new file mode 100644
index 0000000..cff728a
--- /dev/null
+++ b/quickcheck/run.sh
@@ -0,0 +1,23 @@
+#!/bin/sh
+
+# I suck at bash scripting. Please feel free to make this code better.
+
+Root=../compiler
+
+ExtraOptions="-cpp -fglasgow-exts -package ghc"
+
+HC=$Root/stage2/ghc-inplace
+
+Debug="False"
+
+if [ "$1" == "debug" ]
+  then
+    Debug="True"
+fi
+
+if [ "$1" == "ghci" ]
+  then
+    $HC --interactive $ExtraOptions $2
+  else
+    $HC --interactive -e "runUnitTests $Debug" $ExtraOptions RunTests.hs
+fi
\ No newline at end of file