@@ -554,8 +554,11 @@ blockToLaTeX (CodeBlock (identifier,classes,keyvalAttr) str) = do
554 unless (null msg) $
554 unless (null msg) $
555 report $ CouldNotHighlight msg
555 report $ CouldNotHighlight msg
556 rawCodeBlock
556 rawCodeBlock
559+ when (stInNote st) $ modify (\s -> s{ stVerbInNote = True })
557− Right h -> modify (\st -> st{ stHighlighting = True }) >>
560+ modify (\s -> s{ stHighlighting = True })
558− return (flush $ linkAnchor $$ text (T.unpack h))
561+ return (flush $ linkAnchor $$ text (T.unpack h))
559 case () of
562 case () of
560 _ | isEnabled Ext_literate_haskell opts && "haskell" `elem` classes &&
563 _ | isEnabled Ext_literate_haskell opts && "haskell" `elem` classes &&
561 "literate" `elem` classes -> lhsCodeBlock
564 "literate" `elem` classes -> lhsCodeBlock