aboutsummaryrefslogtreecommitdiff
path: root/reploy.hs
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2023-10-15 22:23:03 +0200
committerMirek Kratochvil <miroslav.kratochvil@uni.lu>2023-10-16 11:34:26 +0200
commit53aa481aace0a59579846fddba8de41a465654ea (patch)
tree81f1ee44339cbad50f549b7ed48995e0591e802e /reploy.hs
parent402107a237a7039b0aa2028f6c21939e53c98dc4 (diff)
downloadreploy-53aa481aace0a59579846fddba8de41a465654ea.tar.gz
reploy-53aa481aace0a59579846fddba8de41a465654ea.tar.bz2
stop everything on template substitution errors
we're not a circus
Diffstat (limited to 'reploy.hs')
-rw-r--r--reploy.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/reploy.hs b/reploy.hs
index 3d934f3..12d7a57 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -192,7 +192,7 @@ checkedSubstitute :: Mu.Template -> MT.Value -> IO T.Text
checkedSubstitute t v = do
let (es, txt) = Mu.checkedSubstitute t v
traverse_ (putStrLn . ("Error: " ++) . show) es
- --null es `unless` error "template substitution problems!"
+ null es `unless` error "template substitution problems!"
pure txt
-- | Add global information to page metadata for rendering (at this point just the url base)