diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-21 13:07:56 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-21 13:07:56 +0300 |
| commit | dd5d234c6a0be60d313863b08c8d12bdb97fff8f (patch) | |
| tree | 96cd778604c81ff3d8b004c6c53c33f0660cb406 /src/Text | |
| parent | ca0bb5123e52b89b39033a54120626062e824ca5 (diff) | |
| download | pandoc-dd5d234c6a0be60d313863b08c8d12bdb97fff8f.tar.gz | |
Muse reader: do not allow code markup to be followed by digit
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 9c6c24f08..3f93fcc12 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -43,7 +43,7 @@ import Prelude import Control.Monad import Control.Monad.Except (throwError) import Data.Bifunctor -import Data.Char (isLetter, isDigit) +import Data.Char (isLetter, isDigit, isAlphaNum) import Data.Default import Data.List (intercalate) import Data.List.Split (splitOn) @@ -913,7 +913,7 @@ code = try $ do guard $ not $ null contents guard $ head contents `notElem` " \t\n" guard $ last contents `notElem` " \t\n" - notFollowedBy $ satisfy isLetter + notFollowedBy $ satisfy isAlphaNum return $ return $ B.code contents -- | Parse @\<code>@ tag. |