@@ -135,8 +135,9 @@ description meta' = do
135 Just (MetaString s) -> coverimage s
135 Just (MetaString s) -> coverimage s
136 _ -> return []
136 _ -> return []
137 return $ el "description"
137 return $ el "description"
138− [ el "title-info" (genre : (as ++ bt ++ annotation ++ dd ++ lang))
138+ [ el "title-info" (genre :
139+ (as ++ bt ++ annotation ++ dd ++ coverpage ++ lang))
139− , el "document-info" (el "program-used" "pandoc" : coverpage)
140+ , el "document-info" [el "program-used" "pandoc"]
142booktitle :: PandocMonad m => Meta -> FBM m [Content]
143booktitle :: PandocMonad m => Meta -> FBM m [Content]