From c2432c20570f6f204dc81dc77795eff1e17e8cb0 Mon Sep 17 00:00:00 2001
From: meooow25 <soumiksarkar.3120@gmail.com>
Date: Sun, 8 Sep 2024 19:49:11 +0530
Subject: [PATCH] Drop the dependency on array

The array package was imported to provide NFData instances for the
Array type. However, this type is defined in base, not array, making
the dependency unncecessary. The Data.Array import is replaced with
GHC.Arr.

This change will also allow array to define NFData instances for other
types, because it can now depend on deepseq.
---
 Control/DeepSeq.hs | 12 +++++++-----
 deepseq.cabal      |  4 +---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 8276e21..a9b4524 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -6,7 +6,7 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE PolyKinds #-}
 {-# LANGUAGE QuantifiedConstraints #-}
-{-# LANGUAGE Safe #-}
+{-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeOperators #-}
 
@@ -94,7 +94,6 @@ module Control.DeepSeq (
 import Control.Applicative
 import Control.Concurrent (MVar, ThreadId)
 import Control.Exception (MaskingState (..))
-import Data.Array
 import Data.Complex
 import Data.Fixed
 import Data.Functor.Compose
@@ -118,6 +117,8 @@ import Data.Void (Void, absurd)
 import Data.Word
 import Foreign.C.Types
 import Foreign.Ptr
+import GHC.Arr (Array)
+import qualified GHC.Arr
 import GHC.Fingerprint.Type (Fingerprint (..))
 import GHC.Generics
 import GHC.Stack.Types (CallStack (..), SrcLoc (..))
@@ -628,15 +629,16 @@ instance NFData2 Const where
 -- We should use MIN_VERSION array(0,5,1,1) but that's not possible.
 -- There isn't an underscore to not break C preprocessor
 instance (NFData a, NFData b) => NFData (Array a b) where
-  rnf x = rnf (bounds x, Data.Array.elems x)
+  rnf x = rnf (GHC.Arr.bounds x, GHC.Arr.elems x)
 
 -- | @since 1.4.3.0
 instance (NFData a) => NFData1 (Array a) where
-  liftRnf r x = rnf (bounds x) `seq` liftRnf r (Data.Array.elems x)
+  liftRnf r x = rnf (GHC.Arr.bounds x) `seq` liftRnf r (GHC.Arr.elems x)
 
 -- | @since 1.4.3.0
 instance NFData2 Array where
-  liftRnf2 r r' x = liftRnf2 r r (bounds x) `seq` liftRnf r' (Data.Array.elems x)
+  liftRnf2 r r' x =
+    liftRnf2 r r (GHC.Arr.bounds x) `seq` liftRnf r' (GHC.Arr.elems x)
 
 -- | @since 1.4.0.0
 instance NFData a => NFData (Down a) where rnf = rnf1
diff --git a/deepseq.cabal b/deepseq.cabal
index 76963af..450697e 100644
--- a/deepseq.cabal
+++ b/deepseq.cabal
@@ -61,8 +61,7 @@ library
   if impl(ghc >=9.0)
     build-depends: ghc-prim
 
-  build-depends: base       >= 4.12 && < 4.21,
-                 array      >= 0.4 && < 0.6
+  build-depends: base       >= 4.12 && < 4.21
   ghc-options: -Wall
 
   exposed-modules: Control.DeepSeq
@@ -73,7 +72,6 @@ test-suite test
   main-is: Main.hs
   type: exitcode-stdio-1.0
   build-depends:
-    array,
     base,
     deepseq,
     ghc-prim