Muse reader: embed parseBlocks into parseMuse

src/Text/Pandoc/Readers/Muse.hs

@@ -79,7 +79,8 @@ type MuseParser = ParserT String ParserState
 parseMuse :: PandocMonad m => MuseParser m Pandoc
 parseMuse = do
   many directive
-  blocks <- parseBlocks
+  blocks <- mconcat <$> many block
+  eof
   st <- getState
   let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
                      meta <- stateMeta' st
@@ -87,13 +88,6 @@ parseMuse = do
   reportLogMessages
   return doc
 
-parseBlocks :: PandocMonad m => MuseParser m (F Blocks)
-parseBlocks = do
-  res <- mconcat <$> many block
-  spaces
-  eof
-  return res
-
 --
 -- utility functions
 --