diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 16:32:47 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 18:17:24 +0300 |
| commit | 82a0ceaf18e589e8916fbd70e0b13e5945bcc99a (patch) | |
| tree | e312e1512c1d68b4903cca414b19bc9d6d4c144c /src/Text/Pandoc | |
| parent | 9131d62c9b9a70829e0d938d0d201a09b2cec179 (diff) | |
| download | pandoc-82a0ceaf18e589e8916fbd70e0b13e5945bcc99a.tar.gz | |
Muse reader: fix directive parsing
This fixes bugs introduced in commit 4bfab8f04c105f111d8d4e1c3ed7f7b5c75dbd19.
Diffstat (limited to 'src/Text/Pandoc')
| -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 a89bc629d..7504a33ca 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -237,9 +237,7 @@ parseAmuseDirective = do many blankline return (key, value) where - endOfDirective = lookAhead $ try (eof <|> - void (newline >> blankline) <|> - void (newline >> parseDirectiveKey)) + endOfDirective = lookAhead $ eof <|> try (newline >> (void blankline <|> void parseDirectiveKey)) directive :: PandocMonad m => MuseParser m () directive = do |