succinct-0.0.0.1: components/succinct-json/src/Data/Succinct/Json/Internal/CharLike.hs

module Data.Succinct.Json.Internal.CharLike where

import Data.Word
import Data.Word8
import Data.Succinct.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 = isLeadingDigit
  isQuotDbl       = (== _quotedbl)
  isChar_t        = (== _t)
  isChar_f        = (== _f)
  isChar_n        = (== _n)
  isBraceLeft     = (== _braceleft)
  isBracketLeft   = (== _bracketleft)