Better error when parsing EndNote references fails.

(Tell them that it concerns EndNote references.)

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Readers/EndNote.hs b/src/Text/Pandoc/Readers/EndNote.hs
index cdfbe6a4e..07bb63706 100644
--- a/src/Text/Pandoc/Readers/EndNote.hs
+++ b/src/Text/Pandoc/Readers/EndNote.hs
@@ -74,10 +74,10 @@ readEndNoteXML _opts inp = do
 readEndNoteXMLCitation :: PandocMonad m
                     => Sources -> m (Citeproc.Citation Text)
 readEndNoteXMLCitation sources = do
-  tree <- either (throwError . PandocXMLError "") return $
+  tree <- either (throwError . PandocXMLError "EndNote references") return $
               parseXMLElement (TL.fromStrict . sourcesToText $ sources)
   unless (qName (elName tree) == "EndNote") $
-    throwError $ PandocXMLError "" "Expected EndNote element"
+    throwError $ PandocXMLError "EndNote references" "Expected EndNote element"
   let items = map toCitationItem $ filterElementsName (name "Cite") tree
   return $ Citeproc.Citation{
                      Citeproc.citationId = Nothing
@@ -88,7 +88,7 @@ readEndNoteXMLCitation sources = do
 readEndNoteXMLReferences :: PandocMonad m
                          => Sources -> m [Reference Text]
 readEndNoteXMLReferences sources = do
-  tree <- either (throwError . PandocXMLError "") return $
+  tree <- either (throwError . PandocXMLError "EndNote references") return $
               parseXMLElement (TL.fromStrict . sourcesToText $ sources)
   let records = filterElementsName (name "record") tree
   return $ map recordToReference records