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/Compaction.hs | 1 +
 src/Data/JLD/Compaction/Global.hs     | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)
 create mode 100644 src/Data/JLD/Compaction/Compaction.hs

(limited to 'src')

diff --git a/src/Data/JLD/Compaction/Compaction.hs b/src/Data/JLD/Compaction/Compaction.hs
new file mode 100644
index 0000000..678db84
--- /dev/null
+++ b/src/Data/JLD/Compaction/Compaction.hs
@@ -0,0 +1 @@
+module Data.JLD.Compaction.Compaction where
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