@@ -157,11 +157,10 @@ pHead = pInTags "head" $ pTitle <|> pMetaTag <|> pBaseTag <|> (mempty <$ pAny)
157157 return mempty
158158
159159block :: PandocMonad m => TagParser m Blocks
160−block = do
160+block = ((do
161+ tag <- lookAhead (pSatisfy isBlockTag)
161162 exts <- getOption readerExtensions
162− tag <- lookAhead pAny
163− res <-
164− (case tag of
163+ case tag of
165164 TagOpen name attr ->
166165 let type' = fromMaybe "" $
167166 lookup "type" attr <|> lookup "epub:type" attr
@@ -214,11 +213,8 @@ block = do
214213 | epubExts
215214 -> eSwitch B.para block
216215 _ -> mzero
217− _ -> mzero)
218− <|> pPlain
219− <|> pRawHtmlBlock
220− trace (T.take 60 $ tshow $ B.toList res)
221− return res
216+ _ -> mzero) <|> pPlain <|> pRawHtmlBlock) >>= \res ->
217+ res <$ trace (T.take 60 $ tshow $ B.toList res)
222218
223219namespaces :: PandocMonad m => [(Text, TagParser m Inlines)]
224220namespaces = [(mathMLNamespace, pMath True)]