vegowotenks/hon
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: strict unpacked JSON

Browse source
This commit is contained in:
vegowotenks 2025-08-23 18:14:19 +02:00
parent 76e8cea454
commit 58b1bbb021
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Language/Json.hs
View file

@ -33,11 +33,11 @@ import Data.Array.Arbitrary (ArbitraryArray(getArbitraryArray))
data Value data Value
= Null = Null
| String Text | String {-# UNPACK #-} !Text
| Boolean Bool | Boolean {-# UNPACK #-} !Bool
| Number Rational | Number {-# UNPACK #-} !Rational
| Array (Array Natural Value) | Array {-# UNPACK #-} !(Array Natural Value)
| Object (Map Text Value) | Object {-# UNPACK #-} !(Map Text Value)
deriving (Show, Generic, Eq, Ord) deriving (Show, Generic, Eq, Ord)
deriving PrettySerialize via Generically Value deriving PrettySerialize via Generically Value