diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-21 06:42:17 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-21 06:42:17 +0300 |
commit | 78bec0837d75e563cb82dc9af40c7ce56e9c35ac (patch) | |
tree | 61a377b5a021cbd2a3236b11c3a1a4b5cfbe70a5 /src/Text/Pandoc | |
parent | 8df59952bf54321a0e24a1e9104324c7ae9c153f (diff) | |
download | pandoc-78bec0837d75e563cb82dc9af40c7ce56e9c35ac.tar.gz |
Muse reader: make sure that the whole text is parsed
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |