diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:26:01 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-11 00:26:01 +0000 |
| commit | 59f172839ada96ce9c3602f73b54fb1bac2ded3e (patch) | |
| tree | e9cf76b8ac30c414acfdf617e79014245177a970 | |
| parent | 9e55b8f48478b91400fd54507b525cc20a1c9ac9 (diff) | |
| download | haskell-59f172839ada96ce9c3602f73b54fb1bac2ded3e.tar.gz | |
Add missing case in removePrefix
| -rw-r--r-- | libraries/template-haskell/Setup.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/template-haskell/Setup.hs b/libraries/template-haskell/Setup.hs index cf84de0355..c35fcf969c 100644 --- a/libraries/template-haskell/Setup.hs +++ b/libraries/template-haskell/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 |