Commit 98a143ee authored by Mikhail Glushenkov's avatar Mikhail Glushenkov

Small readability improvement.

parent 6efb5e23
......@@ -101,7 +101,7 @@ fileGlobMatchesSegments pat (seg : segs) = case pat of
PatStem dir pat' ->
dir == seg && fileGlobMatchesSegments pat' segs
PatMatch Recursive ext ->
ext == takeExtensions (foldl' (flip const) seg segs)
ext == takeExtensions (last $ seg:segs)
PatMatch NonRecursive ext ->
null segs && ext == takeExtensions seg
PatLit filename ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment