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/tikiwiki-reader.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/tikiwiki-reader.native')
-rw-r--r-- | test/tikiwiki-reader.native | 1374 |
1 files changed, 694 insertions, 680 deletions
diff --git a/test/tikiwiki-reader.native b/test/tikiwiki-reader.native index eb10421da..3a3f1038f 100644 --- a/test/tikiwiki-reader.native +++ b/test/tikiwiki-reader.native @@ -1,761 +1,775 @@ Pandoc - ( Meta { unMeta = fromList [] } ) - [ Header 1 - ( "header", [], [] ) - [ Str "header" ] - , Header 2 - ( "header-level-two", [], [] ) - [ Str "header", Space, Str "level", Space, Str "two" ] - , Header 3 - ( "header-level-3", [], [] ) - [ Str "header", Space, Str "level", Space, Str "3" ] - , Header 4 - ( "header-_level_-four", [], [] ) - [ Str "header", Space, Str "_level_", Space, Str "four" ] - , Header 5 - ( "header-level-5", [], [] ) - [ Str "header", Space, Str "level", Space, Str "5" ] - , Header 6 - ( "header-level-6", [], [] ) - [ Str "header", Space, Str "level", Space, Str "6" ] - , Para - [ Str "!!!!!!!" - , Space - , Str "not" - , Space - , Str "a" - , Space - , Str "header" - ] - , Para - [ Str "--++" - , Space - , Str "not" - , Space - , Str "a" - , Space - , Str "header" - ] - , Header 1 - ( "emph-and-strong", [], [] ) - [ Str "emph", Space, Str "and", Space, Str "strong" ] + Meta { unMeta = fromList [] } + [ Header 1 ( "header" , [] , [] ) [ Str "header" ] + , Header + 2 + ( "header-level-two" , [] , [] ) + [ Str "header" , Space , Str "level" , Space , Str "two" ] + , Header + 3 + ( "header-level-3" , [] , [] ) + [ Str "header" , Space , Str "level" , Space , Str "3" ] + , Header + 4 + ( "header-_level_-four" , [] , [] ) + [ Str "header" + , Space + , Str "_level_" + , Space + , Str "four" + ] + , Header + 5 + ( "header-level-5" , [] , [] ) + [ Str "header" , Space , Str "level" , Space , Str "5" ] + , Header + 6 + ( "header-level-6" , [] , [] ) + [ Str "header" , Space , Str "level" , Space , Str "6" ] , Para - [ Emph [ Str "emph" ], Space, Strong [ Str "strong" ] ] + [ Str "!!!!!!!" + , Space + , Str "not" + , Space + , Str "a" + , Space + , Str "header" + ] , Para - [ Emph - [ Strong - [ Str "strong" - , Space - , Str "and" - , Space - , Str "emph" - , Space - , Str "1" - ] + [ Str "--++" + , Space + , Str "not" + , Space + , Str "a" + , Space + , Str "header" ] - ] + , Header + 1 + ( "emph-and-strong" , [] , [] ) + [ Str "emph" , Space , Str "and" , Space , Str "strong" ] + , Para + [ Emph [ Str "emph" ] , Space , Strong [ Str "strong" ] ] , Para - [ Strong [ Emph - [ Str "strong" - , Space - , Str "and" - , Space - , Str "emph" - , Space - , Str "2" - ] + [ Strong + [ Str "strong" + , Space + , Str "and" + , Space + , Str "emph" + , Space + , Str "1" + ] + ] ] - ] , Para - [ Strong - [ Emph [ Str "emph", Space, Str "inside" ], Space, Str "strong" ] - ] + [ Strong + [ Emph + [ Str "strong" + , Space + , Str "and" + , Space + , Str "emph" + , Space + , Str "2" + ] + ] + ] , Para - [ Strong - [ Str "strong", Space, Str "with", Space, Emph [ Str "emph" ] ] - ] + [ Strong + [ Emph [ Str "emph" , Space , Str "inside" ] + , Space + , Str "strong" + ] + ] , Para - [ Emph [ Strong - [ Str "strong", Space, Str "inside" ] - , Space - , Str "emph" + [ Str "strong" + , Space + , Str "with" + , Space + , Emph [ Str "emph" ] + ] ] - ] - , Header 1 - ( "horizontal-rule", [], [] ) - [ Str "horizontal", Space, Str "rule" ] , Para - [ Str "top" ] + [ Emph + [ Strong [ Str "strong" , Space , Str "inside" ] + , Space + , Str "emph" + ] + ] + , Header + 1 + ( "horizontal-rule" , [] , [] ) + [ Str "horizontal" , Space , Str "rule" ] + , Para [ Str "top" ] , HorizontalRule - , Para - [ Str "bottom" ] + , Para [ Str "bottom" ] , HorizontalRule - , Header 1 - ( "nop", [], [] ) - [ Str "nop" ] - , Para - [ Str "__not emph__" ] - , Header 1 - ( "entities", [], [] ) - [ Str "entities" ] - , Para - [ Str "hi", Space, Str "&", Space, Str "low" ] - , Para - [ Str "hi", Space, Str "&", Space, Str "low" ] - , Para - [ Str "G\246del" ] - , Para - [ Str "\777\2730" ] - , Header 1 - ( "linebreaks", [], [] ) - [ Str "linebreaks" ] - , Para - [ Str "hi", LineBreak, Str "there" ] - , Para - [ Str "hi", LineBreak, Str "there" ] - , Header 1 - ( "inline-code", [], [] ) - [ Str "inline", Space, Str "code" ] - , Para - [ Code - ( "", [], [] ) "*\8594*" - , Space - , Code - ( "", [], [] ) "typed" - , Space - , Code - ( "", [], [] ) ">>=" - ] - , Header 1 - ( "code-blocks", [], [] ) - [ Str "code", Space, Str "blocks" ] - , CodeBlock - ( "" - , [] - , [] - ) "\ncase xs of\n (_:_) -> reverse xs\n [] -> ['*']\n" - , CodeBlock - ( "" - , [ "haskell" ] - , - [ ( "colors", "haskell" ), ( "ln", "0" ) ] - ) "\ncase xs of\n (_:_) -> reverse xs\n [] -> ['*']\n" - , Header 1 - ( "external-links", [], [] ) - [ Str "external", Space, Str "links" ] + , Header 1 ( "nop" , [] , [] ) [ Str "nop" ] + , Para [ Str "__not emph__" ] + , Header 1 ( "entities" , [] , [] ) [ Str "entities" ] + , Para [ Str "hi" , Space , Str "&" , Space , Str "low" ] + , Para [ Str "hi" , Space , Str "&" , Space , Str "low" ] + , Para [ Str "G\246del" ] + , Para [ Str "\777\2730" ] + , Header 1 ( "linebreaks" , [] , [] ) [ Str "linebreaks" ] + , Para [ Str "hi" , LineBreak , Str "there" ] + , Para [ Str "hi" , LineBreak , Str "there" ] + , Header + 1 + ( "inline-code" , [] , [] ) + [ Str "inline" , Space , Str "code" ] , Para - [ Link - ( "", [], [] ) - [ Emph - [ Str "Google" ] + [ Code ( "" , [] , [] ) "*\8594*" , Space - , Str "search" + , Code ( "" , [] , [] ) "typed" , Space - , Str "engine" + , Code ( "" , [] , [] ) ">>=" ] - ( "http://google.com", "" ) - ] - , Para - [ Link - ( "", [], [] ) - [ Str "http://pandoc.org" ] - ( "http://pandoc.org", "" ) - ] + , Header + 1 + ( "code-blocks" , [] , [] ) + [ Str "code" , Space , Str "blocks" ] + , CodeBlock + ( "" , [] , [] ) + "\ncase xs of\n (_:_) -> reverse xs\n [] -> ['*']\n" + , CodeBlock + ( "" + , [ "haskell" ] + , [ ( "colors" , "haskell" ) , ( "ln" , "0" ) ] + ) + "\ncase xs of\n (_:_) -> reverse xs\n [] -> ['*']\n" + , Header + 1 + ( "external-links" , [] , [] ) + [ Str "external" , Space , Str "links" ] , Para - [ Link - ( "", [], [] ) - [ Str "http://google.com" ] - ( "http://google.com", "" ) - , Space - , Link - ( "", [], [] ) - [ Str "http://yahoo.com" ] - ( "http://yahoo.com", "" ) - ] + [ Link + ( "" , [] , [] ) + [ Emph [ Str "Google" ] + , Space + , Str "search" + , Space + , Str "engine" + ] + ( "http://google.com" , "" ) + ] , Para - [ Link - ( "", [], [] ) - [ Str "email", Space, Str "me" ] - ( "mailto:info@example.org", "" ) - ] + [ Link + ( "" , [] , [] ) + [ Str "http://pandoc.org" ] + ( "http://pandoc.org" , "" ) + ] , Para - [ Str "http://google.com" ] + [ Link + ( "" , [] , [] ) + [ Str "http://google.com" ] + ( "http://google.com" , "" ) + , Space + , Link + ( "" , [] , [] ) + [ Str "http://yahoo.com" ] + ( "http://yahoo.com" , "" ) + ] , Para - [ Str "info@example.org" ] - , Header 1 - ( "lists", [], [] ) - [ Str "lists" ] + [ Link + ( "" , [] , [] ) + [ Str "email" , Space , Str "me" ] + ( "mailto:info@example.org" , "" ) + ] + , Para [ Str "http://google.com" ] + , Para [ Str "info@example.org" ] + , Header 1 ( "lists" , [] , [] ) [ Str "lists" ] , BulletList - [ - [ Plain [ Str "Start", Space, Str "each", Space, Str "line" ] ] - , - [ Plain - [ Str "with" - , Space - , Str "an" - , Space - , Str "asterisk" - , Space - , Str "(*)." + [ [ Plain + [ Str "Start" , Space , Str "each" , Space , Str "line" ] ] - , BulletList - [ - [ Plain - [ Str "More" + , [ Plain + [ Str "with" , Space - , Str "asterisks" + , Str "an" , Space - , Str "gives" + , Str "asterisk" , Space - , Str "deeper" + , Str "(*)." ] - , BulletList - [ - [ Plain - [ Str "and", Space, Str "deeper", Space, Str "levels." ] + , BulletList + [ [ Plain + [ Str "More" + , Space + , Str "asterisks" + , Space + , Str "gives" + , Space + , Str "deeper" + ] + , BulletList + [ [ Plain + [ Str "and" + , Space + , Str "deeper" + , Space + , Str "levels." + ] + ] + ] ] ] - ] - ] - ] - , - [ Plain - [ Str "Line" - , Space - , Str "breaks" - , LineBreak - , Str "don't" - , Space - , Str "break" - , Space - , Str "levels." - ] - ] - , - [ Plain - [ Str "Continuations" - , Space - , Str "are" - , Space - , Str "also" - , Space - , Str "possible" ] - , BulletList - [ - [ Plain - [ Str "and" + , [ Plain + [ Str "Line" , Space - , Str "do" - , Space - , Str "not" + , Str "breaks" + , LineBreak + , Str "don't" , Space , Str "break" , Space - , Str "the" + , Str "levels." + ] + ] + , [ Plain + [ Str "Continuations" , Space - , Str "list" + , Str "are" + , Space + , Str "also" , Space - , Str "flow" + , Str "possible" + ] + , BulletList + [ [ Plain + [ Str "and" + , Space + , Str "do" + , Space + , Str "not" + , Space + , Str "break" + , Space + , Str "the" + , Space + , Str "list" + , Space + , Str "flow" + ] + ] ] - ] ] + , [ Plain [ Str "Level" , Space , Str "one" ] ] ] - , - [ Plain [ Str "Level", Space, Str "one" ] ] - ] , Para - [ Str "Any" - , Space - , Str "other" - , Space - , Str "start" - , Space - , Str "ends" - , Space - , Str "the" - , Space - , Str "list." - ] + [ Str "Any" + , Space + , Str "other" + , Space + , Str "start" + , Space + , Str "ends" + , Space + , Str "the" + , Space + , Str "list." + ] , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain [ Str "Start", Space, Str "each", Space, Str "line" ] ] - , - [ Plain - [ Str "with" - , Space - , Str "a" - , Space - , Str "number" - , Space - , Str "(1.)." + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Str "Start" , Space , Str "each" , Space , Str "line" ] ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain - [ Str "More" - , Space - , Str "number" + , [ Plain + [ Str "with" , Space - , Str "signs" + , Str "a" , Space - , Str "gives" + , Str "number" , Space - , Str "deeper" + , Str "(1.)." ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain [ Str "and", Space, Str "deeper" ] ] - , - [ Plain [ Str "levels." ] ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Str "More" + , Space + , Str "number" + , Space + , Str "signs" + , Space + , Str "gives" + , Space + , Str "deeper" + ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain [ Str "and" , Space , Str "deeper" ] ] + , [ Plain [ Str "levels." ] ] + ] + ] ] - ] ] - ] - , - [ Plain - [ Str "Line" - , Space - , Str "breaks" - , LineBreak - , Str "don't" - , Space - , Str "break" - , Space - , Str "levels." + , [ Plain + [ Str "Line" + , Space + , Str "breaks" + , LineBreak + , Str "don't" + , Space + , Str "break" + , Space + , Str "levels." + ] ] + , [ Plain [ Str "Blank" , Space , Str "lines" ] ] ] - , - [ Plain [ Str "Blank", Space, Str "lines" ] ] - ] , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain - [ Str "end" - , Space - , Str "the" - , Space - , Str "list" - , Space - , Str "and" - , Space - , Str "start" - , Space - , Str "another." - ] - ] - ] - , Para - [ Str "Any" - , Space - , Str "other" - , Space - , Str "start" - , Space - , Str "also" - , Space - , Str "ends" - , Space - , Str "the" - , Space - , Str "list." - ] - , DefinitionList - [ - ( - [ Str "item", Space, Str "1" ] - , - [ [ Plain [ Str "definition", Space, Str "1" ] ] ] - ) - , - ( - [ Str "item", Space, Str "2" ] - , - [ - [ Plain - [ Str "definition" + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Str "end" , Space - , Str "2-1" + , Str "the" , Space - , Str "definition" + , Str "list" , Space - , Str "2-2" + , Str "and" + , Space + , Str "start" + , Space + , Str "another." ] - ] - ] - ) - , - ( - [ Str "item", Space, Emph [ Str "3" ] ] - , - [ [ Plain [ Str "definition", Space, Emph [ Str "3" ] ] ] ] - ) - ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain [ Str "one" ] ] - , - [ Plain - [ Str "two" ] - , BulletList - [ - [ Plain [ Str "two", Space, Str "point", Space, Str "one" ] ] - , - [ Plain [ Str "two", Space, Str "point", Space, Str "two" ] ] ] ] - , - [ Plain [ Str "three" ] ] - , - [ Plain [ Str "four" ] ] - , - [ Plain - [ Str "five" ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain - [ Str "five", Space, Str "sub", Space, Str "1" ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain - [ Str "five" - , Space - , Str "sub" + , Para + [ Str "Any" + , Space + , Str "other" + , Space + , Str "start" + , Space + , Str "also" + , Space + , Str "ends" + , Space + , Str "the" + , Space + , Str "list." + ] + , DefinitionList + [ ( [ Str "item" , Space , Str "1" ] + , [ [ Plain [ Str "definition" , Space , Str "1" ] ] ] + ) + , ( [ Str "item" , Space , Str "2" ] + , [ [ Plain + [ Str "definition" , Space - , Str "1" + , Str "2-1" , Space - , Str "sub" + , Str "definition" , Space - , Str "1" + , Str "2-2" ] - ] ] ] - , - [ Plain [ Str "five", Space, Str "sub", Space, Str "2" ] ] - ] - ] - ] - , Header 1 - ( "tables", [], [] ) - [ Str "tables" ] - , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - ] + ) + , ( [ Str "item" , Space , Emph [ Str "3" ] ] + , [ [ Plain [ Str "definition" , Space , Emph [ Str "3" ] ] + ] + ] + ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Orange" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Apple" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Bread" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Pie" ] ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain [ Str "one" ] ] + , [ Plain [ Str "two" ] + , BulletList + [ [ Plain + [ Str "two" + , Space + , Str "point" + , Space + , Str "one" + ] + ] + , [ Plain + [ Str "two" + , Space + , Str "point" + , Space + , Str "two" + ] + ] + ] ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Butter" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Ice", Space, Str "cream" ] ] + , [ Plain [ Str "three" ] ] + , [ Plain [ Str "four" ] ] + , [ Plain [ Str "five" ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Str "five" , Space , Str "sub" , Space , Str "1" ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Str "five" + , Space + , Str "sub" + , Space + , Str "1" + , Space + , Str "sub" + , Space + , Str "1" + ] + ] + ] + ] + , [ Plain + [ Str "five" , Space , Str "sub" , Space , Str "2" ] + ] + ] ] ] - ] - ( TableFoot ( "", [], [] ) [] ) + , Header 1 ( "tables" , [] , [] ) [ Str "tables" ] , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - ] + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Orange" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Apple" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Bread" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Pie" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Strong [ Str "Butter" ] ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Ice", Space, Str "cream" ] ] - ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Orange" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Apple" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Bread" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Pie" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Butter" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Ice" , Space , Str "cream" ] ] + ] + ] ] - ] - ( TableFoot ( "", [], [] ) [] ) + (TableFoot ( "" , [] , [] ) []) , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - ] + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Orange" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Apple" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain - [ Str "Bread" - , LineBreak - , LineBreak - , Str "and" - , Space - , Str "cheese" - ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Orange" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Apple" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Bread" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Pie" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Strong [ Str "Butter" ] ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Ice" , Space , Str "cream" ] ] + ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain - [ Str "Pie" - , LineBreak - , LineBreak - , Strong - [ Str "apple" ] - , Space - , Str "and" - , Space - , Emph - [ Str "carrot" ] - , Space - ] + ] + (TableFoot ( "" , [] , [] ) []) + , Table + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) + ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Orange" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Apple" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Str "Bread" + , LineBreak + , LineBreak + , Str "and" + , Space + , Str "cheese" + ] + ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Str "Pie" + , LineBreak + , LineBreak + , Strong [ Str "apple" ] + , Space + , Str "and" + , Space + , Emph [ Str "carrot" ] + , Space + ] + ] + ] ] - ] ] - ] - ( TableFoot ( "", [], [] ) [] ) + (TableFoot ( "" , [] , [] ) []) , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "" ] ] - ] + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Orange", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Apple", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "more" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Bread", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Pie", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "more" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Butter", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "Ice", Space, Str "cream", Space ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Space, Str "and", Space, Str "more", Space ] ] - ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "" ] ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "Orange" , Space ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "Apple" , Space ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "more" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "Bread" , Space ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "Pie" , Space ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "more" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Space , Str "Butter" , Space ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Space + , Str "Ice" + , Space + , Str "cream" + , Space + ] + ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Space , Str "and" , Space , Str "more" , Space ] + ] + ] + ] ] - ] - ( TableFoot ( "", [], [] ) [] ) + (TableFoot ( "" , [] , [] ) []) ] |