@@ -130,6 +130,7 @@ parseMuse :: PandocMonad m => MuseParser m Pandoc
130parseMuse = do
130parseMuse = do
131 many directive
131 many directive
132 blocks <- (:) <$> parseBlocks <*> many parseSection
132 blocks <- (:) <$> parseBlocks <*> many parseSection
133 st <- getState
134 st <- getState
134 runF (Pandoc <$> museMeta st <*> fmap B.toList (mconcat blocks)) st <$ reportLogMessages
135 runF (Pandoc <$> museMeta st <*> fmap B.toList (mconcat blocks)) st <$ reportLogMessages