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, 118 insertions, 227 deletions

diff --git a/test/opml-reader.native b/test/opml-reader.native
index bbb54e068..29623d1fc 100644
--- a/test/opml-reader.native
+++ b/test/opml-reader.native
@@ -1,232 +1,123 @@
 Pandoc
-  ( Meta
-    { unMeta = fromList
-      [
-        ( "author"
-        , MetaList
-          [ MetaInlines [ Str "Dave", Space, Str "Winer" ] ]
-        )
-      ,
-        ( "date"
-        , MetaInlines
-          [ Str "Thu,"
-          , Space
-          , Str "14"
-          , Space
-          , Str "Jul"
-          , Space
-          , Str "2005"
-          , Space
-          , Str "23:41:05"
-          , Space
-          , Str "GMT"
+  Meta
+    { unMeta =
+        fromList
+          [ ( "author"
+            , MetaList
+                [ MetaInlines [ Str "Dave" , Space , Str "Winer" ] ]
+            )
+          , ( "date"
+            , MetaInlines
+                [ Str "Thu,"
+                , Space
+                , Str "14"
+                , Space
+                , Str "Jul"
+                , Space
+                , Str "2005"
+                , Space
+                , Str "23:41:05"
+                , Space
+                , Str "GMT"
+                ]
+            )
+          , ( "title" , MetaInlines [ Str "States" ] )
           ]
-        )
-      ,
-        ( "title", MetaInlines [ Str "States" ] )
-      ]
     }
-  )
-  [ Header 1
-    ( "", [], [] )
-    [ Str "United", Space, Str "States" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Far", Space, Str "West" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Alaska" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "California" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Hawaii" ]
-  , Header 3
-    ( "", [], [] )
-    [ Strong [ Str "Nevada" ] ]
-  , Para
-    [ Str "I"
-    , Space
-    , Str "lived"
-    , Space
-    , Str "here"
-    , Space
-    , Emph
-      [ Str "once" ]
-    , Str "."
-    ]
+  [ Header
+      1 ( "" , [] , [] ) [ Str "United" , Space , Str "States" ]
+  , Header
+      2 ( "" , [] , [] ) [ Str "Far" , Space , Str "West" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Alaska" ]
+  , Header 3 ( "" , [] , [] ) [ Str "California" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Hawaii" ]
+  , Header 3 ( "" , [] , [] ) [ Strong [ Str "Nevada" ] ]
   , Para
-    [ Str "Loved", Space, Str "it." ]
-  , Header 4
-    ( "", [], [] )
-    [ Link ( "", [], [] ) [ Str "Reno" ] ( "http://www.reno.gov", "" ) ]
-  , Header 4
-    ( "", [], [] )
-    [ Str "Las", Space, Str "Vegas" ]
-  , Header 4
-    ( "", [], [] )
-    [ Str "Ely" ]
-  , Header 4
-    ( "", [], [] )
-    [ Str "Gerlach" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Oregon" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Washington" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Great", Space, Str "Plains" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Kansas" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Nebraska" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "North", Space, Str "Dakota" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Oklahoma" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "South", Space, Str "Dakota" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Mid-Atlantic" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Delaware" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Maryland" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "New", Space, Str "Jersey" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "New", Space, Str "York" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Pennsylvania" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Midwest" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Illinois" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Indiana" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Iowa" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Kentucky" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Michigan" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Minnesota" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Missouri" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Ohio" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "West", Space, Str "Virginia" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Wisconsin" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Mountains" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Colorado" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Idaho" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Montana" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Utah" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Wyoming" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "New", Space, Str "England" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Connecticut" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Maine" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Massachusetts" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "New", Space, Str "Hampshire" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Rhode", Space, Str "Island" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Vermont" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "South" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Alabama" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Arkansas" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Florida" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Georgia" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Louisiana" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Mississippi" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "North", Space, Str "Carolina" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "South", Space, Str "Carolina" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Tennessee" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Virginia" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "Southwest" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Arizona" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "New", Space, Str "Mexico" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Texas" ]
+      [ Str "I"
+      , Space
+      , Str "lived"
+      , Space
+      , Str "here"
+      , Space
+      , Emph [ Str "once" ]
+      , Str "."
+      ]
+  , Para [ Str "Loved" , Space , Str "it." ]
+  , Header
+      4
+      ( "" , [] , [] )
+      [ Link
+          ( "" , [] , [] )
+          [ Str "Reno" ]
+          ( "http://www.reno.gov" , "" )
+      ]
+  , Header
+      4 ( "" , [] , [] ) [ Str "Las" , Space , Str "Vegas" ]
+  , Header 4 ( "" , [] , [] ) [ Str "Ely" ]
+  , Header 4 ( "" , [] , [] ) [ Str "Gerlach" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Oregon" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Washington" ]
+  , Header
+      2 ( "" , [] , [] ) [ Str "Great" , Space , Str "Plains" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Kansas" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Nebraska" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "North" , Space , Str "Dakota" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Oklahoma" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "South" , Space , Str "Dakota" ]
+  , Header 2 ( "" , [] , [] ) [ Str "Mid-Atlantic" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Delaware" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Maryland" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "New" , Space , Str "Jersey" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "New" , Space , Str "York" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Pennsylvania" ]
+  , Header 2 ( "" , [] , [] ) [ Str "Midwest" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Illinois" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Indiana" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Iowa" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Kentucky" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Michigan" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Minnesota" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Missouri" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Ohio" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "West" , Space , Str "Virginia" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Wisconsin" ]
+  , Header 2 ( "" , [] , [] ) [ Str "Mountains" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Colorado" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Idaho" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Montana" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Utah" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Wyoming" ]
+  , Header
+      2 ( "" , [] , [] ) [ Str "New" , Space , Str "England" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Connecticut" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Maine" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Massachusetts" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "New" , Space , Str "Hampshire" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "Rhode" , Space , Str "Island" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Vermont" ]
+  , Header 2 ( "" , [] , [] ) [ Str "South" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Alabama" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Arkansas" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Florida" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Georgia" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Louisiana" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Mississippi" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "North" , Space , Str "Carolina" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "South" , Space , Str "Carolina" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Tennessee" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Virginia" ]
+  , Header 2 ( "" , [] , [] ) [ Str "Southwest" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Arizona" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "New" , Space , Str "Mexico" ]
+  , Header 3 ( "" , [] , [] ) [ Str "Texas" ]
   ]