From 4059af5da681cea41d8b778b6180a0b7bd78c76e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 11 Apr 2007 00:26:04 +0000
Subject: Add missing case in removePrefix

---
 Setup.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Setup.hs')

diff --git a/Setup.hs b/Setup.hs
index cf84de0..c35fcf9 100644
--- 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
-- 
cgit v1.2.3