aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Citeproc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-05-17 20:42:43 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-05-17 20:42:43 -0700
commit56fb4dae1ba2f6c28f561964249b89385d482f53 (patch)
treedc76f0cf78a6d2f0474f7098f4f45735cd38fa87 /src/Text/Pandoc/Citeproc.hs
parent1843a8793a9043a45c8c427b06f100461889d7ef (diff)
downloadpandoc-56fb4dae1ba2f6c28f561964249b89385d482f53.tar.gz
Citeproc: ensure that CSL-related attributes are passed on...
...to a Div with id 'refs'. Previously we just left the attributes of such a Div alone, which meant that style options like entry-spacing had no effect there.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
-rw-r--r--src/Text/Pandoc/Citeproc.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index 2f4936fa6..de63aed1f 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -499,7 +499,7 @@ insertRefs refkvs refclasses meta refs bs =
put True
-- refHeader isn't used if you have an explicit references div
let cs' = ordNub $ cs ++ refclasses
- return $ Div ("refs",cs',kvs) (xs ++ refs)
+ return $ Div ("refs",cs' ++ refclasses,kvs ++ refkvs) (xs ++ refs)
go x = return x
refTitle :: Meta -> Maybe [Inline]