From: Ian Lynagh <igloo@earth.li>
Date: Wed, 11 Apr 2007 00:25:37 +0000 (+0000)
Subject: Add missing case in removePrefix
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e04a8fa83719d8cd9c9d710fd0dcc8bd24a91cd;p=ghc-base.git

Add missing case in removePrefix
---

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