Improve deNote.

2020-10-31 21:30:57 -07:00 · 2020-10-31 21:30:57 -07:00 · 01f2d81168
commit 01f2d81168
parent 2125aea026
1 changed files with 5 additions and 4 deletions
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@ -527,11 +527,12 @@ capitalizeNoteCitation x = x
 deNote :: Inline -> Inline
 deNote (Note bs) = Note $ walk go bs
 where
-  go (Note bs')
-       = Span ("",[],[]) (Space : Str "(" :
-                          (removeFinalPeriod
-                            (blocksToInlines bs')) ++ [Str ")"])
+  go (Cite cs ils) = Cite cs (concatMap removeNote ils)
  go x = x
+  removeNote (Note bs')
+       = Space : Str "(" : (removeFinalPeriod
+                            (blocksToInlines bs')) ++ [Str ")"]
+  removeNote x = [x]
 deNote x = x

 -- Note: we can't use dropTextWhileEnd indiscriminately,