c0c8865 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

HTML reader: small performance tweak.

c0c8865John MacFarlane6 years ago

src/Text/Pandoc/Readers/HTML.hs+5−9

@@ -157,11 +157,10 @@ pHead = pInTags "head" $ pTitle <|> pMetaTag <|> pBaseTag <|> (mempty <$ pAny)

157 return mempty

158

159block :: PandocMonad m => TagParser m Blocks

160−block = do

160+block = ((do

161+ tag <- lookAhead (pSatisfy isBlockTag)

161 exts <- getOption readerExtensions

162 exts <- getOption readerExtensions

162− tag <- lookAhead pAny

163− res <-

164− (case tag of

163+ case tag of

165 TagOpen name attr ->

164 TagOpen name attr ->

166 let type' = fromMaybe "" $

165 let type' = fromMaybe "" $

167 lookup "type" attr <|> lookup "epub:type" attr

166 lookup "type" attr <|> lookup "epub:type" attr

@@ -214,11 +213,8 @@ block = do

214 | epubExts

213 | epubExts

215 -> eSwitch B.para block

214 -> eSwitch B.para block

216 _ -> mzero

215 _ -> mzero

217− _ -> mzero)

218− <|> pPlain

219− <|> pRawHtmlBlock

216+ _ -> mzero) <|> pPlain <|> pRawHtmlBlock) >>= \res ->

220− trace (T.take 60 $ tshow $ B.toList res)

217+ res <$ trace (T.take 60 $ tshow $ B.toList res)

221− return res

222

218

223namespaces :: PandocMonad m => [(Text, TagParser m Inlines)]

219namespaces :: PandocMonad m => [(Text, TagParser m Inlines)]

224namespaces = [(mathMLNamespace, pMath True)]

220namespaces = [(mathMLNamespace, pMath True)]