From 2cdb8fe2e65aa13f91c9decd4e6cad97e87cc402 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 26 Sep 2017 19:31:10 +0300
Subject: Muse reader: test metadata parsing

---
 src/Text/Pandoc/Readers/Muse.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index cf5fc0da2..6e7844d4b 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -150,8 +150,7 @@ parseDirective = do
   key <- many letter
   space
   spaces
-  raw <- many $ noneOf "\n"
-  newline
+  raw <- manyTill anyChar eol
   value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
   return (key, value)
 
-- 
cgit v1.2.3