module HaskellWorks.Data.Json.CharLike where import Data.Word import Data.Word8 import HaskellWorks.Data.Json.Conduit.Words class JsonCharLike c where isLeadingDigit2 :: c -> Bool isQuotDbl :: c -> Bool isChar_t :: c -> Bool isChar_f :: c -> Bool isChar_n :: c -> Bool isBraceLeft :: c -> Bool isBracketLeft :: c -> Bool instance JsonCharLike Word8 where isLeadingDigit2 :: Word8 -> Bool isLeadingDigit2 = Word8 -> Bool isLeadingDigit isQuotDbl :: Word8 -> Bool isQuotDbl = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _quotedbl) isChar_t :: Word8 -> Bool isChar_t = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _t) isChar_f :: Word8 -> Bool isChar_f = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _f) isChar_n :: Word8 -> Bool isChar_n = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _n) isBraceLeft :: Word8 -> Bool isBraceLeft = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _braceleft) isBracketLeft :: Word8 -> Bool isBracketLeft = (Word8 -> Word8 -> Bool forall a. Eq a => a -> a -> Bool == Word8 _bracketleft)