From 1b93ec5632fe7b22f7f84f65bf547048904b1203 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 27 May 2023 21:01:20 +0200
Subject: [PATCH] cmt

---
 site.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/site.hs b/site.hs
index 985ce23..1a17d58 100644
--- a/site.hs
+++ b/site.hs
@@ -233,6 +233,8 @@ sourceTags = do
     use pages
   htags .= M.fromList (invTags sgat)
 
+-- | Organize a list of pages with hierarchical tags to a list with
+-- hierarchical tags with pages attached.
 invTags :: [(FilePath, [[String]])] -> [([String], [FilePath])]
 invTags x =
   map (fmap nub) $ groupSort [(t, p) | (p, htl) <- x, ht <- htl, t <- inits ht]