From cabb492b34d967b9e9fb1227aa21ea1b8d4d4f35 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Fri, 20 Oct 2023 09:25:23 +0200 Subject: [PATCH] fix the page naming lambda, add demo closes #18 --- reploy.hs | 5 +++-- templates/header.html | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/reploy.hs b/reploy.hs index 13dff27..78574d4 100644 --- a/reploy.hs +++ b/reploy.hs @@ -190,8 +190,9 @@ pageName' :: Site (FilePath -> String) pageName' = do ps <- use pages pure $ \mnt' -> - just ("template looks for undefined page name : " ++ mnt') - $ ps M.!? unAbsolute mnt' >>= (^? pageMeta . key "template" . _String . to T.unpack) + just ("lookup for undefined page name : " ++ mnt') + $ ps M.!? unAbsolute mnt' + >>= (^? pageMeta . key "name" . _String . to T.unpack) -- | Like `Mu.substitute` but writes (and eventually should throw) stuff on errors checkedSubstitute :: Mu.Template -> MT.Value -> IO T.Text diff --git a/templates/header.html b/templates/header.html index 1afc80e..d4e4799 100644 --- a/templates/header.html +++ b/templates/header.html @@ -1,9 +1,10 @@
Navigation: {{?htags}}