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, 170 deletions

diff --git a/test/docbook-xref.native b/test/docbook-xref.native
index 16113d50b..1b4ced24e 100644
--- a/test/docbook-xref.native
+++ b/test/docbook-xref.native
@@ -1,184 +1,177 @@
 Pandoc
-  ( Meta
-    { unMeta = fromList
-      [
-        ( "title"
-        , MetaInlines
-          [ Str "An", Space, Str "Example", Space, Str "Book" ]
-        )
-      ]
+  Meta
+    { unMeta =
+        fromList
+          [ ( "title"
+            , MetaInlines
+                [ Str "An"
+                , Space
+                , Str "Example"
+                , Space
+                , Str "Book"
+                ]
+            )
+          ]
     }
-  )
-  [ Header 1
-    ( "ch01", [], [] )
-    [ Str "XRef", Space, Str "Samples" ]
+  [ Header
+      1
+      ( "ch01" , [] , [] )
+      [ Str "XRef" , Space , Str "Samples" ]
   , Para
-    [ Str "This"
-    , Space
-    , Str "paragraph"
-    , Space
-    , Str "demonstrates"
-    , Space
-    , Str "several"
-    , Space
-    , Str "features"
-    , Space
-    , Str "of"
-    , SoftBreak
-    , Str "XRef."
-    ]
+      [ Str "This"
+      , Space
+      , Str "paragraph"
+      , Space
+      , Str "demonstrates"
+      , Space
+      , Str "several"
+      , Space
+      , Str "features"
+      , Space
+      , Str "of"
+      , SoftBreak
+      , Str "XRef."
+      ]
   , BulletList
-    [
-      [ Para
-        [ Str "A"
-        , Space
-        , Str "straight"
-        , Space
-        , Str "link"
-        , Space
-        , Str "generates"
-        , Space
-        , Str "the"
-        , SoftBreak
-        , Str "cross-reference"
-        , Space
-        , Str "text:"
-        , Space
-        , Link
-          ( "", [], [] )
-          [ Str "The", Space, Str "Second", Space, Str "Chapter" ]
-          ( "#ch02", "" )
-        , Str "."
+      [ [ Para
+            [ Str "A"
+            , Space
+            , Str "straight"
+            , Space
+            , Str "link"
+            , Space
+            , Str "generates"
+            , Space
+            , Str "the"
+            , SoftBreak
+            , Str "cross-reference"
+            , Space
+            , Str "text:"
+            , Space
+            , Link
+                ( "" , [] , [] )
+                [ Str "The"
+                , Space
+                , Str "Second"
+                , Space
+                , Str "Chapter"
+                ]
+                ( "#ch02" , "" )
+            , Str "."
+            ]
         ]
-      ]
-    ,
-      [ Para
-        [ Str "A"
-        , Space
-        , Str "link"
-        , Space
-        , Str "to"
-        , Space
-        , Str "an"
-        , Space
-        , Str "element"
-        , Space
-        , Str "with"
-        , Space
-        , Str "an"
-        , SoftBreak
-        , Str "XRefLabel:"
-        , SoftBreak
-        , Link
-          ( "", [], [] )
-          [ Str "Chapter", Space, Str "the", Space, Str "Third" ]
-          ( "#ch03", "" )
-        , Str "."
+      , [ Para
+            [ Str "A"
+            , Space
+            , Str "link"
+            , Space
+            , Str "to"
+            , Space
+            , Str "an"
+            , Space
+            , Str "element"
+            , Space
+            , Str "with"
+            , Space
+            , Str "an"
+            , SoftBreak
+            , Str "XRefLabel:"
+            , SoftBreak
+            , Link
+                ( "" , [] , [] )
+                [ Str "Chapter"
+                , Space
+                , Str "the"
+                , Space
+                , Str "Third"
+                ]
+                ( "#ch03" , "" )
+            , Str "."
+            ]
         ]
-      ]
-    ,
-      [ Para
-        [ Str "A"
-        , Space
-        , Str "link"
-        , Space
-        , Str "with"
-        , Space
-        , Str "an"
-        , SoftBreak
-        , Str "EndTerm:"
-        , SoftBreak
-        , Link
-          ( "", [], [] )
-          [ Str "Chapter", Space, Str "4" ]
-          ( "#ch04", "" )
-        , Str "."
+      , [ Para
+            [ Str "A"
+            , Space
+            , Str "link"
+            , Space
+            , Str "with"
+            , Space
+            , Str "an"
+            , SoftBreak
+            , Str "EndTerm:"
+            , SoftBreak
+            , Link
+                ( "" , [] , [] )
+                [ Str "Chapter" , Space , Str "4" ]
+                ( "#ch04" , "" )
+            , Str "."
+            ]
         ]
-      ]
-    ,
-      [ Para
-        [ Str "A"
-        , Space
-        , Str "link"
-        , Space
-        , Str "to"
-        , Space
-        , Str "an"
-        , SoftBreak
-        , Str "cmdsynopsis"
-        , Space
-        , Str "element:"
-        , Space
-        , Link
-          ( "", [], [] )
-          [ Str "chgrp" ]
-          ( "#cmd01", "" )
-        , Str "."
+      , [ Para
+            [ Str "A"
+            , Space
+            , Str "link"
+            , Space
+            , Str "to"
+            , Space
+            , Str "an"
+            , SoftBreak
+            , Str "cmdsynopsis"
+            , Space
+            , Str "element:"
+            , Space
+            , Link ( "" , [] , [] ) [ Str "chgrp" ] ( "#cmd01" , "" )
+            , Str "."
+            ]
         ]
-      ]
-    ,
-      [ Para
-        [ Str "A"
-        , Space
-        , Str "link"
-        , Space
-        , Str "to"
-        , Space
-        , Str "an"
-        , SoftBreak
-        , Str "funcsynopsis"
-        , Space
-        , Str "element:"
-        , Space
-        , Link
-          ( "", [], [] )
-          [ Str "max" ]
-          ( "#func01", "" )
-        , Str "."
+      , [ Para
+            [ Str "A"
+            , Space
+            , Str "link"
+            , Space
+            , Str "to"
+            , Space
+            , Str "an"
+            , SoftBreak
+            , Str "funcsynopsis"
+            , Space
+            , Str "element:"
+            , Space
+            , Link ( "" , [] , [] ) [ Str "max" ] ( "#func01" , "" )
+            , Str "."
+            ]
         ]
       ]
-    ]
-  , Header 1
-    ( "ch02", [], [] )
-    [ Str "The", Space, Str "Second", Space, Str "Chapter" ]
+  , Header
+      1
+      ( "ch02" , [] , [] )
+      [ Str "The" , Space , Str "Second" , Space , Str "Chapter" ]
   , Para
-    [ Str "Some", Space, Str "content", Space, Str "here" ]
-  , Header 1
-    ( "ch03", [], [] )
-    [ Str "The", Space, Str "Third", Space, Str "Chapter" ]
+      [ Str "Some" , Space , Str "content" , Space , Str "here" ]
+  , Header
+      1
+      ( "ch03" , [] , [] )
+      [ Str "The" , Space , Str "Third" , Space , Str "Chapter" ]
   , Para
-    [ Str "Some", Space, Str "content", Space, Str "here" ]
-  , Header 1
-    ( "ch04", [], [] )
-    [ Str "The", Space, Str "Fourth", Space, Str "Chapter" ]
+      [ Str "Some" , Space , Str "content" , Space , Str "here" ]
+  , Header
+      1
+      ( "ch04" , [] , [] )
+      [ Str "The" , Space , Str "Fourth" , Space , Str "Chapter" ]
   , Para
-    [ Str "Some", Space, Str "content", Space, Str "here" ]
-  , Plain
-    [ Str "chgrp" ]
-  , Plain
-    [ Str "-R" ]
-  , Plain
-    [ Str "-H" ]
-  , Plain
-    [ Str "-L" ]
-  , Plain
-    [ Str "-P" ]
-  , Plain
-    [ Str "-f" ]
-  , Plain
-    [ Str "group" ]
-  , Plain
-    [ Str "file" ]
-  , Plain
-    [ Str "int" ]
-  , Plain
-    [ Str "max" ]
-  , Plain
-    [ Str "int" ]
-  , Plain
-    [ Str "int1" ]
-  , Plain
-    [ Str "int" ]
-  , Plain
-    [ Str "int2" ]
+      [ Str "Some" , Space , Str "content" , Space , Str "here" ]
+  , Plain [ Str "chgrp" ]
+  , Plain [ Str "-R" ]
+  , Plain [ Str "-H" ]
+  , Plain [ Str "-L" ]
+  , Plain [ Str "-P" ]
+  , Plain [ Str "-f" ]
+  , Plain [ Str "group" ]
+  , Plain [ Str "file" ]
+  , Plain [ Str "int" ]
+  , Plain [ Str "max" ]
+  , Plain [ Str "int" ]
+  , Plain [ Str "int1" ]
+  , Plain [ Str "int" ]
+  , Plain [ Str "int2" ]
   ]