diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |