diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-25 22:16:45 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-25 22:16:45 +0300 |
| commit | 79592db66c828d3c3f2a2052b186da03a98ef3c5 (patch) | |
| tree | 4ac95184a4565df26142ace3a6568421fcaedf26 /src/Text | |
| parent | a3f659d2c0bccd01d2eceba8756c728f90d4f231 (diff) | |
| download | pandoc-79592db66c828d3c3f2a2052b186da03a98ef3c5.tar.gz | |
Muse reader: allow links to have empty descriptions
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index d40e74c96..3e6130585 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -931,7 +931,7 @@ link = try $ do linkContent :: PandocMonad m => MuseParser m (F Inlines) linkContent = do char '[' - trimInlinesF . mconcat <$> many1Till inline (string "]") + trimInlinesF . mconcat <$> manyTill inline (string "]") linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines)) linkText = do |