Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

FB2 writer: don't fail with an error on interior headers (e.g. in list).

Browse source 
Instead, omit them with an INFO message.

Closes #3750.
This commit is contained in:
John MacFarlane 2017-06-20 14:21:43 +02:00
parent 6a077ac9c7
commit b26d3c4522
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/FB2.hs
View file

@ -37,7 +37,7 @@ FictionBook is an XML-based e-book format. For more information see:
-} -}
module Text.Pandoc.Writers.FB2 (writeFB2) where module Text.Pandoc.Writers.FB2 (writeFB2) where
import Control.Monad.Except (catchError, throwError) import Control.Monad.Except (catchError)
import Control.Monad.State.Strict (StateT, evalStateT, get, lift, modify) import Control.Monad.State.Strict (StateT, evalStateT, get, lift, modify)
import Control.Monad.State.Strict (liftM) import Control.Monad.State.Strict (liftM)
import Data.ByteString.Base64 (encode) import Data.ByteString.Base64 (encode)
@ -371,8 +371,10 @@ blockToXml (DefinitionList defs) =
needsBreak (Para _) = False needsBreak (Para _) = False
needsBreak (Plain ins) = LineBreak `notElem` ins needsBreak (Plain ins) = LineBreak `notElem` ins
needsBreak _ = True needsBreak _ = True
blockToXml (Header _ _ _) = -- should never happen, see renderSections blockToXml h@(Header _ _ _) = do
throwError $ PandocShouldNeverHappenError "unexpected header in section text" -- should not occur after hierarchicalize, except inside lists/blockquotes
report $ BlockNotRendered h
return []
blockToXml HorizontalRule = return blockToXml HorizontalRule = return
[ el "empty-line" () [ el "empty-line" ()
, el "p" (txt (replicate 10 '—')) , el "p" (txt (replicate 10 '—'))