From 94455740970cf9967170e58bc29ff6026a5bde19 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Sun, 27 Dec 2015 20:03:38 +0100
Subject: [PATCH] LIB: improve documentation on pattern synonyms

---
 src/Data/DirTree.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Data/DirTree.hs b/src/Data/DirTree.hs
index 7c9effb..d35a67b 100644
--- a/src/Data/DirTree.hs
+++ b/src/Data/DirTree.hs
@@ -356,8 +356,11 @@ pattern FileLikeSym  f <- (fileLikeSym  -> (True, f))
 pattern ABrokenSymlink f <- (abrokenSymlink -> (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)
                                 -> (True, fs))
+-- |Matches a list of any non-directory kind of files or symlinks
+-- pointing to such.
 pattern FileLikeList fs <- (\fs -> (foldr (&&) True
                                      . fmap (fst . safileLike)
                                      $ fs, fs) -> (True, fs))