From a331c69b4935b03d42f88f5346b700c795e09346 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 24 Sep 2020 10:03:04 -0700
Subject: Slight improvement to last commit.

We now add a space only if there isn't already one.
(Some styles add a space at the end of the left-margin
div.)
---
 src/Text/Pandoc/Citeproc.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index 71331a4a2..66b1cf74f 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -165,7 +165,10 @@ insertSpace ils =
       case Seq.lookup 0 rest of
         Just (Span ("",["csl-right-inline"],[]) _) ->
           Many $
-            Span ("",["csl-left-margin"],[]) (xs ++ [Space]) Seq.<| rest
+            Span ("",["csl-left-margin"],[]) (xs ++ case lastMay xs of
+                                                      Just Space -> []
+                                                      _          -> [Space])
+            Seq.<| rest
         _ -> ils
     _ -> ils
 
-- 
cgit v1.2.3