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

fix sorting of tags and pages by name

Browse source
This commit is contained in:
Mirek Kratochvil 2023-10-16 20:56:00 +02:00
parent 0e89ba2cf9
commit de3fa4b1bc
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Tags.hs
View file

@ -146,7 +146,7 @@ toSortKey ident x
then Negative i then Negative i
else Positive i else Positive i
| Just s <- x ^? key "meta" . key "order" . _String = Stringy (T.unpack s) | Just s <- x ^? key "meta" . key "order" . _String = Stringy (T.unpack s)
| Just n <- x ^? key "name" . _String = Stringy (T.unpack n) | Just n <- x ^? key "meta" . key "name" . _String = Stringy (T.unpack n)
| otherwise = Stringy ident | otherwise = Stringy ident
-- | A generic helper for rendering metadata for tagged pages. -- | A generic helper for rendering metadata for tagged pages.