@@ -117,7 +117,7 @@ plainTitleBlock tit auths dat =
117 dat <> cr
117 dat <> cr
119yamlMetadataBlock :: Value -> Doc
119yamlMetadataBlock :: Value -> Doc
120−yamlMetadataBlock v = "---" $$ (jsonToYaml v) $$ "..."
120+yamlMetadataBlock v = "---" $$ (jsonToYaml v) $$ "---"
122jsonToYaml :: Value -> Doc
122jsonToYaml :: Value -> Doc
123jsonToYaml (Object hashmap) =
123jsonToYaml (Object hashmap) =