From 7de6f085afb5734c94dc33a4d10b900f51369715 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 3 Apr 2018 15:41:10 +0300 Subject: Muse reader: rewrite parseDirectiveKey without do --- src/Text/Pandoc/Readers/Muse.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index c3ae0de4e..bfde07eae 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -210,9 +210,7 @@ someUntil p end = do -- While not documented, Emacs Muse allows "-" in directive name parseDirectiveKey :: PandocMonad m => MuseParser m String -parseDirectiveKey = do - char '#' - many (letter <|> char '-') +parseDirectiveKey = char '#' *> many (letter <|> char '-') parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines) parseEmacsDirective = do -- cgit v1.2.3