diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown/Inline.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs index e7be4fc21..235e521be 100644 --- a/src/Text/Pandoc/Writers/Markdown/Inline.hs +++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs @@ -657,7 +657,8 @@ inlineToMarkdown opts lnk@(Link attr@(ident,classes,kvs) txt (src, tit)) = do let useRefLinks = writerReferenceLinks opts && not useAuto shortcutable <- asks envRefShortcutable let useShortcutRefLinks = shortcutable && - isEnabled Ext_shortcut_reference_links opts + (variant == Commonmark || + isEnabled Ext_shortcut_reference_links opts) reftext <- if useRefLinks then literal <$> getReference attr linktext (src, tit) else return mempty |