From 875e33ecf698396418d722d77f74cf07835058d2 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 22 Oct 2018 03:03:11 +0300
Subject: Muse reader: allow footnotes to start with empty line

A space character was required after footnote marker, now newline is allowed.
---
 src/Text/Pandoc/Readers/Muse.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 9b48c70aa..bc3bb921e 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -492,9 +492,10 @@ amuseNoteBlockUntil :: PandocMonad m
                     -> MuseParser m (F Blocks, a)
 amuseNoteBlockUntil end = try $ do
   guardEnabled Ext_amuse
-  ref <- noteMarker <* spaceChar
+  ref <- noteMarker
   pos <- getPosition
-  (content, e) <- allowPara $ listItemContentsUntil (sourceColumn pos - 1) (fail "x") end
+  void spaceChar <|> lookAhead eol
+  (content, e) <- allowPara $ listItemContentsUntil (sourceColumn pos) (fail "x") end
   addNote ref pos content
   return (mempty, e)
 
-- 
cgit v1.2.3