aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-15 16:32:47 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-15 18:17:24 +0300
commit82a0ceaf18e589e8916fbd70e0b13e5945bcc99a (patch)
treee312e1512c1d68b4903cca414b19bc9d6d4c144c /src/Text/Pandoc
parent9131d62c9b9a70829e0d938d0d201a09b2cec179 (diff)
downloadpandoc-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.hs4
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