diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-09-28 21:17:53 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-28 21:17:53 -0700 |
| commit | 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1 (patch) | |
| tree | c9bda08418e67755254ad2d1d2e95dd691bd1902 /test/fb2/reader/poem.native | |
| parent | 8018179b3df34cd7fdbd77c7a08b21fd8d5b5b31 (diff) | |
| download | pandoc-0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1.tar.gz | |
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.
Diffstat (limited to 'test/fb2/reader/poem.native')
| -rw-r--r-- | test/fb2/reader/poem.native | 45 |
1 files changed, 22 insertions, 23 deletions
diff --git a/test/fb2/reader/poem.native b/test/fb2/reader/poem.native index a43466b16..2b45347e8 100644 --- a/test/fb2/reader/poem.native +++ b/test/fb2/reader/poem.native @@ -1,26 +1,25 @@ Pandoc - ( Meta { unMeta = fromList [] } ) + Meta { unMeta = fromList [] } [ Div - ( "", [ "section" ], [] ) - [ Header 2 - ( "", [], [] ) - [ Str "Poem", Space, Str "title" ] - , Div - ( "", [ "epigraph" ], [] ) - [ Para [ Str "Poem", Space, Str "epigraph" ] ] - , Header 2 - ( "", [ "unnumbered" ], [] ) - [ Str "Subtitle" ] - , Header 2 - ( "", [], [] ) - [ Str "First", Space, Str "stanza", Space, Str "title" ] - , LineBlock - [ [ Str "Verse" ], [ Emph [ Str "More" ], Space, Str "verse" ] ] - , LineBlock - [ [ Str "One", Space, Str "more", Space, Str "stanza" ] ] - , Para - [ Str "Author" ] - , Para - [ Str "April", Space, Str "2018" ] - ] + ( "" , [ "section" ] , [] ) + [ Header + 2 ( "" , [] , [] ) [ Str "Poem" , Space , Str "title" ] + , Div + ( "" , [ "epigraph" ] , [] ) + [ Para [ Str "Poem" , Space , Str "epigraph" ] ] + , Header 2 ( "" , [ "unnumbered" ] , [] ) [ Str "Subtitle" ] + , Header + 2 + ( "" , [] , [] ) + [ Str "First" , Space , Str "stanza" , Space , Str "title" ] + , LineBlock + [ [ Str "Verse" ] + , [ Emph [ Str "More" ] , Space , Str "verse" ] + ] + , LineBlock + [ [ Str "One" , Space , Str "more" , Space , Str "stanza" ] + ] + , Para [ Str "Author" ] + , Para [ Str "April" , Space , Str "2018" ] + ] ] |