diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-09-14 11:36:21 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-14 11:36:21 -0700 |
| commit | 47358831a4546b9373c0773e02f0ee7a180aa74d (patch) | |
| tree | 65c8568b6896e7ba41b3ca54588b30e6ad20008f | |
| parent | 3f455aedfa653d55dc3f0bd491ae9d22b2a4c57a (diff) | |
| download | pandoc-47358831a4546b9373c0773e02f0ee7a180aa74d.tar.gz | |
EPUB toChapters: don't treat "refs" Div specially.
This should make toChapters work better if there are
Divs around sections.
| -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 |