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