Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

FB2 writer: fix order of items in title-info

Browse source 
Address issue #2424
This commit is contained in:
Alexander Krotov 2018-06-12 14:48:52 +03:00
parent 8b4728e284
commit 54d16545c9
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/FB2.hs
View file

@ -135,7 +135,7 @@ description meta' = do
Just (MetaString s) -> coverimage s Just (MetaString s) -> coverimage s
_ -> return [] _ -> return []
return $ el "description" return $ el "description"
[ el "title-info" (genre : (bt ++ annotation ++ as ++ dd ++ lang)) [ el "title-info" (genre : (as ++ bt ++ annotation ++ dd ++ lang))
, el "document-info" (el "program-used" "pandoc" : coverpage) , el "document-info" (el "program-used" "pandoc" : coverpage)
] ]

2
test/writer.fb2
View file

@ -3,7 +3,6 @@
<description> <description>
<title-info> <title-info>
<genre>unrecognised</genre> <genre>unrecognised</genre>
<book-title>Pandoc Test Suite</book-title>
<author> <author>
<first-name>John</first-name> <first-name>John</first-name>
<last-name>MacFarlane</last-name> <last-name>MacFarlane</last-name>
@ -11,6 +10,7 @@
<author> <author>
<nickname>Anonymous</nickname> <nickname>Anonymous</nickname>
</author> </author>
<book-title>Pandoc Test Suite</book-title>
<date>July 17, 2006</date> <date>July 17, 2006</date>
</title-info> </title-info>
<document-info> <document-info>