From 89bcd192a16a22d348fbbe8475bebfbfe4fd5d35 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 22 Oct 2018 15:53:51 +0300
Subject: Muse reader internals: remove unnecessary "skipSpaces"

---
 src/Text/Pandoc/Readers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index bc3bb921e..88c78d450 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -504,7 +504,7 @@ amuseNoteBlockUntil end = try $ do
 emacsNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
 emacsNoteBlock = try $ do
   guardDisabled Ext_amuse
-  ref <- noteMarker <* skipSpaces
+  ref <- noteMarker
   pos <- getPosition
   content <- fmap mconcat blocksTillNote
   addNote ref pos content
-- 
cgit v1.2.3