diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 11:58:30 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 11:58:30 -0700 |
| commit | 0deb7c507d85c1f17b31670f617b2f5d2029a16c (patch) | |
| tree | 8fd3adad4d746589a4f614839e880476c1202726 /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 967c13560e26dcca60261737a8f30bf7297ea4ea (diff) | |
| parent | b9f77ed03d0e4a0651d7508d563e880556690fcf (diff) | |
Merge pull request #1989 from zudov/shortcut_ref_link_pr
Support shortcut reference links in markdown writer
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index fcd18fdc0..a36c2acde 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1677,6 +1677,7 @@ referenceLink constructor (lab, raw) = do lookAhead (try (spnl >> normalCite >> return (mempty, ""))) <|> try (spnl >> reference) + when (raw' == "") $ guardEnabled Ext_shortcut_reference_links let labIsRef = raw' == "" || raw' == "[]" let key = toKey $ if labIsRef then raw else raw' parsedRaw <- parseFromString (mconcat <$> many inline) raw' |