diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-08-21 17:30:51 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-08-21 17:30:51 +0000 |
| commit | 54b748e03297e970bbef9d00a96139798009af0d (patch) | |
| tree | 0ae8ba0ca94b7a88d44129370692f46b8d275df7 /utils/runghc | |
| parent | eb546347e5eace34612005c151121fcd1f32b257 (diff) | |
| download | haskell-54b748e03297e970bbef9d00a96139798009af0d.tar.gz | |
Fix warnings in runghc
Diffstat (limited to 'utils/runghc')
| -rw-r--r-- | utils/runghc/runghc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index 911d0f8f9d..decbdcd2ba 100644 --- a/utils/runghc/runghc.hs +++ b/utils/runghc/runghc.hs @@ -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 |