ref: fec82834a22829b252b89228701e64febb66e543
parent: e73531f0e9a29da9284a8f555860363dffdbb95d
author: Lennart Augustsson <lennart@augustsson.net>
date: Wed Sep 11 15:11:31 EDT 2024
More functions.
--- a/lib/Data/Char.hs
+++ b/lib/Data/Char.hs
@@ -2,7 +2,7 @@
-- See LICENSE file for full license.
module Data.Char(
module Data.Char,
- module Data.Char_Type -- exports Char and String
+ module Data.Char_Type -- exports Char and String
) where
import Prelude() -- do not import Prelude
import Primitives
@@ -54,8 +54,14 @@
isLower :: Char -> Bool
isLower c = (primCharLE 'a' c) && (primCharLE c 'z')
+isAsciiLower :: Char -> Bool
+isAsciiLower = isLower
+
isUpper :: Char -> Bool
isUpper c = (primCharLE 'A' c) && (primCharLE c 'Z')
+
+isAsciiUpper :: Char -> Bool
+isAsciiUpper = isUpper
isAlpha :: Char -> Bool
isAlpha c = isLower c || isUpper c
--
⑨