From b1120a32535383c7f72728e272fe19a7715661a3 Mon Sep 17 00:00:00 2001 From: Georges Dubus Date: Sun, 28 Dec 2014 22:56:27 +0100 Subject: [PATCH] Fixed a typo that broke the "**" pattern. Fixes #5 --- System/FilePath/GlobPattern.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/System/FilePath/GlobPattern.hs b/System/FilePath/GlobPattern.hs index 37af02a..53903ac 100644 --- a/System/FilePath/GlobPattern.hs +++ b/System/FilePath/GlobPattern.hs @@ -152,7 +152,7 @@ matchTerms (MatchAny:ts) cs = matchAny cs >>= matchTerms ts where matchAny [] = fail "no match" matchAny cs' = case matchTerms ts cs' of Nothing -> matchAny (tail cs') - _ -> return cs + _ -> return cs' matchTerms [MatchDir] cs | pathSeparator `elem` cs = fail "path separator" | otherwise = return () matchTerms (MatchDir:ts) cs = matchDir cs >>= matchTerms ts