module Ptr.Util.Word8Predicates where

import Ptr.Prelude

asciiUpperLetter :: Word8 -> Bool
asciiUpperLetter :: Word8 -> Bool
asciiUpperLetter Word8
x = Word8
x Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
- Word8
65 Word8 -> Word8 -> Bool
forall a. Ord a => a -> a -> Bool
<= Word8
25

asciiDigit :: Word8 -> Bool
asciiDigit :: Word8 -> Bool
asciiDigit Word8
x = Word8
x Word8 -> Word8 -> Word8
forall a. Num a => a -> a -> a
- Word8
48 Word8 -> Word8 -> Bool
forall a. Ord a => a -> a -> Bool
<= Word8
9