From 338ea062bb47c22a4f8daac71e749564a7513881 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 11 Apr 2007 00:50:28 +0000 Subject: Fix -Wall warnings --- Setup.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Setup.hs') diff --git a/Setup.hs b/Setup.hs index c35fcf9..3e5f12e 100644 --- a/Setup.hs +++ b/Setup.hs @@ -4,7 +4,6 @@ module Main (main) where import Data.List import Distribution.Simple import Distribution.PackageDescription -import Distribution.PreProcess import Distribution.Setup import Distribution.Simple.LocalBuildInfo import System.Environment @@ -25,11 +24,11 @@ extractConfigureArgs :: [String] -> ([String], [String]) extractConfigureArgs = extractPrefixArgs "--configure-option=" extractPrefixArgs :: String -> [String] -> ([String], [String]) -extractPrefixArgs prefix args +extractPrefixArgs the_prefix args = let f [] = ([], []) f (x:xs) = case f xs of (wantedArgs, otherArgs) -> - case removePrefix prefix x of + case removePrefix the_prefix x of Just wantedArg -> (wantedArg:wantedArgs, otherArgs) Nothing -> -- cgit v1.2.3