diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-06-12 14:48:52 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-06-12 14:48:52 +0300 |
| commit | 54d16545c970dcb3fefdd16f2f48c6dfaefff727 (patch) | |
| tree | 067b567152f714b5da746d9de35e55c4f186fa05 | |
| parent | 8b4728e2849898bd3d6ff151b6585db4a5626fba (diff) | |
| download | pandoc-54d16545c970dcb3fefdd16f2f48c6dfaefff727.tar.gz | |
FB2 writer: fix order of items in title-info
Address issue #2424
| -rw-r--r-- | src/Text/Pandoc/Writers/FB2.hs | 2 | ||||
| -rw-r--r-- | test/writer.fb2 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs index a46011a8f..bac3121d9 100644 --- a/src/Text/Pandoc/Writers/FB2.hs +++ b/src/Text/Pandoc/Writers/FB2.hs @@ -135,7 +135,7 @@ description meta' = do Just (MetaString s) -> coverimage s _ -> return [] 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) ] diff --git a/test/writer.fb2 b/test/writer.fb2 index b2d002230..6940e6217 100644 --- a/test/writer.fb2 +++ b/test/writer.fb2 @@ -3,7 +3,6 @@ <description> <title-info> <genre>unrecognised</genre> -<book-title>Pandoc Test Suite</book-title> <author> <first-name>John</first-name> <last-name>MacFarlane</last-name> @@ -11,6 +10,7 @@ <author> <nickname>Anonymous</nickname> </author> +<book-title>Pandoc Test Suite</book-title> <date>July 17, 2006</date> </title-info> <document-info> |