From 96bc2d5d41922daaec6315c5c0da27701a84b091 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 13 Dec 2015 18:47:21 -0700
Subject: don't insert preamble if there aren't any refs

---
 src/pandoc-citeproc-preamble.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/pandoc-citeproc-preamble.hs b/src/pandoc-citeproc-preamble.hs
index 5572fe1..919ed2a 100644
--- a/src/pandoc-citeproc-preamble.hs
+++ b/src/pandoc-citeproc-preamble.hs
@@ -31,7 +31,12 @@ import           Text.Pandoc.JSON
 insertPreamble :: Block -> [Block] -> [Block]
 insertPreamble preamble = foldr step []
   where
-    step refs@(Div (_, ["references"], _) _) xs = preamble : refs : xs
+    step refsDiv@(Div (_, ["references"], _) theRefs) xs =
+        -- check whether pandoc-citeproc actually inserted any
+        -- references
+        if null theRefs
+        then refsDiv : xs
+        else preamble : refsDiv : xs
     step x xs = x:xs
 
 doPreamble :: Maybe Format -> Pandoc -> IO Pandoc
-- 
cgit v1.2.3