mirror of
https://github.com/composewell/streamly.git
synced 2024-09-20 07:58:27 +03:00
Add isAsciiAlpha
This commit is contained in:
parent
007343a84e
commit
e6d4570ccd
@ -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/
|
||||
|
Loading…
Reference in New Issue
Block a user