module HaskellWorks.Data.Json.Internal.CharLike where

import Data.Word
import Data.Word8
import HaskellWorks.Data.Json.Standard.Cursor.Internal.Word8

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)