diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-03 15:41:10 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-03 15:47:23 +0300 |
| commit | 7de6f085afb5734c94dc33a4d10b900f51369715 (patch) | |
| tree | 83c4d3e1539789ff55872d23bb51a110b189fc6a | |
| parent | 8837af879add64e4c0e04505e0a469620d6404c1 (diff) | |
| download | pandoc-7de6f085afb5734c94dc33a4d10b900f51369715.tar.gz | |
Muse reader: rewrite parseDirectiveKey without do
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |