From 3564cd82caf81763f83897bdd144c833ffab58ee Mon Sep 17 00:00:00 2001 From: Frerich Raabe Date: Wed, 23 Sep 2015 19:25:58 +0200 Subject: Minor refactoring to readDocBook I plan to use the parsed and normalized XML tree read in readDocBook in other places - prepare that commit by factoring this code out into a separate, shared, definition. --- src/Text/Pandoc/Readers/DocBook.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 352b94496..a2aa62249 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -524,8 +524,8 @@ instance Default DBState where readDocBook :: ReaderOptions -> String -> Either PandocError Pandoc readDocBook _ inp = (\blocks -> Pandoc (dbMeta st') (toList . mconcat $ blocks)) <$> bs - where (bs , st') = flip runState def . runExceptT . mapM parseBlock . normalizeTree . parseXML $ inp' - inp' = handleInstructions inp + where (bs , st') = flip runState def . runExceptT . mapM parseBlock $ tree + tree = normalizeTree . parseXML . handleInstructions $ inp -- We treat specially (issue #1236), converting it -- to
, since xml-light doesn't parse the instruction correctly. -- cgit v1.2.3