diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-15 14:50:46 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-15 14:50:46 +0300 |
| commit | 9cc2bf0295a66182223c9ec421a4755d1acebeb1 (patch) | |
| tree | 591dffaed622060bff681077034d2cddd43de359 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | 6be013914513d2dd8ef7f141b1e3fd59cee7d3f7 (diff) | |
| download | pandoc-9cc2bf0295a66182223c9ec421a4755d1acebeb1.tar.gz | |
Muse reader: allow URL to be empty
Muse writer can write links with empty URLs, so Muse reader should read them.
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -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 0da8bbdcc..0dba0c4cb 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -972,7 +972,7 @@ linkContent = char '[' >> trimInlinesF . mconcat <$> manyTill inline (string "]" linkText :: PandocMonad m => MuseParser m (String, Maybe (F Inlines)) linkText = do string "[[" - url <- many1Till anyChar $ char ']' + url <- manyTill anyChar $ char ']' content <- optionMaybe linkContent char ']' return (url, content) |