From 31f54f94bad4623f21c9aa62a073d2d79c106eaf Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 27 May 2023 20:57:05 +0200
Subject: [PATCH] clean up

---
 site.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index 31ac7ec..800c37e 100644
--- a/site.hs
+++ b/site.hs
@@ -127,9 +127,10 @@ processLink base l = do
 pageFilename :: FilePath -> Site FilePath
 pageFilename p = indexFilename $ "page" </> p
 
+checkedSubstitute :: Mu.Template -> Y.Value -> IO T.Text
 checkedSubstitute t v = do
   let (es, txt) = Mu.checkedSubstitute t v
-  io $ traverse_ (putStrLn . ("Error: " ++) . show) es
+  traverse_ (putStrLn . ("Error: " ++) . show) es
   --null es `unless` error "template substitution problems"
   pure txt