Native writer: format Div properly, with blocks separated.
commit60dcaa37d5cbaa9e9109b0a2a448ce663752b90d
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 11 Oct 2015, 15:14 (11 years ago)
parente3a5abc
src/Text/Pandoc/Writers/Native.hs+2
@@ -63,6 +63,8 @@ prettyBlock (Table caption aligns widths header rows) =
6363 prettyRow header $$
6464 prettyList (map prettyRow rows)
6565 where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols)
66+prettyBlock (Div attr blocks) =
67+ text ("Div " <> show attr) $$ prettyList (map prettyBlock blocks)
6668prettyBlock block = text $ show block
6769
6870-- | Prettyprint Pandoc document.