From: simonmar <unknown>
Date: Tue, 19 Apr 2005 12:50:52 +0000 (+0000)
Subject: [project @ 2005-04-19 12:50:52 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~722
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=337196e87964cf5be1f3e6232e12059338fd1210;p=ghc-hetmet.git

[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
--- 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