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

clean up

Browse source
This commit is contained in:
Mirek Kratochvil 2023-05-27 20:57:05 +02:00
parent 08742b6b31
commit 31f54f94ba
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
site.hs
View file

@ -127,9 +127,10 @@ processLink base l = do
pageFilename :: FilePath -> Site FilePath pageFilename :: FilePath -> Site FilePath
pageFilename p = indexFilename $ "page" </> p pageFilename p = indexFilename $ "page" </> p
checkedSubstitute :: Mu.Template -> Y.Value -> IO T.Text
checkedSubstitute t v = do checkedSubstitute t v = do
let (es, txt) = Mu.checkedSubstitute t v 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" --null es `unless` error "template substitution problems"
pure txt pure txt