Muse reader internals: remove unnecessary "skipSpaces"
commit89bcd192a16a22d348fbbe8475bebfbfe4fd5d35
authorAlexander Krotov <ilabdsf@gmail.com>
dateMon 22 Oct 2018, 15:53 (8 years ago)
parenta22e044
src/Text/Pandoc/Readers/Muse.hs+1−1
@@ -504,7 +504,7 @@ amuseNoteBlockUntil end = try $ do
504504emacsNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
505505emacsNoteBlock = try $ do
506506 guardDisabled Ext_amuse
507− ref <- noteMarker <* skipSpaces
507+ ref <- noteMarker
508508 pos <- getPosition
509509 content <- fmap mconcat blocksTillNote
510510 addNote ref pos content