From 2d12ee3f4cff38f892d4e77bd20b2c64e9489c28 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 3 Jul 2024 22:01:00 -0700 Subject: TWiki reader: use isUpper/isLower... instead of the new isUpperCase/isLowerCase, for portability across base versions. --- src/Text/Pandoc/Readers/TWiki.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/TWiki.hs b/src/Text/Pandoc/Readers/TWiki.hs index ff966d262..37f2ba4c1 100644 --- a/src/Text/Pandoc/Readers/TWiki.hs +++ b/src/Text/Pandoc/Readers/TWiki.hs @@ -16,7 +16,7 @@ module Text.Pandoc.Readers.TWiki ( readTWiki import Control.Monad import Control.Monad.Except (throwError) -import Data.Char (isAlphaNum, isDigit, isUpperCase, isLowerCase, isLetter) +import Data.Char (isAlphaNum, isDigit, isUpper, isLower, isLetter) import qualified Data.Foldable as F import Data.Maybe (fromMaybe) import Data.Text (Text) @@ -490,8 +490,8 @@ simpleWikiLink = do return (w, "wikilink", B.str w) where wikiWord = do - cs <- many1 $ satisfy (\x -> isLetter x && isUpperCase x) - ds <- many1 $ satisfy (\x -> isDigit x || (isLetter x && isLowerCase x)) - es <- many1 $ satisfy (\x -> isLetter x && isUpperCase x) + cs <- many1 $ satisfy (\x -> isLetter x && isUpper x) + ds <- many1 $ satisfy (\x -> isDigit x || (isLetter x && isLower x)) + es <- many1 $ satisfy (\x -> isLetter x && isUpper x) fs <- many $ satisfy isAlphaNum return $ T.pack $ cs ++ ds ++ es ++ fs -- cgit v1.2.3