Don't hard code arguments.

raeez · Oct 20, 2008 · 3dea620 · 3dea620
1 parent 9336d4e
commit 3dea620
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/Makefile b/Makefile
@@ -18,7 +18,7 @@ install:
 	$(SETUP) install
 
 test:
-	./dist/build/test/test.exe
+	./dist/build/test_get_imports/test_get_imports $(GHC_PATH)/compiler dist-stage2 +RTS -s -RTS
 
 clean:
 	$(SETUP) clean
diff --git a/examples/GetImports.hs b/examples/GetImports.hs
@@ -9,11 +9,14 @@ import HscTypes
 
 import Data.Maybe
 import Control.Monad
+import System.Environment
 
 main = runScion $ do
-  liftIO $ print "hello"
-  setWorkingDir "../ghc/compiler"
-  openCabalProject "./dist-stage2"
+  [working_dir, dist_dir] <- io $ getArgs
+  setWorkingDir working_dir
+  liftIO $ print working_dir
+  io $ print dist_dir
+  openCabalProject dist_dir
   setDynFlagsFromCabal Library
   setTargetsFromCabal Library
   --load LoadAllTargets