@@ -43,7 +43,7 @@ import Prelude
4343import Control.Monad
4444import Control.Monad.Except (throwError)
4545import Data.Bifunctor
46−import Data.Char (isLetter, isDigit, isAlphaNum)
46+import Data.Char (isAlphaNum)
4747import Data.Default
4848import Data.List (intercalate)
4949import Data.List.Split (splitOn)
@@ -845,7 +845,7 @@ enclosedInlines :: (PandocMonad m, Show a, Show b)
845845 -> MuseParser m (F Inlines)
846846enclosedInlines start end = try $ trimInlinesF . mconcat
847847 <$> enclosed (atStart start) end inline
848− <* notFollowedBy (satisfy ((||) <$> isLetter <*> isDigit))
848+ <* notFollowedBy (satisfy isAlphaNum)
849849
850850-- | Parse an inline tag, such as @\<em>@ and @\<strong>@.
851851inlineTag :: PandocMonad m