diff options
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 |