fix sorting of tags and pages by name

1 files changed, 1 insertions, 1 deletions

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.