Muse reader internals: remove unnecessary "skipSpaces"

This commit is contained in:
Alexander Krotov 2018-10-22 15:53:51 +03:00
parent a22e044b13
commit 89bcd192a1

View file

@ -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