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, 21 insertions, 19 deletions

diff --git a/test/command/4848.md b/test/command/4848.md
index 3110b90cc..54692ff09 100644
--- a/test/command/4848.md
+++ b/test/command/4848.md
@@ -10,9 +10,10 @@
 \foreignquote{italian}{hi}
 ^D
 [ Para
-  [ Quoted DoubleQuote
-    [ Span ( "", [], [ ( "lang", "it" ) ] ) [ Str "hi" ] ]
-  ]
+    [ Quoted
+        DoubleQuote
+        [ Span ( "" , [] , [ ( "lang" , "it" ) ] ) [ Str "hi" ] ]
+    ]
 ]
 ```
 
@@ -21,9 +22,10 @@
 \hyphenquote*{italian}{hi}
 ^D
 [ Para
-  [ Quoted SingleQuote
-    [ Span ( "", [], [ ( "lang", "it" ) ] ) [ Str "hi" ] ]
-  ]
+    [ Quoted
+        SingleQuote
+        [ Span ( "" , [] , [ ( "lang" , "it" ) ] ) [ Str "hi" ] ]
+    ]
 ]
 ```
 
@@ -33,12 +35,12 @@ Lorem ipsum
 \blockquote{dolor sit amet}
 consectetuer.
 ^D
-[ Para
-  [ Str "Lorem", Space, Str "ipsum" ]
+[ Para [ Str "Lorem" , Space , Str "ipsum" ]
 , BlockQuote
-  [ Para [ Str "dolor", Space, Str "sit", Space, Str "amet" ] ]
-, Para
-  [ Str "consectetuer." ]
+    [ Para
+        [ Str "dolor" , Space , Str "sit" , Space , Str "amet" ]
+    ]
+, Para [ Str "consectetuer." ]
 ]
 ```
 
@@ -78,15 +80,15 @@ Lorem ipsum
 \foreignblockquote{italian}{dolor sit amet}
 consectetuer.
 ^D
-[ Para
-  [ Str "Lorem", Space, Str "ipsum" ]
+[ Para [ Str "Lorem" , Space , Str "ipsum" ]
 , BlockQuote
-  [ Div
-    ( "", [], [ ( "lang", "it" ) ] )
-    [ Para [ Str "dolor", Space, Str "sit", Space, Str "amet" ] ]
-  ]
-, Para
-  [ Str "consectetuer." ]
+    [ Div
+        ( "" , [] , [ ( "lang" , "it" ) ] )
+        [ Para
+            [ Str "dolor" , Space , Str "sit" , Space , Str "amet" ]
+        ]
+    ]
+, Para [ Str "consectetuer." ]
 ]
 ```