Muse reader: allow links to have empty descriptions
commit79592db66c828d3c3f2a2052b186da03a98ef3c5
authorAlexander Krotov <ilabdsf@gmail.com>
dateSun 25 Mar 2018, 22:16 (9 years ago)
parenta3f659d
src/Text/Pandoc/Readers/Muse.hs+1−1
@@ -931,7 +931,7 @@ link = try $ do
931931linkContent :: PandocMonad m => MuseParser m (F Inlines)
932932linkContent = do
933933 char '['
934− trimInlinesF . mconcat <$> many1Till inline (string "]")
934+ trimInlinesF . mconcat <$> manyTill inline (string "]")
935935
936936linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines))
937937linkText = do
test/Tests/Readers/Muse.hs+3
@@ -186,6 +186,9 @@ tests =
186186 , "Link with description" =:
187187 "[[https://amusewiki.org/][A Muse Wiki]]" =?>
188188 para (link "https://amusewiki.org/" "" (text "A Muse Wiki"))
189+ , "Link with empty description" =:
190+ "[[https://amusewiki.org/][]]" =?>
191+ para (link "https://amusewiki.org/" "" (text ""))
189192 , "Image" =:
190193 "[[image.jpg]]" =?>
191194 para (image "image.jpg" "" mempty)