From 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 28 Sep 2021 21:17:53 -0700 Subject: 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. --- test/docbook-xref.native | 333 +++++++++++++++++++++++------------------------ 1 file changed, 163 insertions(+), 170 deletions(-) (limited to 'test/docbook-xref.native') diff --git a/test/docbook-xref.native b/test/docbook-xref.native index 16113d50b..1b4ced24e 100644 --- a/test/docbook-xref.native +++ b/test/docbook-xref.native @@ -1,184 +1,177 @@ Pandoc - ( Meta - { unMeta = fromList - [ - ( "title" - , MetaInlines - [ Str "An", Space, Str "Example", Space, Str "Book" ] - ) - ] + Meta + { unMeta = + fromList + [ ( "title" + , MetaInlines + [ Str "An" + , Space + , Str "Example" + , Space + , Str "Book" + ] + ) + ] } - ) - [ Header 1 - ( "ch01", [], [] ) - [ Str "XRef", Space, Str "Samples" ] + [ Header + 1 + ( "ch01" , [] , [] ) + [ Str "XRef" , Space , Str "Samples" ] , Para - [ Str "This" - , Space - , Str "paragraph" - , Space - , Str "demonstrates" - , Space - , Str "several" - , Space - , Str "features" - , Space - , Str "of" - , SoftBreak - , Str "XRef." - ] + [ Str "This" + , Space + , Str "paragraph" + , Space + , Str "demonstrates" + , Space + , Str "several" + , Space + , Str "features" + , Space + , Str "of" + , SoftBreak + , Str "XRef." + ] , BulletList - [ - [ Para - [ Str "A" - , Space - , Str "straight" - , Space - , Str "link" - , Space - , Str "generates" - , Space - , Str "the" - , SoftBreak - , Str "cross-reference" - , Space - , Str "text:" - , Space - , Link - ( "", [], [] ) - [ Str "The", Space, Str "Second", Space, Str "Chapter" ] - ( "#ch02", "" ) - , Str "." + [ [ Para + [ Str "A" + , Space + , Str "straight" + , Space + , Str "link" + , Space + , Str "generates" + , Space + , Str "the" + , SoftBreak + , Str "cross-reference" + , Space + , Str "text:" + , Space + , Link + ( "" , [] , [] ) + [ Str "The" + , Space + , Str "Second" + , Space + , Str "Chapter" + ] + ( "#ch02" , "" ) + , Str "." + ] ] - ] - , - [ Para - [ Str "A" - , Space - , Str "link" - , Space - , Str "to" - , Space - , Str "an" - , Space - , Str "element" - , Space - , Str "with" - , Space - , Str "an" - , SoftBreak - , Str "XRefLabel:" - , SoftBreak - , Link - ( "", [], [] ) - [ Str "Chapter", Space, Str "the", Space, Str "Third" ] - ( "#ch03", "" ) - , Str "." + , [ Para + [ Str "A" + , Space + , Str "link" + , Space + , Str "to" + , Space + , Str "an" + , Space + , Str "element" + , Space + , Str "with" + , Space + , Str "an" + , SoftBreak + , Str "XRefLabel:" + , SoftBreak + , Link + ( "" , [] , [] ) + [ Str "Chapter" + , Space + , Str "the" + , Space + , Str "Third" + ] + ( "#ch03" , "" ) + , Str "." + ] ] - ] - , - [ Para - [ Str "A" - , Space - , Str "link" - , Space - , Str "with" - , Space - , Str "an" - , SoftBreak - , Str "EndTerm:" - , SoftBreak - , Link - ( "", [], [] ) - [ Str "Chapter", Space, Str "4" ] - ( "#ch04", "" ) - , Str "." + , [ Para + [ Str "A" + , Space + , Str "link" + , Space + , Str "with" + , Space + , Str "an" + , SoftBreak + , Str "EndTerm:" + , SoftBreak + , Link + ( "" , [] , [] ) + [ Str "Chapter" , Space , Str "4" ] + ( "#ch04" , "" ) + , Str "." + ] ] - ] - , - [ Para - [ Str "A" - , Space - , Str "link" - , Space - , Str "to" - , Space - , Str "an" - , SoftBreak - , Str "cmdsynopsis" - , Space - , Str "element:" - , Space - , Link - ( "", [], [] ) - [ Str "chgrp" ] - ( "#cmd01", "" ) - , Str "." + , [ Para + [ Str "A" + , Space + , Str "link" + , Space + , Str "to" + , Space + , Str "an" + , SoftBreak + , Str "cmdsynopsis" + , Space + , Str "element:" + , Space + , Link ( "" , [] , [] ) [ Str "chgrp" ] ( "#cmd01" , "" ) + , Str "." + ] ] - ] - , - [ Para - [ Str "A" - , Space - , Str "link" - , Space - , Str "to" - , Space - , Str "an" - , SoftBreak - , Str "funcsynopsis" - , Space - , Str "element:" - , Space - , Link - ( "", [], [] ) - [ Str "max" ] - ( "#func01", "" ) - , Str "." + , [ Para + [ Str "A" + , Space + , Str "link" + , Space + , Str "to" + , Space + , Str "an" + , SoftBreak + , Str "funcsynopsis" + , Space + , Str "element:" + , Space + , Link ( "" , [] , [] ) [ Str "max" ] ( "#func01" , "" ) + , Str "." + ] ] ] - ] - , Header 1 - ( "ch02", [], [] ) - [ Str "The", Space, Str "Second", Space, Str "Chapter" ] + , Header + 1 + ( "ch02" , [] , [] ) + [ Str "The" , Space , Str "Second" , Space , Str "Chapter" ] , Para - [ Str "Some", Space, Str "content", Space, Str "here" ] - , Header 1 - ( "ch03", [], [] ) - [ Str "The", Space, Str "Third", Space, Str "Chapter" ] + [ Str "Some" , Space , Str "content" , Space , Str "here" ] + , Header + 1 + ( "ch03" , [] , [] ) + [ Str "The" , Space , Str "Third" , Space , Str "Chapter" ] , Para - [ Str "Some", Space, Str "content", Space, Str "here" ] - , Header 1 - ( "ch04", [], [] ) - [ Str "The", Space, Str "Fourth", Space, Str "Chapter" ] + [ Str "Some" , Space , Str "content" , Space , Str "here" ] + , Header + 1 + ( "ch04" , [] , [] ) + [ Str "The" , Space , Str "Fourth" , Space , Str "Chapter" ] , Para - [ Str "Some", Space, Str "content", Space, Str "here" ] - , Plain - [ Str "chgrp" ] - , Plain - [ Str "-R" ] - , Plain - [ Str "-H" ] - , Plain - [ Str "-L" ] - , Plain - [ Str "-P" ] - , Plain - [ Str "-f" ] - , Plain - [ Str "group" ] - , Plain - [ Str "file" ] - , Plain - [ Str "int" ] - , Plain - [ Str "max" ] - , Plain - [ Str "int" ] - , Plain - [ Str "int1" ] - , Plain - [ Str "int" ] - , Plain - [ Str "int2" ] + [ Str "Some" , Space , Str "content" , Space , Str "here" ] + , Plain [ Str "chgrp" ] + , Plain [ Str "-R" ] + , Plain [ Str "-H" ] + , Plain [ Str "-L" ] + , Plain [ Str "-P" ] + , Plain [ Str "-f" ] + , Plain [ Str "group" ] + , Plain [ Str "file" ] + , Plain [ Str "int" ] + , Plain [ Str "max" ] + , Plain [ Str "int" ] + , Plain [ Str "int1" ] + , Plain [ Str "int" ] + , Plain [ Str "int2" ] ] -- cgit v1.2.3