From 7751391fce9a51066e02ecbe3677e69224c2161d Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 29 Nov 2017 05:09:10 +0300
Subject: Muse reader: correctly remove indentation from notes

Exactly one space is required and considered to be part of the marker.
---
 src/Text/Pandoc/Readers/Muse.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 794ca7385..f10a2172f 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -318,8 +318,8 @@ amuseNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
 amuseNoteBlock = try $ do
   guardEnabled Ext_amuse
   pos <- getPosition
-  ref <- noteMarker <* skipSpaces
-  content <- listItemContents $ 2 + length ref
+  ref <- noteMarker <* spaceChar
+  content <- listItemContents $ 3 + length ref
   oldnotes <- stateNotes' <$> getState
   case M.lookup ref oldnotes of
     Just _  -> logMessage $ DuplicateNoteReference ref pos
-- 
cgit v1.2.3