diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-20 14:00:30 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-20 14:00:30 +0300 |
| commit | b5e62a5c0963cf10338170a94f6a5a2c5b39ad1d (patch) | |
| tree | ee79f94f2ad598c41e9cc1c068364af50c1414a4 /src | |
| parent | ac202e648b1c72e55737dc1e71ed94937ad5e835 (diff) | |
| download | pandoc-b5e62a5c0963cf10338170a94f6a5a2c5b39ad1d.tar.gz | |
Muse reader: require that note references does not start with 0
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 46dcf38d9..1ea78676b 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -336,7 +336,9 @@ para = do noteMarker :: PandocMonad m => MuseParser m String noteMarker = try $ do char '[' - many1Till digit $ char ']' + first <- oneOf "123456789" + rest <- manyTill digit (char ']') + return $ first:rest -- Amusewiki version of note -- Parsing is similar to list item, except that note marker is used instead of list marker |