diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-06-22 09:55:50 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-06-22 09:55:50 -0700 |
| commit | 1b07997f4a6870650f20702ed6d962f9471e3d40 (patch) | |
| tree | 8594fa39d9797e251865d4b8d5ca3a6e088d256f | |
| parent | 086790d986af35a5e6d68013a2c15ae10511db40 (diff) | |
| download | pandoc-1b07997f4a6870650f20702ed6d962f9471e3d40.tar.gz | |
Fix regression with comment-only YAML metadata blocks.
Closes #7400.
| -rw-r--r-- | src/Text/Pandoc/Readers/Metadata.hs | 3 | ||||
| -rw-r--r-- | test/command/7400.md | 9 |
2 files changed, 12 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index 45eddf25a..cbc523b25 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -45,6 +45,9 @@ yamlBsToMeta pMetaValue bstr = do Right [] -> return . return $ mempty Right [YAML.Doc (YAML.Scalar _ YAML.SNull)] -> return . return $ mempty + -- the following is what we get from a comment: + Right [YAML.Doc (YAML.Scalar _ (YAML.SUnknown _ ""))] + -> return . return $ mempty Right _ -> Prelude.fail "expected YAML object" Left (yamlpos, err') -> do pos <- getPosition diff --git a/test/command/7400.md b/test/command/7400.md new file mode 100644 index 000000000..d4be32d72 --- /dev/null +++ b/test/command/7400.md @@ -0,0 +1,9 @@ +``` +% pandoc -t native -s +--- +# Comment only +... +^D +Pandoc (Meta {unMeta = fromList []}) +[] +``` |