From 8df59952bf54321a0e24a1e9104324c7ae9c153f Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 Oct 2018 06:42:00 +0300
Subject: Muse reader: allow empty headers

Previously empty headers caused parser to terminate without parsing the rest of the document.
---
 src/Text/Pandoc/Readers/Muse.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 3b64fe5ef..b973486b1 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -172,12 +172,6 @@ getIndent :: PandocMonad m
           => MuseParser m Int
 getIndent = subtract 1 . sourceColumn <$ many spaceChar <*> getPosition
 
-someUntil :: (Stream s m t)
-          => ParserT s u m a
-          -> ParserT s u m b
-          -> ParserT s u m ([a], b)
-someUntil p end = first <$> ((:) <$> p) <*> manyUntil p end
-
 -- ** HTML parsers
 
 openTag :: PandocMonad m => String -> MuseParser m [(String, String)]
@@ -462,7 +456,7 @@ paraContentsUntil :: PandocMonad m
                   => MuseParser m a -- ^ Terminator parser
                   -> MuseParser m (F Inlines, a)
 paraContentsUntil end = first (trimInlinesF . mconcat)
-  <$> someUntil inline (try (manyTill spaceChar eol *> local (\s -> s { museInPara = True}) end))
+  <$> manyUntil inline (try (manyTill spaceChar eol *> local (\s -> s { museInPara = True}) end))
 
 -- | Parse a paragraph.
 paraUntil :: PandocMonad m
-- 
cgit v1.2.3