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, 45 insertions, 40 deletions

diff --git a/test/fb2/reader/meta.native b/test/fb2/reader/meta.native
index 37d229755..851250296 100644
--- a/test/fb2/reader/meta.native
+++ b/test/fb2/reader/meta.native
@@ -1,43 +1,48 @@
 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"
-            ]
+  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" ]
+            )
           ]
-        )
-      ,
-        ( "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" ] ]
+  [ Header
+      1 ( "" , [] , [] ) [ Str "Body" , Space , Str "title" ]
+  ]