sort tags, fix md

1 files changed, 3 insertions, 4 deletions

diff --git a/site.hs b/site.hs
index bf18f86..c5ff809 100644
--- a/site.hs
+++ b/site.hs
@@ -351,14 +351,13 @@ mkSearchData mount pi = do
   link <- rootUrl mount
   text <- io . runIOorExplode $ writePlain plainWriteOpts (pi ^. pageDoc)
   let title = pi ^? pageMeta . key "title" . _String
-  let tags =
-        pi ^.. pageMeta . key "tags" . values . _String .
-        to (Y.array . map fromString . splitDirectories . T.unpack)
+  -- TODO: unify retrieval of tags
+  let tags = sort $ pi ^.. pageMeta . key "tags" . values . _String . to T.unpack
   pure $
     Y.object
       [ ("link", fromString link)
       , ("title", maybe (fromString mount) Y.String title)
-      , ("tags", Y.array tags)
+      , ("tags", Y.array $ map (Y.array . map fromString . splitDirectories) tags)
       , ("text", Y.String text)
       ]