lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-24 09:16:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

TWiki reader: use isUpper/isLower...

Browse Source 
instead of the new isUpperCase/isLowerCase, for portability
across base versions.
This commit is contained in:
John MacFarlane
2024-07-03 22:01:00 -07:00
parent 60c0149084
commit 2d12ee3f4c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/TWiki.hs
+4 -4
View File
@@ -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