From c1bbd059ff94e539512a38f3cad0fcb5b4964e65 Mon Sep 17 00:00:00 2001
From: Volpeon <github@volpeon.ink>
Date: Thu, 4 Jan 2024 11:00:59 +0100
Subject: Remove Stack

---
 src/Data/JLD/Compaction/Global.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Data/JLD/Compaction/Global.hs')

diff --git a/src/Data/JLD/Compaction/Global.hs b/src/Data/JLD/Compaction/Global.hs
index 76b2db7..e4938e8 100644
--- a/src/Data/JLD/Compaction/Global.hs
+++ b/src/Data/JLD/Compaction/Global.hs
@@ -7,7 +7,8 @@ import Data.JLD.Options (JLDVersion (..))
 
 type JLDCompactionT e m = ReaderT JLDCompactionEnv (ExceptT (JLDError e) m)
 
-newtype JLDCompactionEnv = JLDCompactionEnv
+data JLDCompactionEnv = JLDCompactionEnv
     { jldCompactionEnvProcessingMode :: JLDVersion
+    , jldCompactionCompactArrays :: Bool
     }
     deriving (Show)
-- 
cgit v1.2.3-54-g00ecf