From fe4de681c5481f92c8f50f1eca8c636690323458 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 28 Nov 2019 21:34:54 +0000 Subject: Select pandoc-citeproc's refs Div by its 'refs' identifier Signed-off-by: Sean Whitton --- src/pandoc-citeproc-preamble.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/pandoc-citeproc-preamble.hs') diff --git a/src/pandoc-citeproc-preamble.hs b/src/pandoc-citeproc-preamble.hs index 3453e49..b446579 100644 --- a/src/pandoc-citeproc-preamble.hs +++ b/src/pandoc-citeproc-preamble.hs @@ -2,7 +2,7 @@ pandoc-citeproc-preamble --- Insert a preamble before pandoc-citeproc's bibliography - Copyright (C) 2015-2016 Sean Whitton + Copyright (C) 2015-2016, 2019 Sean Whitton This file is part of pandoc-citeproc-preamble. @@ -31,7 +31,7 @@ import Text.Pandoc.JSON insertPreamble :: Block -> [Block] -> [Block] insertPreamble preamble = foldr step [] where - step refsDiv@(Div (_, ["references"], _) theRefs) xs = + step refsDiv@(Div ("refs", _, _) theRefs) xs = -- check whether pandoc-citeproc actually inserted any -- references if null theRefs -- cgit v1.2.3