diff options
| -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 |