diff options
| author | Magnus Jonsson <magnus@smartelectronix.com> | 2007-07-29 21:02:30 +0000 |
|---|---|---|
| committer | Magnus Jonsson <magnus@smartelectronix.com> | 2007-07-29 21:02:30 +0000 |
| commit | 6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f (patch) | |
| tree | a858c867ab7241bec1af3554d574157a88e6d3e2 /utils/runghc | |
| parent | 9253afdfd62b10caaa398f78954aa7f309d887e5 (diff) | |
| download | haskell-6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f.tar.gz | |
Make "runghc -f path-to-ghc Main.hs" work
Diffstat (limited to 'utils/runghc')
| -rw-r--r-- | utils/runghc/runghc.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |