diff options
Diffstat (limited to 'test/fb2/reader/meta.native')
-rw-r--r-- | test/fb2/reader/meta.native | 85 |
1 files changed, 45 insertions, 40 deletions
diff --git a/test/fb2/reader/meta.native b/test/fb2/reader/meta.native index 37d229755..851250296 100644 --- a/test/fb2/reader/meta.native +++ b/test/fb2/reader/meta.native @@ -1,43 +1,48 @@ Pandoc - ( Meta - { unMeta = fromList - [ - ( "abstract" - , MetaBlocks - [ Para - [ Str "Book", Space, Str "annotation" ] - , Para - [ Str "Second" - , Space - , Str "paragraph" - , Space - , Str "of" - , Space - , Str "book" - , Space - , Str "annotation" - ] + Meta + { unMeta = + fromList + [ ( "abstract" + , MetaBlocks + [ Para [ Str "Book" , Space , Str "annotation" ] + , Para + [ Str "Second" + , Space + , Str "paragraph" + , Space + , Str "of" + , Space + , Str "book" + , Space + , Str "annotation" + ] + ] + ) + , ( "author" + , MetaList + [ MetaInlines + [ Str "First" + , Space + , Str "Middle" + , Space + , Str "Last" + ] + , MetaInlines [ Str "Another" , Space , Str "Author" ] + ] + ) + , ( "date" , MetaInlines [ Str "2018" ] ) + , ( "keywords" + , MetaList + [ MetaString "foo" + , MetaString "bar" + , MetaString "baz" + ] + ) + , ( "title" + , MetaInlines [ Str "Book" , Space , Str "title" ] + ) ] - ) - , - ( "author" - , MetaList - [ MetaInlines - [ Str "First", Space, Str "Middle", Space, Str "Last" ] - , MetaInlines - [ Str "Another", Space, Str "Author" ] - ] - ) - , - ( "date", MetaInlines [ Str "2018" ] ) - , - ( "keywords" - , MetaList - [ MetaString "foo", MetaString "bar", MetaString "baz" ] - ) - , - ( "title", MetaInlines [ Str "Book", Space, Str "title" ] ) - ] } - ) - [ Header 1 ( "", [], [] ) [ Str "Body", Space, Str "title" ] ] + [ Header + 1 ( "" , [] , [] ) [ Str "Body" , Space , Str "title" ] + ] |