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.