From 78bec0837d75e563cb82dc9af40c7ce56e9c35ac Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 Oct 2018 06:42:17 +0300
Subject: Muse reader: make sure that the whole text is parsed

---
 src/Text/Pandoc/Readers/Muse.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index b973486b1..9b48c70aa 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -130,6 +130,7 @@ parseMuse :: PandocMonad m => MuseParser m Pandoc
 parseMuse = do
   many directive
   blocks <- (:) <$> parseBlocks <*> many parseSection
+  eof
   st <- getState
   runF (Pandoc <$> museMeta st <*> fmap B.toList (mconcat blocks)) st <$ reportLogMessages
 
-- 
cgit v1.2.3