From c36c02e58d3262a117c00681d4a3525c96eaf383 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 19 Jan 2018 11:12:19 +0300
Subject: Muse reader: simplify tableParseCaption

---
 src/Text/Pandoc/Readers/Muse.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 7067d8abc..8455f983c 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -575,9 +575,7 @@ tableParseCaption :: PandocMonad m => MuseParser m MuseTableElement
 tableParseCaption = try $ do
   many spaceChar
   string "|+"
-  contents <- trimInlinesF . mconcat <$> many1Till inline (lookAhead $ string "+|")
-  string "+|"
-  return $ MuseCaption contents
+  MuseCaption <$> (trimInlinesF . mconcat <$> many1Till inline (string "+|"))
 
 --
 -- inline parsers
-- 
cgit v1.2.3