@@ -79,7 +79,8 @@ type MuseParser = ParserT String ParserState
7979parseMuse :: PandocMonad m => MuseParser m Pandoc
8080parseMuse = do
8181 many directive
82− blocks <- parseBlocks
82+ blocks <- mconcat <$> many block
83+ eof
8384 st <- getState
8485 let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
8586 meta <- stateMeta' st
@@ -87,13 +88,6 @@ parseMuse = do
8788 reportLogMessages
8889 return doc
8990
90−parseBlocks :: PandocMonad m => MuseParser m (F Blocks)
91−parseBlocks = do
92− res <- mconcat <$> many block
93− spaces
94− eof
95− return res
96−
9791--
9892-- utility functions
9993--