@@ -185,7 +185,7 @@ pandocToMarkdown opts (Pandoc meta blocks) = do
185 isPlain <- asks envPlain
185 isPlain <- asks envPlain
186 metadata <- metaToJSON'
186 metadata <- metaToJSON'
187 (fmap (render colwidth) . blockListToMarkdown opts)
187 (fmap (render colwidth) . blockListToMarkdown opts)
188− (fmap (render colwidth) . inlineListToMarkdown opts)
188+ (fmap (render colwidth) . blockToMarkdown opts . Plain)
190 let title' = maybe empty text $ getField "title" metadata
190 let title' = maybe empty text $ getField "title" metadata
191 let authors' = maybe [] (map text) $ getField "author" metadata
191 let authors' = maybe [] (map text) $ getField "author" metadata