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