Implement pure isAscii

haskell · Jan 27, 2024 · a897be5 · a897be5
1 parent 65c7472
commit a897be5
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/Data/Text.hs-boot b/src/Data/Text.hs-boot
@@ -0,0 +1,6 @@
+module Data.Text where
+
+import Data.Text.Internal (Text(..))
+
+-- Used by Data.Text.Internal.IsAscii
+all :: (Char -> Bool) -> Text -> Bool
diff --git a/src/Data/Text/Internal/IsAscii.hs b/src/Data/Text/Internal/IsAscii.hs
@@ -11,6 +11,8 @@ module Data.Text.Internal.IsAscii where
 
 #if defined(PURE_HASKELL)
 import Prelude (Bool(..), Int)
+import qualified Data.Char as Char
+import {-# SOURCE #-} Data.Text (all)
 #else
 import Data.Text.Internal.ByteStringCompat (withBS)
 import Data.Text.Internal.Unsafe (unsafeWithForeignPtr)
@@ -45,7 +47,7 @@ import qualified Prelude as P
 -- @since 2.0.2
 isAscii :: Text -> Bool
 #if defined(PURE_HASKELL)
-isAscii = P.const False
+isAscii = all Char.isAscii
 #else
 cSizeToInt :: CSize -> Int
 cSizeToInt = P.fromIntegral