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, 43 insertions, 2 deletions

diff --git a/test/fb2/reader/meta.native b/test/fb2/reader/meta.native
index 71a8795b6..37d229755 100644
--- a/test/fb2/reader/meta.native
+++ b/test/fb2/reader/meta.native
@@ -1,2 +1,43 @@
-Pandoc (Meta {unMeta = fromList [("abstract",MetaBlocks [Para [Str "Book",Space,Str "annotation"],Para [Str "Second",Space,Str "paragraph",Space,Str "of",Space,Str "book",Space,Str "annotation"]]),("author",MetaList [MetaInlines [Str "First",Space,Str "Middle",Space,Str "Last"],MetaInlines [Str "Another",Space,Str "Author"]]),("date",MetaInlines [Str "2018"]),("keywords",MetaList [MetaString "foo",MetaString "bar",MetaString "baz"]),("title",MetaInlines [Str "Book",Space,Str "title"])]})
-[Header 1 ("",[],[]) [Str "Body",Space,Str "title"]]
+Pandoc
+  ( Meta
+    { unMeta = fromList
+      [
+        ( "abstract"
+        , MetaBlocks
+          [ Para
+            [ Str "Book", Space, Str "annotation" ]
+          , Para
+            [ Str "Second"
+            , Space
+            , Str "paragraph"
+            , Space
+            , Str "of"
+            , Space
+            , Str "book"
+            , Space
+            , Str "annotation"
+            ]
+          ]
+        )
+      ,
+        ( "author"
+        , MetaList
+          [ MetaInlines
+            [ Str "First", Space, Str "Middle", Space, Str "Last" ]
+          , MetaInlines
+            [ Str "Another", Space, Str "Author" ]
+          ]
+        )
+      ,
+        ( "date", MetaInlines [ Str "2018" ] )
+      ,
+        ( "keywords"
+        , MetaList
+          [ MetaString "foo", MetaString "bar", MetaString "baz" ]
+        )
+      ,
+        ( "title", MetaInlines [ Str "Book", Space, Str "title" ] )
+      ]
+    }
+  )
+  [ Header 1 ( "", [], [] ) [ Str "Body", Space, Str "title" ] ]