TWiki reader: use isUpper/isLower...

instead of the new isUpperCase/isLowerCase, for portability
across base versions.

1 files changed, 4 insertions, 4 deletions

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