exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

cmt

Browse source
This commit is contained in:
Mirek Kratochvil 2023-05-27 21:01:20 +02:00
parent adb4ffd5d5
commit 1b93ec5632
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
site.hs
View file

@ -233,6 +233,8 @@ sourceTags = do
use pages use pages
htags .= M.fromList (invTags sgat) 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 :: [(FilePath, [[String]])] -> [([String], [FilePath])]
invTags x = invTags x =
map (fmap nub) $ groupSort [(t, p) | (p, htl) <- x, ht <- htl, t <- inits ht] map (fmap nub) $ groupSort [(t, p) | (p, htl) <- x, ht <- htl, t <- inits ht]