From 6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f Mon Sep 17 00:00:00 2001 From: Magnus Jonsson Date: Sun, 29 Jul 2007 21:02:30 +0000 Subject: [PATCH] Make "runghc -f path-to-ghc Main.hs" work --- utils/runghc/runghc.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4