diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/JATS.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs index d6a12b295..4ce33e053 100644 --- a/src/Text/Pandoc/Writers/JATS.hs +++ b/src/Text/Pandoc/Writers/JATS.hs @@ -113,11 +113,13 @@ docToJATS opts (Pandoc meta blocks') = do $ ensureReferenceHeader blocks' let splitBackBlocks b@(Div ("refs",_,_) _) (fs, bs) = (fs, b:bs) splitBackBlocks (Div (ident,("section":_),_) - [ Header lev (_,hcls,hkvs) hils - , (Div rattrs@("refs",_,_) rs) - ]) (fs, bs) - = (fs, Div rattrs - (Header lev (ident,hcls,hkvs) hils : rs) : bs) + ( Header lev (_,hcls,hkvs) hils + : (Div rattrs@("refs",_,_) rs) + : rest + )) (fs, bs) + = (fs ++ rest, + Div rattrs + (Header lev (ident,hcls,hkvs) hils : rs) : bs) splitBackBlocks b (fs, bs) = (b:fs, bs) let (bodyblocks, backblocks) = foldr splitBackBlocks ([],[]) blocks let colwidth = if writerWrapText opts == WrapAuto |