@@ -641,7 +641,8 @@ inlineToHtml opts inline =
641 anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref),
641 anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref),
642 theclass "footnoteRef",
642 theclass "footnoteRef",
643 prefixedId opts ("fnref" ++ ref)] << ref
643 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
646blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
647blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
647blockListToNote opts ref blocks =
648blockListToNote opts ref blocks =