@@ -328,24 +328,22 @@ parseBlock = do
328 where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
328 where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
330blockElements :: PandocMonad m => MuseParser m (F Blocks)
330blockElements :: PandocMonad m => MuseParser m (F Blocks)
331−blockElements =
331+blockElements = (mempty <$ blankline)
332− choice [ mempty <$ blankline
333− , comment
332+ <|> comment
334− , separator
333+ <|> separator
335− , example
334+ <|> example
336− , exampleTag
335+ <|> exampleTag
337− , literalTag
336+ <|> literalTag
338− , centerTag
337+ <|> centerTag
339− , rightTag
338+ <|> rightTag
340− , quoteTag
339+ <|> quoteTag
341− , divTag
340+ <|> divTag
342− , biblioTag
341+ <|> biblioTag
343− , playTag
342+ <|> playTag
344− , verseTag
343+ <|> verseTag
345− , lineBlock
344+ <|> lineBlock
346− , table
345+ <|> table
347− , commentTag
346+ <|> commentTag
350-- | Parse a line comment, starting with @;@ in the first column.
348-- | Parse a line comment, starting with @;@ in the first column.
351comment :: PandocMonad m => MuseParser m (F Blocks)
349comment :: PandocMonad m => MuseParser m (F Blocks)