hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: improve documentation on pattern synonyms

Browse Source
This commit is contained in:
Julian Ospald 2015-12-27 20:03:38 +01:00
parent a81ef6a38c
commit 9445574097
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/DirTree.hs
View File

@ -356,8 +356,11 @@ pattern FileLikeSym f <- (fileLikeSym -> (True, f))
pattern ABrokenSymlink f <- (abrokenSymlink -> (True, f)) pattern ABrokenSymlink f <- (abrokenSymlink -> (True, f))
pattern BrokenSymlink f <- (brokenSymlink -> (True, f)) pattern BrokenSymlink f <- (brokenSymlink -> (True, f))
-- |Matches a list of directories or symlinks pointing to directories.
pattern DirList fs <- (\fs -> (foldr (&&) True . fmap (fst . sadir) $ fs, fs) pattern DirList fs <- (\fs -> (foldr (&&) True . fmap (fst . sadir) $ fs, fs)
-> (True, fs)) -> (True, fs))
-- |Matches a list of any non-directory kind of files or symlinks
-- pointing to such.
pattern FileLikeList fs <- (\fs -> (foldr (&&) True pattern FileLikeList fs <- (\fs -> (foldr (&&) True
. fmap (fst . safileLike) . fmap (fst . safileLike)
$ fs, fs) -> (True, fs)) $ fs, fs) -> (True, fs))