diff --git a/src/Streamly/Internal/Data/Unicode/Char.hs b/src/Streamly/Internal/Data/Unicode/Char.hs
index 03d179ec1..cb25706dd 100644
--- a/src/Streamly/Internal/Data/Unicode/Char.hs
+++ b/src/Streamly/Internal/Data/Unicode/Char.hs
@@ -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/