[project @ 2005-04-19 12:50:52 by simonmar]

Pass -ignore-dot-ghci to GHC

diff --git a/ghc/utils/runghc/runghc.hs b/ghc/utils/runghc/runghc.hs
index 22719a3..949a330 100644 (file)
--- a/ghc/utils/runghc/runghc.hs
+++ b/ghc/utils/runghc/runghc.hs
@@ -45,7 +45,8 @@ main = do
        dieProg "syntax: runghc [-f GHCPATH] FILE ARG..."
 
 doIt ghc filename args = do
-  res <- rawSystem ghc ["-e","System.Environment.withProgName "++show filename++" (System.Environment.withArgs ["
+  res <- rawSystem ghc ["-ignore-dot-ghci", 
+                       "-e","System.Environment.withProgName "++show filename++" (System.Environment.withArgs ["
                        ++ concat (intersperse "," (map show args))
                        ++ "] Main.main)", filename]
   exitWith res