git.iko.soy/typeable/pandoc
on master help sign in
Simplify linkText in Text.Pandoc.Readers.TWiki (#3605)
256e3a6Alexander Krotov
src/Text/Pandoc/Readers/TWiki.hs+2−2
compare with master
unifiedsplit
@@ -520,9 +520,9 @@ linkText :: PandocMonad m => TWParser m (String, String, B.Inlines)
520linkText = do
520linkText = do
521 string "[["
521 string "[["
522 url <- many1Till anyChar (char ']')
522 url <- many1Till anyChar (char ']')
523− content <- option [B.str url] linkContent
523+ content <- option (B.str url) (mconcat <$> linkContent)
524 char ']'
524 char ']'
525− return (url, "", mconcat content)
525+ return (url, "", content)
526 where
526 where
527 linkContent = (char '[') >> many1Till anyChar (char ']') >>= parseLinkContent
527 linkContent = (char '[') >> many1Till anyChar (char ']') >>= parseLinkContent
528 parseLinkContent = parseFromString $ many1 inline
528 parseLinkContent = parseFromString $ many1 inline