Muse reader internals: simplify parseMuse
commitabd770c691ce09ff74e175f5bd25de2058d3c766
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 5 Oct 2018, 16:27 (8 years ago)
parent0ce7183
src/Text/Pandoc/Readers/Muse.hs+2−6
@@ -123,13 +123,9 @@ instance HasLogMessages MuseState where
123123parseMuse :: PandocMonad m => MuseParser m Pandoc
124124parseMuse = do
125125 many directive
126− firstSection <- parseBlocks
127− rest <- many parseSection
128− let blocks = mconcat (firstSection : rest)
126+ blocks <- (:) <$> parseBlocks <*> many parseSection
129127 st <- getState
130− let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
131− meta <- museMeta st
132− return $ Pandoc meta bs) st
128+ let doc = runF (Pandoc <$> museMeta st <*> fmap B.toList (mconcat blocks)) st
133129 reportLogMessages
134130 return doc
135131