From 0e89ba2cf9d89a9bcc25b95c5a3e76267800fafb Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Mon, 16 Oct 2023 19:38:44 +0200
Subject: [PATCH] microfixes

---
 README.md | 3 ++-
 Tags.hs   | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 9d8776e..4ecd238 100644
--- a/README.md
+++ b/README.md
@@ -72,7 +72,8 @@ rendering machinery.
 
 - `mount` (string): what should be the canonical URL of the page
 - `name` (string): the name of the page for display in templates and page links
-  (technically, the `name` is not required UNLESS you
+  (technically, the `name` is not required UNLESS you refer to it from the
+  templates, but the templates usually do that)
 
 ##### Optional
 
diff --git a/Tags.hs b/Tags.hs
index c407dfd..9893fcb 100644
--- a/Tags.hs
+++ b/Tags.hs
@@ -55,7 +55,7 @@ sourceTagMetaFile fp = do
                   kx = splitTag ks
                   v
                     | Y.String t <- v' =
-                      Y.Object $ KM.fromList [("name", Y.String t)]
+                      Y.object [("name", Y.String t)]
                     | Y.Object _ <- v' = v'
                     | otherwise =
                       error ("invalid definition of tag " ++ ks ++ " in " ++ fp)