Use pretty-simple to format native output.

Previously we used our own homespun formatting.  But this
produces over-long lines that aren't ideal for diffs in tests.
Easier to use something off-the-shelf and standard.

Closes #7580.

Performance is slower by about a factor of 10, but this isn't
really a problem because native isn't suitable as a serialization
format. (For serialization you should use json, because the reader
is so much faster than native.)

1 files changed, 130 insertions, 8 deletions

diff --git a/test/lhs-test-markdown.native b/test/lhs-test-markdown.native
index 7a423b1ab..db2acd318 100644
--- a/test/lhs-test-markdown.native
+++ b/test/lhs-test-markdown.native
@@ -1,8 +1,130 @@
-[Header 1 ("lhs-test",[],[]) [Str "lhs",Space,Str "test"]
-,Para [Code ("",[],[]) "unsplit",Space,Str "is",Space,Str "an",Space,Str "arrow",Space,Str "that",Space,Str "takes",Space,Str "a",Space,Str "pair",Space,Str "of",Space,Str "values",Space,Str "and",Space,Str "combines",Space,Str "them",Space,Str "to",SoftBreak,Str "return",Space,Str "a",Space,Str "single",Space,Str "value:"]
-,CodeBlock ("",["haskell","literate"],[]) "unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry\n          -- arr (\\op (x,y) -> x `op` y)"
-,Para [Code ("",[],[]) "(***)",Space,Str "combines",Space,Str "two",Space,Str "arrows",Space,Str "into",Space,Str "a",Space,Str "new",Space,Str "arrow",Space,Str "by",Space,Str "running",Space,Str "the",Space,Str "two",Space,Str "arrows",Space,Str "on",Space,Str "a",SoftBreak,Str "pair",Space,Str "of",Space,Str "values",Space,Str "(one",Space,Str "arrow",Space,Str "on",Space,Str "the",Space,Str "first",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair",Space,Str "and",Space,Str "one",Space,Str "arrow",Space,Str "on",Space,Str "the",SoftBreak,Str "second",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair)."]
-,CodeBlock ("",[],[]) "f *** g = first f >>> second g"
-,Para [Str "Block",Space,Str "quote:"]
-,BlockQuote
- [Para [Str "foo",Space,Str "bar"]]]
+[ Header 1
+  ( "lhs-test", [], [] )
+  [ Str "lhs", Space, Str "test" ]
+, Para
+  [ Code
+    ( "", [], [] ) "unsplit"
+  , Space
+  , Str "is"
+  , Space
+  , Str "an"
+  , Space
+  , Str "arrow"
+  , Space
+  , Str "that"
+  , Space
+  , Str "takes"
+  , Space
+  , Str "a"
+  , Space
+  , Str "pair"
+  , Space
+  , Str "of"
+  , Space
+  , Str "values"
+  , Space
+  , Str "and"
+  , Space
+  , Str "combines"
+  , Space
+  , Str "them"
+  , Space
+  , Str "to"
+  , SoftBreak
+  , Str "return"
+  , Space
+  , Str "a"
+  , Space
+  , Str "single"
+  , Space
+  , Str "value:"
+  ]
+, CodeBlock
+  ( ""
+  ,
+    [ "haskell", "literate" ]
+  , []
+  ) "unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry\n          -- arr (\\op (x,y) -> x `op` y)"
+, Para
+  [ Code
+    ( "", [], [] ) "(***)"
+  , Space
+  , Str "combines"
+  , Space
+  , Str "two"
+  , Space
+  , Str "arrows"
+  , Space
+  , Str "into"
+  , Space
+  , Str "a"
+  , Space
+  , Str "new"
+  , Space
+  , Str "arrow"
+  , Space
+  , Str "by"
+  , Space
+  , Str "running"
+  , Space
+  , Str "the"
+  , Space
+  , Str "two"
+  , Space
+  , Str "arrows"
+  , Space
+  , Str "on"
+  , Space
+  , Str "a"
+  , SoftBreak
+  , Str "pair"
+  , Space
+  , Str "of"
+  , Space
+  , Str "values"
+  , Space
+  , Str "(one"
+  , Space
+  , Str "arrow"
+  , Space
+  , Str "on"
+  , Space
+  , Str "the"
+  , Space
+  , Str "first"
+  , Space
+  , Str "item"
+  , Space
+  , Str "of"
+  , Space
+  , Str "the"
+  , Space
+  , Str "pair"
+  , Space
+  , Str "and"
+  , Space
+  , Str "one"
+  , Space
+  , Str "arrow"
+  , Space
+  , Str "on"
+  , Space
+  , Str "the"
+  , SoftBreak
+  , Str "second"
+  , Space
+  , Str "item"
+  , Space
+  , Str "of"
+  , Space
+  , Str "the"
+  , Space
+  , Str "pair)."
+  ]
+, CodeBlock
+  ( "", [], [] ) "f *** g = first f >>> second g"
+, Para
+  [ Str "Block", Space, Str "quote:" ]
+, BlockQuote
+  [ Para [ Str "foo", Space, Str "bar" ] ]
+]