From 337196e87964cf5be1f3e6232e12059338fd1210 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 19 Apr 2005 12:50:52 +0000
Subject: [PATCH] [project @ 2005-04-19 12:50:52 by simonmar] Pass
 -ignore-dot-ghci to GHC

---
 ghc/utils/runghc/runghc.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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