Switch from pretty-simple to pretty-show for native output.

Update tests.

Reason:  it turns out that the native output generated by
pretty-simple isn't always readable by the native reader.
According to https://github.com/cdepillabout/pretty-simple/issues/99
it is not a design goal of the library that the rendered values
be readable using 'read'.  This makes it unsuitable for our
purposes.

pretty-show is a bit slower and it uses 4-space indents
(non-configurable), but it doesn't have this serious drawback.

1 files changed, 163 insertions, 157 deletions

diff --git a/test/docbook-chapter.native b/test/docbook-chapter.native
index 0aed171de..c77867ad9 100644
--- a/test/docbook-chapter.native
+++ b/test/docbook-chapter.native
@@ -1,167 +1,173 @@
 Pandoc
-  ( Meta { unMeta = fromList [] } )
-  [ Header 1
-    ( "", [], [] )
-    [ Str "Test", Space, Str "Chapter" ]
+  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" ]
+      [ 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" ]
+      [ 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" ]
+      [ 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" ]
+      [ 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" ]
+      [ 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"
-    ]
+      [ 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"
-    ]
+      [ 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."
-    ]
+      [ 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."
+      ]
   ]