989a9eb · typeable/pandoc

380 -> StateT WriterState m Doc

381renderInlineList True [] = pure "<verbatim></verbatim>"

382renderInlineList False [] = pure ""

383−renderInlineList start lst@(x:xs) = do r <- inlineToMuse x

383+renderInlineList start (x:xs) = do r <- inlineToMuse x

384− opts <- gets stOptions

384+ opts <- gets stOptions

385− lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs --hcat <$> mapM inlineToMuse xs

385+ lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs --hcat <$> mapM inlineToMuse xs

386− if start && fixOrEscape x

386+ if start && fixOrEscape x

387− then pure ((text "<verbatim></verbatim>") <> r <> lst')

387+ then pure ((text "<verbatim></verbatim>") <> r <> lst')

388− else pure (r <> lst')

388+ else pure (r <> lst')

389

390-- | Normalize and convert list of Pandoc inline elements to Muse.

391inlineListToMuse'' :: PandocMonad m