Fix -Wall warnings
authorIan Lynagh <igloo@earth.li>
Wed, 11 Apr 2007 01:22:33 +0000 (01:22 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 11 Apr 2007 01:22:33 +0000 (01:22 +0000)
Setup.hs

index cf84de0..3e5f12e 100644 (file)
--- 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 ->
@@ -38,6 +37,7 @@ extractPrefixArgs prefix args
 
 removePrefix :: String -> String -> Maybe String
 removePrefix "" ys = Just ys
+removePrefix _  "" = Nothing
 removePrefix (x:xs) (y:ys)
  | x == y = removePrefix xs ys
  | otherwise = Nothing