diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-05-27 20:57:05 +0200 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-05-27 20:57:05 +0200 |
| commit | 31f54f94bad4623f21c9aa62a073d2d79c106eaf (patch) | |
| tree | 2e95980d53bc40ebb87fb3d7b12993629f14304b | |
| parent | 08742b6b310468ac5e6e09adb5a31d300c998411 (diff) | |
| download | reploy-31f54f94bad4623f21c9aa62a073d2d79c106eaf.tar.gz reploy-31f54f94bad4623f21c9aa62a073d2d79c106eaf.tar.bz2 | |
clean up
| -rw-r--r-- | site.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |