From b4bbc0f1b3e20bd21210c7786880d0fc337303b8 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Thu, 3 Aug 2023 14:12:18 +0200
Subject: support custom metadata per build

Closes #13
---
 reploy.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'reploy.hs')

diff --git a/reploy.hs b/reploy.hs
index 7e475df..2e3ee48 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -202,8 +202,9 @@ addGlobalMeta :: Y.Value -> Site MT.Value
 addGlobalMeta (Y.Object m) = do
   r <- use urlBase
   i <- use appendUrlIndex
+  em <- use extraMeta
   let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m
-  pure . Mu.object $ l ++
+  pure . Mu.object $ l ++ map (\(k, v) -> (T.pack k, Mu.toMustache v)) em ++
     [ ("root", Mu.toMustache $ T.pack r)
     , ("rawRootUrl", Mu.overText $ T.pack . rootUrl' r . T.unpack)
     , ("pageLink", Mu.overText $ T.pack . rootPageUrl' r i . T.unpack)
-- 
cgit v1.2.3