projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9253afd
)
Make "runghc -f path-to-ghc Main.hs" work
author
Magnus Jonsson
<magnus@smartelectronix.com>
Sun, 29 Jul 2007 21:02:30 +0000
(21:02 +0000)
committer
Magnus Jonsson
<magnus@smartelectronix.com>
Sun, 29 Jul 2007 21:02:30 +0000
(21:02 +0000)
utils/runghc/runghc.hs
patch
|
blob
|
history
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
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
('-':'f' : ghc) : args -> do
doIt (dropWhile isSpace ghc) args
args -> do