microfixes

This commit is contained in:
Mirek Kratochvil 2023-10-16 19:38:44 +02:00
parent e2cec0c7a7
commit 0e89ba2cf9
2 changed files with 3 additions and 2 deletions

View file

@ -72,7 +72,8 @@ rendering machinery.
- `mount` (string): what should be the canonical URL of the page - `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 - `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 ##### Optional

View file

@ -55,7 +55,7 @@ sourceTagMetaFile fp = do
kx = splitTag ks kx = splitTag ks
v v
| Y.String t <- v' = | Y.String t <- v' =
Y.Object $ KM.fromList [("name", Y.String t)] Y.object [("name", Y.String t)]
| Y.Object _ <- v' = v' | Y.Object _ <- v' = v'
| otherwise = | otherwise =
error ("invalid definition of tag " ++ ks ++ " in " ++ fp) error ("invalid definition of tag " ++ ks ++ " in " ++ fp)