From 60dcaa37d5cbaa9e9109b0a2a448ce663752b90d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 11 Oct 2015 15:14:35 -0700 Subject: Native writer: format Div properly, with blocks separated. --- src/Text/Pandoc/Writers/Native.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/Native.hs b/src/Text/Pandoc/Writers/Native.hs index f342dc4f5..2343ff1a8 100644 --- a/src/Text/Pandoc/Writers/Native.hs +++ b/src/Text/Pandoc/Writers/Native.hs @@ -63,6 +63,8 @@ prettyBlock (Table caption aligns widths header rows) = prettyRow header $$ prettyList (map prettyRow rows) where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols) +prettyBlock (Div attr blocks) = + text ("Div " <> show attr) $$ prettyList (map prettyBlock blocks) prettyBlock block = text $ show block -- | Prettyprint Pandoc document. -- cgit v1.2.3