Merge pull request #550 from AccelerateHS/cleanup-modules

Clean up unused modules
AccelerateHS · Jan 13, 2025 · 4865655 · 4865655
2 parents 3967d71 + d089fc7
commit 4865655
Show file tree

Hide file tree

Showing 7 changed files with 2 additions and 4 deletions.
diff --git a/accelerate.cabal b/accelerate.cabal
@@ -414,7 +414,6 @@ library
         Data.Array.Accelerate.Sugar.Elt
         Data.Array.Accelerate.Sugar.Foreign
         Data.Array.Accelerate.Sugar.Shape
-        Data.Array.Accelerate.Sugar.Tag
         Data.Array.Accelerate.Sugar.Vec
         Data.Array.Accelerate.Trafo
         Data.Array.Accelerate.Trafo.Config
@@ -481,7 +480,6 @@ library
         Data.Atomic
 
         -- Data.Array.Accelerate.Array.Lifted
-        -- Data.Array.Accelerate.Trafo.Vectorise
 
         -- nofib test suite
         Data.Array.Accelerate.Test.NoFib.Base

diff --git a/src/Data/Array/Accelerate/Sugar/Stencil.hs → icebox/Sugar/Stencil.hs b/src/Data/Array/Accelerate/Sugar/Stencil.hs → icebox/Sugar/Stencil.hs
diff --git a/src/Data/Array/Accelerate/Sugar/Tag.hs → icebox/Sugar/Tag.hs b/src/Data/Array/Accelerate/Sugar/Tag.hs → icebox/Sugar/Tag.hs
diff --git a/src/Data/Array/Accelerate/Trafo/Normalise.hs → icebox/Trafo/Normalise.hs b/src/Data/Array/Accelerate/Trafo/Normalise.hs → icebox/Trafo/Normalise.hs
diff --git a/src/Data/Array/Accelerate/Trafo/Vectorise.hs → icebox/Trafo/Vectorise.hs b/src/Data/Array/Accelerate/Trafo/Vectorise.hs → icebox/Trafo/Vectorise.hs
diff --git a/src/Data/Array/Accelerate/AST.hs b/src/Data/Array/Accelerate/AST.hs
@@ -149,7 +149,7 @@ import Data.Array.Accelerate.Sugar.Foreign
 import Data.Array.Accelerate.Type
 import Data.Primitive.Vec
 
-import Control.DeepSeq
+import Control.DeepSeq                                              ( NFData(..) )
 import Data.Kind
 import Data.Maybe
 import Data.Text                                                    ( Text )

diff --git a/src/Data/Array/Accelerate/Interpreter.hs b/src/Data/Array/Accelerate/Interpreter.hs
@@ -69,7 +69,7 @@ import qualified Data.Array.Accelerate.Sugar.Array                  as Sugar
 import qualified Data.Array.Accelerate.Sugar.Elt                    as Sugar
 import qualified Data.Array.Accelerate.Trafo.Delayed                as AST
 
-import Control.DeepSeq
+import Control.DeepSeq                                              ( ($!!) )
 import Control.Exception
 import Control.Monad
 import Control.Monad.ST