From de3fa4b1bc16d27c9184abaef566d1874deeb136 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Mon, 16 Oct 2023 20:56:00 +0200
Subject: [PATCH] fix sorting of tags and pages by name

---
 Tags.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Tags.hs b/Tags.hs
index 9893fcb..5ad315d 100644
--- a/Tags.hs
+++ b/Tags.hs
@@ -146,7 +146,7 @@ toSortKey ident x
       then Negative i
       else Positive i
   | 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
 
 -- | A generic helper for rendering metadata for tagged pages.