diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:50:28 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:50:28 +0000 |
commit | 338ea062bb47c22a4f8daac71e749564a7513881 (patch) | |
tree | 3e96dbb8d9b98e1c987ae2ea9ebcccabcc36bb7a /Setup.hs | |
parent | 4059af5da681cea41d8b778b6180a0b7bd78c76e (diff) |
Fix -Wall warnings
Diffstat (limited to 'Setup.hs')
-rw-r--r-- | Setup.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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 -> |