@@ -112,6 +112,7 @@ pandocToFB2 opts (Pandoc meta blocks) = do
112112
113113description :: PandocMonad m => Meta -> FBM m Content
114114description meta' = do
115+ let genre = el "genre" "unrecognised"
115116 bt <- booktitle meta'
116117 let as = authors meta'
117118 dd <- docdate meta'
@@ -121,7 +122,7 @@ description meta' = do
121122 _ -> []
122123 where iso639 = takeWhile (/= '-') -- Convert BCP 47 to ISO 639
123124 return $ el "description"
124− [ el "title-info" (bt ++ as ++ dd ++ lang)
125+ [ el "title-info" (genre : (bt ++ as ++ dd ++ lang))
125126 , el "document-info" [ el "program-used" "pandoc" ] -- FIXME: +version
126127 ]
127128