From: Ian Lynagh <igloo@earth.li>
Date: Thu, 21 Aug 2008 17:30:51 +0000 (+0000)
Subject: Fix warnings in runghc
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=54b748e03297e970bbef9d00a96139798009af0d

Fix warnings in runghc
---

diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index 911d0f8..decbdcd 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