From 256e3a6a5d3f91262e8b3304fc2fa8cd1a854038 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 26 Apr 2017 13:04:28 +0300
Subject: Simplify linkText in Text.Pandoc.Readers.TWiki (#3605)

Avoid constructing list of one element ([B.str url]) just to flatten it
back with mconcat.
---
 src/Text/Pandoc/Readers/TWiki.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/TWiki.hs b/src/Text/Pandoc/Readers/TWiki.hs
index 0d8ff383e..ecb609ae9 100644
--- a/src/Text/Pandoc/Readers/TWiki.hs
+++ b/src/Text/Pandoc/Readers/TWiki.hs
@@ -520,9 +520,9 @@ linkText :: PandocMonad m => TWParser m (String, String, B.Inlines)
 linkText = do
   string "[["
   url <- many1Till anyChar (char ']')
-  content <- option [B.str url] linkContent
+  content <- option (B.str url) (mconcat <$> linkContent)
   char ']'
-  return (url, "", mconcat content)
+  return (url, "", content)
   where
     linkContent      = (char '[') >> many1Till anyChar (char ']') >>= parseLinkContent
     parseLinkContent = parseFromString $ many1 inline
-- 
cgit v1.2.3