diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-27 12:16:02 -0400 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-27 12:16:02 -0400 |
| commit | 6b46c2dfd196a01e87c7e339a2cbbad1cb403bb6 (patch) | |
| tree | 42b66849c0683a27542c1cbef22fe25325b97e7d | |
| parent | 7bc4dc37b26fe849f2df525c32f7149c10920480 (diff) | |
| download | pandoc-6b46c2dfd196a01e87c7e339a2cbbad1cb403bb6.tar.gz | |
Properly handle citations nested in other inline elements.
Closes #460.
Note: processBiblio is a mess. It should be rewritten for
clarity and efficiency.
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index c8e87b2a0..6adb3248e 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -80,7 +80,7 @@ processCite s cs (Cite t _ : rest) = ++ processCite s cs rest else Cite t (renderPandoc s (x:xs)) : processCite s cs rest _ -> Str ("Error processing " ++ show t) : processCite s cs rest -processCite s cs (x:xs) = x : processCite s cs xs +processCite s cs (x:xs) = bottomUp (processCite s cs) x : processCite s cs xs processCite _ _ [] = [] procInlines :: ([Inline] -> [Inline]) -> Block -> Block |