git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: allow links to have empty descriptions
79592dbAlexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−1
compare with master
unifiedsplit
@@ -931,7 +931,7 @@ link = try $ do
931linkContent :: PandocMonad m => MuseParser m (F Inlines)
931linkContent :: PandocMonad m => MuseParser m (F Inlines)
932linkContent = do
932linkContent = do
933 char '['
933 char '['
934− trimInlinesF . mconcat <$> many1Till inline (string "]")
934+ trimInlinesF . mconcat <$> manyTill inline (string "]")
935
935
936linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines))
936linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines))
937linkText = do
937linkText = do
test/Tests/Readers/Muse.hs+3
@@ -186,6 +186,9 @@ tests =
186 , "Link with description" =:
186 , "Link with description" =:
187 "[[https://amusewiki.org/][A Muse Wiki]]" =?>
187 "[[https://amusewiki.org/][A Muse Wiki]]" =?>
188 para (link "https://amusewiki.org/" "" (text "A Muse Wiki"))
188 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 ""))
189 , "Image" =:
192 , "Image" =:
190 "[[image.jpg]]" =?>
193 "[[image.jpg]]" =?>
191 para (image "image.jpg" "" mempty)
194 para (image "image.jpg" "" mempty)