Use pretty-simple to format native output.

Previously we used our own homespun formatting.  But this
produces over-long lines that aren't ideal for diffs in tests.
Easier to use something off-the-shelf and standard.

Closes #7580.

Performance is slower by about a factor of 10, but this isn't
really a problem because native isn't suitable as a serialization
format. (For serialization you should use json, because the reader
is so much faster than native.)

1 files changed, 167 insertions, 17 deletions

diff --git a/test/docbook-chapter.native b/test/docbook-chapter.native
index 396b6a21a..0aed171de 100644
--- a/test/docbook-chapter.native
+++ b/test/docbook-chapter.native
@@ -1,17 +1,167 @@
-Pandoc (Meta {unMeta = fromList []})
-[Header 1 ("",[],[]) [Str "Test",Space,Str "Chapter"]
-,Para [Str "This",Space,Str "chapter",Space,Str "uses",Space,Str "recursive",Space,Str "sections."]
-,Header 2 ("",[],[]) [Str "Like",Space,Str "a",Space,Str "Sect1"]
-,Para [Str "This",Space,Str "section",Space,Str "is",Space,Str "like",Space,Str "a",Space,Str "Sect1."]
-,Header 3 ("",[],[]) [Str "Like",Space,Str "a",Space,Str "Sect2"]
-,Para [Str "This",Space,Str "section",Space,Str "is",Space,Str "like",Space,Str "a",Space,Str "Sect2."]
-,Header 4 ("",[],[]) [Str "Like",Space,Str "a",Space,Str "Sect3"]
-,Para [Str "This",Space,Str "section",Space,Str "is",Space,Str "like",Space,Str "a",Space,Str "Sect3."]
-,Header 5 ("",[],[]) [Str "Like",Space,Str "a",Space,Str "Sect4"]
-,Para [Str "This",Space,Str "section",Space,Str "is",Space,Str "like",Space,Str "a",Space,Str "Sect4."]
-,Header 6 ("",[],[]) [Str "Like",Space,Str "a",Space,Str "Sect5"]
-,Para [Str "This",Space,Str "section",Space,Str "is",Space,Str "like",Space,Str "a",Space,Str "Sect5."]
-,Header 7 ("",[],[]) [Str "Would",Space,Str "be",Space,Str "like",Space,Str "a",Space,Str "Sect6"]
-,Para [Str "This",Space,Str "section",Space,Str "would",Space,Str "be",Space,Str "like",Space,Str "a",Space,Str "Sect6,",Space,Str "if",Space,Str "there",Space,Str "was",Space,Str "one."]
-,Header 8 ("",[],[]) [Str "Would",Space,Str "be",Space,Str "like",Space,Str "a",Space,Str "Sect7"]
-,Para [Str "This",Space,Str "section",Space,Str "would",Space,Str "be",Space,Str "like",Space,Str "a",Space,Str "Sect7,",Space,Str "if",Space,Str "there",Space,Str "was",Space,Str "one."]]
+Pandoc
+  ( Meta { unMeta = fromList [] } )
+  [ Header 1
+    ( "", [], [] )
+    [ Str "Test", Space, Str "Chapter" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "chapter"
+    , Space
+    , Str "uses"
+    , Space
+    , Str "recursive"
+    , Space
+    , Str "sections."
+    ]
+  , Header 2
+    ( "", [], [] )
+    [ Str "Like", Space, Str "a", Space, Str "Sect1" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "is"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect1."
+    ]
+  , Header 3
+    ( "", [], [] )
+    [ Str "Like", Space, Str "a", Space, Str "Sect2" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "is"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect2."
+    ]
+  , Header 4
+    ( "", [], [] )
+    [ Str "Like", Space, Str "a", Space, Str "Sect3" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "is"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect3."
+    ]
+  , Header 5
+    ( "", [], [] )
+    [ Str "Like", Space, Str "a", Space, Str "Sect4" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "is"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect4."
+    ]
+  , Header 6
+    ( "", [], [] )
+    [ Str "Like", Space, Str "a", Space, Str "Sect5" ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "is"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect5."
+    ]
+  , Header 7
+    ( "", [], [] )
+    [ Str "Would"
+    , Space
+    , Str "be"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect6"
+    ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "would"
+    , Space
+    , Str "be"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect6,"
+    , Space
+    , Str "if"
+    , Space
+    , Str "there"
+    , Space
+    , Str "was"
+    , Space
+    , Str "one."
+    ]
+  , Header 8
+    ( "", [], [] )
+    [ Str "Would"
+    , Space
+    , Str "be"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect7"
+    ]
+  , Para
+    [ Str "This"
+    , Space
+    , Str "section"
+    , Space
+    , Str "would"
+    , Space
+    , Str "be"
+    , Space
+    , Str "like"
+    , Space
+    , Str "a"
+    , Space
+    , Str "Sect7,"
+    , Space
+    , Str "if"
+    , Space
+    , Str "there"
+    , Space
+    , Str "was"
+    , Space
+    , Str "one."
+    ]
+  ]