From 47358831a4546b9373c0773e02f0ee7a180aa74d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 14 Sep 2019 11:36:21 -0700
Subject: [PATCH] EPUB toChapters: don't treat "refs" Div specially.
This should make toChapters work better if there are
Divs around sections.
---
src/Text/Pandoc/Writers/EPUB.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index d0e85ae39..c9714b0a2 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -520,7 +520,7 @@ pandocToEPUB version opts doc = do
let toChapters :: [Block] -> State [Int] [Chapter]
toChapters [] = return []
- toChapters (Div ("refs",_,_) bs@(Header 1 _ _:_) : rest) =
+ toChapters (Div _ bs@(Header 1 _ _:_) : rest) =
toChapters (bs ++ rest)
toChapters (Header n attr@(_,classes,_) ils : bs) = do
nums <- get