From 35837f5607986b18746590c1611927d59cbe8c87 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sat, 27 May 2023 20:19:11 +0200 Subject: render tags, run head-first into template problems --- Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utils.hs') diff --git a/Utils.hs b/Utils.hs index f95351e..c220cb7 100644 --- a/Utils.hs +++ b/Utils.hs @@ -26,7 +26,7 @@ hasSuffix s = isJust . stripSuffix s second :: (a -> b) -> (c, a) -> (c, b) second f (a, b) = (a, f b) --- | A pandoc walker for printing the URLs. +-- | A pandoc walker for modifying the URLs. walkURLs :: (FilePath -> Site FilePath) -> Text.Pandoc.Definition.Pandoc -> Site Text.Pandoc.Definition.Pandoc walkURLs f = Text.Pandoc.Walk.walkM go where -- cgit v1.2.3