From 3e04c2f3af08aa7927e38469eb594adf554a50ec Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Thu, 11 Oct 2018 16:43:31 +0300
Subject: Muse reader internals: don't use "choice" with static list

---
 src/Text/Pandoc/Readers/Muse.hs | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index f180d40db..174714d58 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -328,24 +328,22 @@ parseBlock = do
   where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
 
 blockElements :: PandocMonad m => MuseParser m (F Blocks)
-blockElements =
-  choice [ mempty <$ blankline
-         , comment
-         , separator
-         , example
-         , exampleTag
-         , literalTag
-         , centerTag
-         , rightTag
-         , quoteTag
-         , divTag
-         , biblioTag
-         , playTag
-         , verseTag
-         , lineBlock
-         , table
-         , commentTag
-         ]
+blockElements = (mempty <$ blankline)
+            <|> comment
+            <|> separator
+            <|> example
+            <|> exampleTag
+            <|> literalTag
+            <|> centerTag
+            <|> rightTag
+            <|> quoteTag
+            <|> divTag
+            <|> biblioTag
+            <|> playTag
+            <|> verseTag
+            <|> lineBlock
+            <|> table
+            <|> commentTag
 
 -- | Parse a line comment, starting with @;@ in the first column.
 comment :: PandocMonad m => MuseParser m (F Blocks)
-- 
cgit v1.2.3