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