diff options
| author | d-dorazio <daniele.dorazio@adroll.com> | 2017-10-12 23:11:57 +0200 |
|---|---|---|
| committer | d-dorazio <daniele.dorazio@adroll.com> | 2017-10-13 12:00:28 +0200 |
| commit | 8dd8f492c16aa87f074ff3229941007be77e46c2 (patch) | |
| tree | 0070d0ef2ac6698c916cb6440c7c579f974e1a54 /src | |
| parent | 3720005c53679317aea05f8b9ce53d1451adba69 (diff) | |
| download | pandoc-8dd8f492c16aa87f074ff3229941007be77e46c2.tar.gz | |
markdown writer: always write bracketed_spans' attributes
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 0221ba6ef..a54f4eb85 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -952,8 +952,10 @@ inlineToMarkdown opts (Span attrs ils) = do True -> contents False | attrs == nullAttr -> contents | isEnabled Ext_bracketed_spans opts -> - "[" <> contents <> "]" <> - linkAttributes opts attrs + let attrs' = if attrs /= nullAttr + then attrsToMarkdown attrs + else empty + in "[" <> contents <> "]" <> attrs' | isEnabled Ext_raw_html opts || isEnabled Ext_native_spans opts -> tagWithAttrs "span" attrs <> contents <> text "</span>" |