From 58b1bbb0218a5acb2798493481102635844a2e64 Mon Sep 17 00:00:00 2001
From: VegOwOtenks <vegowotenks@jossco.de>
Date: Sat, 23 Aug 2025 18:14:19 +0200
Subject: [PATCH] feat: strict unpacked JSON

---
 src/Language/Json.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Language/Json.hs b/src/Language/Json.hs
index d99ddcb..67de602 100644
--- a/src/Language/Json.hs
+++ b/src/Language/Json.hs
@@ -33,11 +33,11 @@ import Data.Array.Arbitrary (ArbitraryArray(getArbitraryArray))
 
 data Value
   = Null
-  | String Text
-  | Boolean Bool
-  | Number Rational
-  | Array (Array Natural Value)
-  | Object (Map Text Value)
+  | String  {-# UNPACK #-} !Text
+  | Boolean {-# UNPACK #-} !Bool
+  | Number  {-# UNPACK #-} !Rational
+  | Array   {-# UNPACK #-} !(Array Natural Value)
+  | Object  {-# UNPACK #-} !(Map Text Value)
   deriving (Show, Generic, Eq, Ord)
   deriving PrettySerialize via Generically Value