Muse reader internals: don't use "choice" with static list
commit3e04c2f3af08aa7927e38469eb594adf554a50ec
authorAlexander Krotov <ilabdsf@gmail.com>
dateThu 11 Oct 2018, 16:43 (8 years ago)
parent4494761
src/Text/Pandoc/Readers/Muse.hs+16−18
@@ -328,24 +328,22 @@ parseBlock = do
328328 where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
329329
330330blockElements :: PandocMonad m => MuseParser m (F Blocks)
331−blockElements =
332− choice [ mempty <$ blankline
333− , comment
334− , separator
335− , example
336− , exampleTag
337− , literalTag
338− , centerTag
339− , rightTag
340− , quoteTag
341− , divTag
342− , biblioTag
343− , playTag
344− , verseTag
345− , lineBlock
346− , table
347− , commentTag
348− ]
331+blockElements = (mempty <$ blankline)
332+ <|> comment
333+ <|> separator
334+ <|> example
335+ <|> exampleTag
336+ <|> literalTag
337+ <|> centerTag
338+ <|> rightTag
339+ <|> quoteTag
340+ <|> divTag
341+ <|> biblioTag
342+ <|> playTag
343+ <|> verseTag
344+ <|> lineBlock
345+ <|> table
346+ <|> commentTag
349347
350348-- | Parse a line comment, starting with @;@ in the first column.
351349comment :: PandocMonad m => MuseParser m (F Blocks)