From f6abf15832e4b41ed26b285b4a7c8f515ddb139f Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 19 Dec 2017 04:16:57 +0300
Subject: Muse reader: parse empty comments correctly

---
 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 04cec149b..46dcf38d9 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -220,8 +220,7 @@ blockElements = choice [ comment
 comment :: PandocMonad m => MuseParser m (F Blocks)
 comment = try $ do
   char ';'
-  space
-  many $ noneOf "\n"
+  optionMaybe (spaceChar >> (many $ noneOf "\n"))
   eol
   return mempty
 
-- 
cgit v1.2.3