pandoc/test/rtf/heading.native

Pandoc
  ( Meta { unMeta = fromList [] } )
  [ Header 1
    ( "", [], [] )
    [ Str "Heading", Space, Str "1" ]
  , Header 2
    ( "", [], [] )
    [ Str "Heading", Space, Str "2" ]
  , Header 3
    ( "", [], [] )
    [ Str "Heading", Space, Str "3" ]
  , Para
    [ Str "Paragraph" ]
  ]
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.) 2021-09-19 21:09:51 +02:00			`Pandoc`
			`( Meta { unMeta = fromList [] } )`
			`[ Header 1`
			`( "", [], [] )`
			`[ Str "Heading", Space, Str "1" ]`
			`, Header 2`
			`( "", [], [] )`
			`[ Str "Heading", Space, Str "2" ]`
			`, Header 3`
			`( "", [], [] )`
			`[ Str "Heading", Space, Str "3" ]`
			`, Para`
			`[ Str "Paragraph" ]`
			`]`