properly add the extra metadata to all pages, even tags

reploy.hs

@@ -197,10 +197,11 @@ checkedSubstitute t v = do
 
 -- | Add global information to page metadata for rendering (at this point just the url base)
 addGlobalMeta :: Y.Value -> Site MT.Value
-addGlobalMeta (Y.Object m) = do
+addGlobalMeta meta = do
   r <- use urlBase
   rt <- rootedLink'
   rtp <- rootedPageLink'
+  Y.Object m <- (`objMerge` meta) <$> use extraMeta
   let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m
   pure . Mu.object $ l ++
     [ ("root", Mu.toMustache $ T.pack r)
@@ -219,10 +220,9 @@ addExtraMeta :: PageInfo -> Y.Value -> Site Y.Value
 addExtraMeta pi m = do
   metaPath <- metadataFile $ pi ^. pagePath
   metaExists <- io $ doesFileExist metaPath
-  gem <- use extraMeta
-  objMerge gem <$>
   if metaExists
     then do
+      io $ putStrLn ("M <- " ++ metaPath)
       em' <- io $ Y.decodeFileEither metaPath
       case em' of
         Left pe ->