From 54d16545c970dcb3fefdd16f2f48c6dfaefff727 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 12 Jun 2018 14:48:52 +0300
Subject: [PATCH] FB2 writer: fix order of items in title-info

Address issue #2424
---
 src/Text/Pandoc/Writers/FB2.hs | 2 +-
 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>