Commit 54b748e0 authored by Ian Lynagh's avatar Ian Lynagh

Fix warnings in runghc

parent eb546347
......@@ -57,8 +57,8 @@ getGhcLoc args = case args of
('-' : 'f' : ghc) : args' -> f ghc args'
-- If you need the first GHC flag to be a -f flag then
-- you can pass -- first
"--" : args -> (Nothing, args)
args -> (Nothing, args)
"--" : args' -> (Nothing, args')
_ -> (Nothing, args)
where f ghc args' = -- If there is another -f flag later on then
-- that overrules the one that we've already
-- found
......
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