From 79592db66c828d3c3f2a2052b186da03a98ef3c5 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 25 Mar 2018 22:16:45 +0300
Subject: [PATCH] Muse reader: allow links to have empty descriptions
---
src/Text/Pandoc/Readers/Muse.hs | 2 +-
test/Tests/Readers/Muse.hs | 3 +++
2 files changed, 4 insertions(+), 1 deletion(-)
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
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 3dc9b0917..7d2c8665c 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -186,6 +186,9 @@ tests =
, "Link with description" =:
"[[https://amusewiki.org/][A Muse Wiki]]" =?>
para (link "https://amusewiki.org/" "" (text "A Muse Wiki"))
+ , "Link with empty description" =:
+ "[[https://amusewiki.org/][]]" =?>
+ para (link "https://amusewiki.org/" "" (text ""))
, "Image" =:
"[[image.jpg]]" =?>
para (image "image.jpg" "" mempty)