diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-29 05:09:10 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-29 05:12:25 +0300 |
| commit | 7751391fce9a51066e02ecbe3677e69224c2161d (patch) | |
| tree | ff8cc2269cbc37554cfc11fed31cd880b94d64a6 /src/Text | |
| parent | 0105a3c2930675971ea83da3b987c6b62f97ce26 (diff) | |
| download | pandoc-7751391fce9a51066e02ecbe3677e69224c2161d.tar.gz | |
Muse reader: correctly remove indentation from notes
Exactly one space is required and considered to be part of the marker.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |