git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: rewrite parseDirectiveKey without do
7de6f08Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−3
compare with master
unifiedsplit
@@ -210,9 +210,7 @@ someUntil p end = do
210
210
211-- While not documented, Emacs Muse allows "-" in directive name
211-- While not documented, Emacs Muse allows "-" in directive name
212parseDirectiveKey :: PandocMonad m => MuseParser m String
212parseDirectiveKey :: PandocMonad m => MuseParser m String
213−parseDirectiveKey = do
213+parseDirectiveKey = char '#' *> many (letter <|> char '-')
214− char '#'
215− many (letter <|> char '-')
216
214
217parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines)
215parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines)
218parseEmacsDirective = do
216parseEmacsDirective = do