@@ -641,7 +641,8 @@ inlineToHtml opts inline =
641641 anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref),
642642 theclass "footnoteRef",
643643 prefixedId opts ("fnref" ++ ref)] << ref
644− (Cite _ il) -> inlineListToHtml opts il
644+ (Cite _ il) -> do contents <- inlineListToHtml opts il
645+ return $ thespan ! [theclass "citation"] << contents
645646
646647blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
647648blockListToNote opts ref blocks =