Add isAsciiAlpha

This commit is contained in:
Harendra Kumar 2020-04-09 00:39:47 +05:30
parent 007343a84e
commit e6d4570ccd

View File

@ -11,6 +11,9 @@
--
module Streamly.Internal.Data.Unicode.Char
(
-- * Predicates
isAsciiAlpha
-- * Unicode aware operations
{-
toCaseFold
@ -21,12 +24,26 @@ module Streamly.Internal.Data.Unicode.Char
)
where
import Data.Char (isAsciiUpper, isAsciiLower)
-- import Streamly (IsStream)
-------------------------------------------------------------------------------
-- Unicode aware operations on strings
-------------------------------------------------------------------------------
-- | Select alphabetic characters in the ascii character set.
--
-- /Internal/
--
{-# INLINE isAsciiAlpha #-}
isAsciiAlpha :: Char -> Bool
isAsciiAlpha c = isAsciiUpper c || isAsciiLower c
-------------------------------------------------------------------------------
-- Unicode aware operations on strings
-------------------------------------------------------------------------------
{-
-- |
-- /undefined/