Add missing case in removePrefix
authorIan Lynagh <igloo@earth.li>
Wed, 11 Apr 2007 00:25:52 +0000 (00:25 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 11 Apr 2007 00:25:52 +0000 (00:25 +0000)
Setup.hs

index cf84de0..c35fcf9 100644 (file)
--- a/Setup.hs
+++ b/Setup.hs
@@ -38,6 +38,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