@@ -123,13 +123,9 @@ instance HasLogMessages MuseState where
123parseMuse :: PandocMonad m => MuseParser m Pandoc
123parseMuse :: PandocMonad m => MuseParser m Pandoc
124parseMuse = do
124parseMuse = do
125 many directive
125 many directive
126− firstSection <- parseBlocks
126+ blocks <- (:) <$> parseBlocks <*> many parseSection
127− rest <- many parseSection
128− let blocks = mconcat (firstSection : rest)
129 st <- getState
127 st <- getState
130− let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
128+ let doc = runF (Pandoc <$> museMeta st <*> fmap B.toList (mconcat blocks)) st
132− return $ Pandoc meta bs) st
133 reportLogMessages
129 reportLogMessages
134 return doc
130 return doc