From 23725f3a20f488547aa4d2d2601d34c8e2b628bf Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 21 Sep 2018 12:26:29 +0300
Subject: Muse reader: rewrite headingStart in applicative style and remove
 heading level limit

---
 src/Text/Pandoc/Readers/Muse.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index ee93c6777..6cb732c42 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -378,13 +378,11 @@ separator = try $ pure B.horizontalRule
   <* eol
 
 headingStart :: PandocMonad m => MuseParser m (String, Int)
-headingStart = try $ do
-  anchorId <- option "" $ try (parseAnchor <* manyTill spaceChar eol)
-  firstColumn
-  level <- fmap length $ many1 $ char '*'
-  guard $ level <= 5
-  spaceChar
-  return (anchorId, level)
+headingStart = try $ (,)
+  <$> option "" (try (parseAnchor <* manyTill spaceChar eol))
+  <*  firstColumn
+  <*> fmap length (many1 $ char '*')
+  <*  spaceChar
 
 -- | Parse a single-line heading.
 emacsHeading :: PandocMonad m => MuseParser m (F Blocks)
-- 
cgit v1.2.3