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

feat: strict but un-unpacked json

Browse source
This commit is contained in:
vegowotenks 2025-08-23 18:24:25 +02:00
parent e87cc5f16c
commit 03001e9fc9
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 {-# UNPACK #-} !Text | String !Text
| Boolean {-# UNPACK #-} !Bool | Boolean !Bool
| Number {-# UNPACK #-} !Rational | Number !Rational
| Array {-# UNPACK #-} !(Array Natural Value) | Array !(Array Natural Value)
| Object {-# UNPACK #-} !(Map Text Value) | Object !(Map Text Value)
deriving (Show, Generic, Eq, Ord) deriving (Show, Generic, Eq, Ord)
deriving PrettySerialize via Generically Value deriving PrettySerialize via Generically Value