Muse reader: rewrite parseDirectiveKey without do
commit7de6f085afb5734c94dc33a4d10b900f51369715
authorAlexander Krotov <ilabdsf@gmail.com>
dateTue 3 Apr 2018, 15:41 (9 years ago)
parent8837af8
src/Text/Pandoc/Readers/Muse.hs+1−3
@@ -210,9 +210,7 @@ someUntil p end = do
210210
211211-- While not documented, Emacs Muse allows "-" in directive name
212212parseDirectiveKey :: PandocMonad m => MuseParser m String
213−parseDirectiveKey = do
214− char '#'
215− many (letter <|> char '-')
213+parseDirectiveKey = char '#' *> many (letter <|> char '-')
216214
217215parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines)
218216parseEmacsDirective = do