Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: allow links to have empty descriptions

Browse source
This commit is contained in:
Alexander Krotov 2018-03-25 22:16:45 +03:00
parent a3f659d2c0
commit 79592db66c
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Muse.hs
View file

@ -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

3
test/Tests/Readers/Muse.hs
View file

@ -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)