Biblio: If locator ends with ",", add it to the suffix.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs
index 717084ca7..efaafd77d 100644
--- a/src/Text/Pandoc/Biblio.hs
+++ b/src/Text/Pandoc/Biblio.hs
@@ -174,10 +174,18 @@ toCslCite c
 
 locatorWords :: [Inline] -> (String, [Inline])
 locatorWords inp =
-  case parse (liftM2 (,) pLocator getInput) "suffix" inp of
+  case parse pLocatorWords "suffix" inp of
        Right r   -> r
        Left _    -> ("",inp)
 
+pLocatorWords :: GenParser Inline st (String, [Inline])
+pLocatorWords = do
+  l <- pLocator
+  s <- getInput -- rest is suffix
+  if length l > 0 && last l == ','
+     then return (init l, Str "," : s)
+     else return (l, s)
+
 pMatch :: (Inline -> Bool) -> GenParser Inline st Inline
 pMatch condition = try $ do
   t <- anyToken