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

fix a few docs

Browse source
This commit is contained in:
Mirek Kratochvil 2023-08-15 13:43:39 +02:00
parent b4bbc0f1b3
commit 800969bed4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
reploy.hs
View file

@ -15,7 +15,7 @@
-} -}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
-- | The main deployment script. -- | The main site deployment executable.
module Main where module Main where
import Control.Monad ((>=>), filterM, join, unless, when) import Control.Monad ((>=>), filterM, join, unless, when)
@ -450,7 +450,9 @@ makePageLinkMeta mount = do
meta <- use $ pages . to (M.! mount) . pageMeta meta <- use $ pages . to (M.! mount) . pageMeta
pure $ Y.object [("href", fromString link), ("meta", meta)] pure $ Y.object [("href", fromString link), ("meta", meta)]
-- | Create the complete metadata structure for the template that renders a given categorical tag pages -- | Like `makeTagMeta`, but returns only plain YAML without the functions (in
-- outcome the result is easier to work with using the YAML machinery,
-- allowing this to recurse to itself).
makeTagMeta' :: [String] -> Site Y.Value makeTagMeta' :: [String] -> Site Y.Value
makeTagMeta' tag = do makeTagMeta' tag = do
taggedPages <- use $ htags . to (M.!? tag) . to (maybe [] id) taggedPages <- use $ htags . to (M.!? tag) . to (maybe [] id)
@ -474,6 +476,7 @@ makeTagMeta' tag = do
, ("listhref", fromString listlink) , ("listhref", fromString listlink)
] ]
-- | Create the complete metadata structure for the template that renders a given categorical tag pages
makeTagMeta :: [String] -> Site MT.Value makeTagMeta :: [String] -> Site MT.Value
makeTagMeta tag = makeTagMeta' tag >>= addGlobalMeta makeTagMeta tag = makeTagMeta' tag >>= addGlobalMeta