From 9e21ae15e1d84f1a2c07bdd1961d9465557ecd63 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 19 Jan 2018 11:29:11 +0300 Subject: Muse reader: parse Emacs Muse directives without parseFromString Also require space (not newline) after directive name. --- src/Text/Pandoc/Readers/Muse.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Readers/Muse.hs') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 2d424ec81..65d97814d 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -156,10 +156,8 @@ parseDirectiveKey = do parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines) parseEmacsDirective = do key <- parseDirectiveKey - space - spaces - raw <- manyTill anyChar eol - value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw + spaceChar + value <- trimInlinesF . mconcat <$> manyTill (choice inlineList) eol return (key, value) parseAmuseDirective :: PandocMonad m => MuseParser m (String, F Inlines) -- cgit v1.2.3