From: Magnus Jonsson <magnus@smartelectronix.com>
Date: Sun, 29 Jul 2007 21:02:30 +0000 (+0000)
Subject: Make "runghc -f path-to-ghc Main.hs" work
X-Git-Tag: Before_type_family_merge~128
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f

Make "runghc -f path-to-ghc Main.hs" work
---

diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index cdf06dc..6896a68 100644
--- a/utils/runghc/runghc.hs
+++ b/utils/runghc/runghc.hs
@@ -39,6 +39,8 @@ import System.Directory ( findExecutable )
 main = do 
   args <- getArgs
   case args of
+    ("-f" : ghc : args) -> do
+        doIt ghc args
     ('-':'f' : ghc) : args -> do
 	doIt (dropWhile isSpace ghc) args
     args -> do