256e3a6 · typeable/pandoc

git.iko.soy/typeable/pandoc

Simplify linkText in Text.Pandoc.Readers.TWiki (#3605)

Avoid constructing list of one element ([B.str url]) just to flatten it back with mconcat.

commit256e3a6a5d3f91262e8b3304fc2fa8cd1a854038 authorAlexander Krotov <ilabdsf@gmail.com> dateWed 26 Apr 2017, 13:04 (10 years ago) parent8154896

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Readers/TWiki.hs+2−2

@@ -520,9 +520,9 @@ linkText :: PandocMonad m => TWParser m (String, String, B.Inlines)

520520linkText = do

521521 string "[["

522522 url <- many1Till anyChar (char ']')

523− content <- option [B.str url] linkContent

523+ content <- option (B.str url) (mconcat <$> linkContent)

524524 char ']'

525− return (url, "", mconcat content)

525+ return (url, "", content)

526526 where

527527 linkContent = (char '[') >> many1Till anyChar (char ']') >>= parseLinkContent

528528 parseLinkContent = parseFromString $ many1 inline