diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-22 15:53:51 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-22 15:56:23 +0300 |
| commit | 89bcd192a16a22d348fbbe8475bebfbfe4fd5d35 (patch) | |
| tree | 8d8d2686bfdb3a425bd9a057e3a525dff26ef650 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | a22e044b13610916b98a0a723d16275278541264 (diff) | |
| download | pandoc-89bcd192a16a22d348fbbe8475bebfbfe4fd5d35.tar.gz | |
Muse reader internals: remove unnecessary "skipSpaces"
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |