From 6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f Mon Sep 17 00:00:00 2001 From: Magnus Jonsson Date: Sun, 29 Jul 2007 21:02:30 +0000 Subject: Make "runghc -f path-to-ghc Main.hs" work --- utils/runghc/runghc.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'utils/runghc') diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index cdf06dc33f..6896a68932 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 -- cgit v1.2.1