From 91bca732666d8825702c4986d0dfd5a6d3fee3bb Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 Jan 2018 03:06:58 +0300
Subject: Muse reader: embed parseBlocks into parseMuse

---
 src/Text/Pandoc/Readers/Muse.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index daebe81aa..8f36db9d1 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/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
 --
-- 
cgit v1.2.3