Muse reader: make sure that the whole text is parsed

This commit is contained in:
Alexander Krotov 2018-10-21 06:42:17 +03:00
parent 8df59952bf
commit 78bec0837d

View file

@ -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