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 (file)
--- 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