diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-10-11 15:14:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-10-11 15:14:35 -0700 |
| commit | 60dcaa37d5cbaa9e9109b0a2a448ce663752b90d (patch) | |
| tree | 9160ebf84abc48d3687876568b8991da9a56cdaf | |
| parent | e3a5abc64ff8067bbbe27c45c637d83c55d5d8b0 (diff) | |
Native writer: format Div properly, with blocks separated.
| -rw-r--r-- | src/Text/Pandoc/Writers/Native.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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. |