From 5e04a8fa83719d8cd9c9d710fd0dcc8bd24a91cd Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 11 Apr 2007 00:25:37 +0000 Subject: [PATCH] Add missing case in removePrefix --- Setup.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Setup.hs b/Setup.hs index ae4f600..eff2859 100644 --- a/Setup.hs +++ b/Setup.hs @@ -53,6 +53,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 -- 1.7.10.4