diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:26:04 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:26:04 +0000 |
commit | 4059af5da681cea41d8b778b6180a0b7bd78c76e (patch) | |
tree | 11e855b467ee26132281d041dfe8fe3293a6bfa8 /Setup.hs | |
parent | 8c291e5006db9e9a42ee27fbbcfca044fb05bfae (diff) |
Add missing case in removePrefix
Diffstat (limited to 'Setup.hs')
-rw-r--r-- | Setup.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |