diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 974c37d84..d8a9c6b81 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -591,7 +591,9 @@ inlineToHtml opts inline = Nothing -> return $ foldl (!) H.code (attrsToHtml opts attr) $ strToHtml str - Just h -> return $ foldl (!) h $ + Just h -> do + modify $ \st -> st{ stHighlighting = True } + return $ foldl (!) h $ attrsToHtml opts (id',[],keyvals) where (id',_,keyvals) = attr (Strikeout lst) -> inlineListToHtml opts lst >>= |