From 03001e9fc9801afd28d17c5d97bac5702549ffc4 Mon Sep 17 00:00:00 2001
From: VegOwOtenks <vegowotenks@jossco.de>
Date: Sat, 23 Aug 2025 18:24:25 +0200
Subject: [PATCH] feat: strict but un-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 67de602..1b47a38 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  {-# 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