diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-05-12 06:01:13 -0600 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-05-12 06:01:13 -0600 |
commit | 46309319ef9eb66ea3598073df4174fb40b1b0f8 (patch) | |
tree | 295dd1d0a4e8c34ed03c89d18ddb0a71ce6462dc /src/Text/Pandoc/Readers/Metadata.hs | |
parent | 5eb7ad7d1ebbfe27a282a2d75f199bacf2052be3 (diff) | |
download | pandoc-46309319ef9eb66ea3598073df4174fb40b1b0f8.tar.gz |
Fix source position reporting for YAML bibliographies.
Closes #7273.
Diffstat (limited to 'src/Text/Pandoc/Readers/Metadata.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Metadata.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index bbcfe62ea..45eddf25a 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -98,8 +98,12 @@ yamlBsToRefs pMetaValue idpred bstr = Right [YAML.Doc (YAML.Scalar _ YAML.SNull)] -> return . return $ mempty Right _ -> Prelude.fail "expecting YAML object" - Left (_pos, err') - -> Prelude.fail err' + Left (yamlpos, err') + -> do pos <- getPosition + setPosition $ incSourceLine + (setSourceColumn pos (YE.posColumn yamlpos)) + (YE.posLine yamlpos - 1) + Prelude.fail err' nodeToKey :: YAML.Node YE.Pos -> Maybe Text |