Commit 6e4c802a authored by Magnus Jonsson's avatar Magnus Jonsson
Browse files

Make "runghc -f path-to-ghc Main.hs" work

parent 9253afdf
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment