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
= Null
| String {-# UNPACK #-} !Text
| Boolean {-# UNPACK #-} !Bool
| Number {-# UNPACK #-} !Rational
| Array {-# UNPACK #-} !(Array Natural Value)
| Object {-# UNPACK #-} !(Map Text Value)
| String !Text
| Boolean !Bool
| Number !Rational
| Array !(Array Natural Value)
| Object !(Map Text Value)
deriving (Show, Generic, Eq, Ord)
deriving PrettySerialize via Generically Value