module HaskellWorks.Data.Json.Conduit.Words where import Data.Word import Data.Word8 isLeadingDigit :: Word8 -> Bool isLeadingDigit :: Word8 -> Bool isLeadingDigit Word8 w = Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _hyphen Bool -> Bool -> Bool || (Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool >= Word8 _0 Bool -> Bool -> Bool && Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool <= Word8 _9) isTrailingDigit :: Word8 -> Bool isTrailingDigit :: Word8 -> Bool isTrailingDigit Word8 w = Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _plus Bool -> Bool -> Bool || Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _hyphen Bool -> Bool -> Bool || (Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool >= Word8 _0 Bool -> Bool -> Bool && Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool <= Word8 _9) Bool -> Bool -> Bool || Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _period Bool -> Bool -> Bool || Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _E Bool -> Bool -> Bool || Word8 w Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _e isAlphabetic :: Word8 -> Bool isAlphabetic :: Word8 -> Bool isAlphabetic Word8 w = (Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool >= Word8 _A Bool -> Bool -> Bool && Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool <= Word8 _Z) Bool -> Bool -> Bool || (Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool >= Word8 _a Bool -> Bool -> Bool && Word8 w Word8 -> Word8 -> Bool forall a. Ord a => a -> a -> Bool <= Word8 _z)