@@ -776,8 +776,8 @@ blockToHtml opts (CodeBlock (id',classes,keyvals) rawCode) = do
776776 then do
777777 modify $ \st -> st{ stCodeBlockNum = stCodeBlockNum st + 1 }
778778 codeblocknum <- gets stCodeBlockNum
779− return ("cb" ++ show codeblocknum)
780− else return id'
779+ return (writerIdentifierPrefix opts ++ "cb" ++ show codeblocknum)
780+ else return (writerIdentifierPrefix opts ++ id')
781781 let tolhs = isEnabled Ext_literate_haskell opts &&
782782 any (\c -> map toLower c == "haskell") classes &&
783783 any (\c -> map toLower c == "literate") classes
@@ -800,7 +800,9 @@ blockToHtml opts (CodeBlock (id',classes,keyvals) rawCode) = do
800800 addAttrs opts (id',classes,keyvals)
801801 $ H.pre $ H.code $ toHtml adjCode
802802 Right h -> modify (\st -> st{ stHighlighting = True }) >>
803− addAttrs opts (id'',[],keyvals) h
803+ -- we set writerIdentifierPrefix to "" since id'' already
804+ -- includes it:
805+ addAttrs opts{writerIdentifierPrefix = ""} (id'',[],keyvals) h
804806blockToHtml opts (BlockQuote blocks) = do
805807 -- in S5, treat list in blockquote specially
806808 -- if default is incremental, make it nonincremental;