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, 100 insertions, 96 deletions

diff --git a/test/org-select-tags.native b/test/org-select-tags.native
index a94c70abe..9f2d84a9f 100644
--- a/test/org-select-tags.native
+++ b/test/org-select-tags.native
@@ -1,99 +1,103 @@
 Pandoc
-  ( Meta { unMeta = fromList [] } )
-  [ Header 1
-    ( "will-appear-because-it-is-the-ancestor-of-something-tagged-yes"
-    , []
-    , []
-    )
-    [ Str "Will"
-    , Space
-    , Str "appear"
-    , Space
-    , Str "because"
-    , Space
-    , Str "it"
-    , Space
-    , Str "is"
-    , Space
-    , Str "the"
-    , Space
-    , Str "ancestor"
-    , Space
-    , Str "of"
-    , Space
-    , Str "something"
-    , Space
-    , Str "tagged"
-    , Space
-    , Str "\"yes\""
-    ]
-  , Header 2
-    ( "will-appear", [], [] )
-    [ Str "Will"
-    , Space
-    , Str "appear"
-    , Space
-    , Span
-      ( "", [ "tag" ], [ ( "tag-name", "yes" ) ] )
-      [ SmallCaps [ Str "yes" ] ]
-    ]
-  , Header 3
-    ( "will-appear-since-the-entire-subtree-of-something-selected-will-appear"
-    , []
-    , []
-    )
-    [ Str "Will"
-    , Space
-    , Str "appear"
-    , Space
-    , Str "since"
-    , Space
-    , Str "the"
-    , Space
-    , Str "entire"
-    , Space
-    , Str "subtree"
-    , Space
-    , Str "of"
-    , Space
-    , Str "something"
-    , Space
-    , Str "selected"
-    , Space
-    , Str "will"
-    , Space
-    , Str "appear"
-    ]
+  Meta { unMeta = fromList [] }
+  [ Header
+      1
+      ( "will-appear-because-it-is-the-ancestor-of-something-tagged-yes"
+      , []
+      , []
+      )
+      [ Str "Will"
+      , Space
+      , Str "appear"
+      , Space
+      , Str "because"
+      , Space
+      , Str "it"
+      , Space
+      , Str "is"
+      , Space
+      , Str "the"
+      , Space
+      , Str "ancestor"
+      , Space
+      , Str "of"
+      , Space
+      , Str "something"
+      , Space
+      , Str "tagged"
+      , Space
+      , Str "\"yes\""
+      ]
+  , Header
+      2
+      ( "will-appear" , [] , [] )
+      [ Str "Will"
+      , Space
+      , Str "appear"
+      , Space
+      , Span
+          ( "" , [ "tag" ] , [ ( "tag-name" , "yes" ) ] )
+          [ SmallCaps [ Str "yes" ] ]
+      ]
+  , Header
+      3
+      ( "will-appear-since-the-entire-subtree-of-something-selected-will-appear"
+      , []
+      , []
+      )
+      [ Str "Will"
+      , Space
+      , Str "appear"
+      , Space
+      , Str "since"
+      , Space
+      , Str "the"
+      , Space
+      , Str "entire"
+      , Space
+      , Str "subtree"
+      , Space
+      , Str "of"
+      , Space
+      , Str "something"
+      , Space
+      , Str "selected"
+      , Space
+      , Str "will"
+      , Space
+      , Str "appear"
+      ]
   , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [ [ Para [ Str "Will", Space, Str "appear" ] ] ]
-  , Header 2
-    ( "will-appear-because-it-is-the-ancestor-of-something-listed-in-select-tags"
-    , []
-    , []
-    )
-    [ Str "Will"
-    , Space
-    , Str "appear"
-    , Space
-    , Str "because"
-    , Space
-    , Str "it"
-    , Space
-    , Str "is"
-    , Space
-    , Str "the"
-    , Space
-    , Str "ancestor"
-    , Space
-    , Str "of"
-    , Space
-    , Str "something"
-    , Space
-    , Str "listed"
-    , Space
-    , Str "in"
-    , Space
-    , Str "SELECT-TAGS"
-    ]
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Para [ Str "Will" , Space , Str "appear" ] ] ]
+  , Header
+      2
+      ( "will-appear-because-it-is-the-ancestor-of-something-listed-in-select-tags"
+      , []
+      , []
+      )
+      [ Str "Will"
+      , Space
+      , Str "appear"
+      , Space
+      , Str "because"
+      , Space
+      , Str "it"
+      , Space
+      , Str "is"
+      , Space
+      , Str "the"
+      , Space
+      , Str "ancestor"
+      , Space
+      , Str "of"
+      , Space
+      , Str "something"
+      , Space
+      , Str "listed"
+      , Space
+      , Str "in"
+      , Space
+      , Str "SELECT-TAGS"
+      ]
   ]