git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: embed parseBlocks into parseMuse
91bca73Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+2−8
compare with master
unifiedsplit
@@ -79,7 +79,8 @@ type MuseParser = ParserT String ParserState
79parseMuse :: PandocMonad m => MuseParser m Pandoc
79parseMuse :: PandocMonad m => MuseParser m Pandoc
80parseMuse = do
80parseMuse = do
81 many directive
81 many directive
82− blocks <- parseBlocks
82+ blocks <- mconcat <$> many block
83+ eof
83 st <- getState
84 st <- getState
84 let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
85 let doc = runF (do Pandoc _ bs <- B.doc <$> blocks
85 meta <- stateMeta' st
86 meta <- stateMeta' st
@@ -87,13 +88,6 @@ parseMuse = do
87 reportLogMessages
88 reportLogMessages
88 return doc
89 return doc
89
90
90−parseBlocks :: PandocMonad m => MuseParser m (F Blocks)
91−parseBlocks = do
92− res <- mconcat <$> many block
93− spaces
94− eof
95− return res
96−
97--
91--
98-- utility functions
92-- utility functions
99--
93--