diff options
| -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 3f93fcc12..8a065196f 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, isAlphaNum) +import Data.Char (isAlphaNum) import Data.Default import Data.List (intercalate) import Data.List.Split (splitOn) @@ -845,7 +845,7 @@ enclosedInlines :: (PandocMonad m, Show a, Show b) -> MuseParser m (F Inlines) enclosedInlines start end = try $ trimInlinesF . mconcat <$> enclosed (atStart start) end inline - <* notFollowedBy (satisfy ((||) <$> isLetter <*> isDigit)) + <* notFollowedBy (satisfy isAlphaNum) -- | Parse an inline tag, such as @\<em>@ and @\<strong>@. inlineTag :: PandocMonad m |