From 54b748e03297e970bbef9d00a96139798009af0d Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 21 Aug 2008 17:30:51 +0000 Subject: Fix warnings in runghc --- utils/runghc/runghc.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'utils/runghc') 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 -- cgit v1.2.1