diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 11:14:15 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 11:14:15 +0300 |
| commit | fc5d79b6e9753a620b4e6754b8a5e1ea1163f119 (patch) | |
| tree | b173e9c1b71662aa817f3f3d8d36175c1fe04d77 /src/Text/Pandoc/Readers | |
| parent | c36c02e58d3262a117c00681d4a3525c96eaf383 (diff) | |
| download | pandoc-fc5d79b6e9753a620b4e6754b8a5e1ea1163f119.tar.gz | |
Muse reader: parse link text without parseFromString
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 8455f983c..2d424ec81 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -763,8 +763,7 @@ link = try $ do linkContent :: PandocMonad m => MuseParser m (F Inlines) linkContent = do char '[' - res <- many1Till anyChar $ char ']' - parseFromString (mconcat <$> many1 inline) res + trimInlinesF . mconcat <$> many1Till inline (string "]") linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines)) linkText = do |