From f720b869549f32762a03006b676afb484f7df64b Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 4 Mar 2019 20:26:17 -0500 Subject: [PATCH] src/Volumetric.hs: remove a redundant constraint from a function. --- src/Volumetric.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Volumetric.hs b/src/Volumetric.hs index 2f2819c..0d1dfaa 100644 --- a/src/Volumetric.hs +++ b/src/Volumetric.hs @@ -40,7 +40,6 @@ import Data.Array.Repa.IO.Binary ( writeArrayToStorableFile ) import Data.Array.Repa.IO.BMP ( writeImageToBMP ) import Data.Array.Repa.Operators.Traversal ( unsafeTraverse ) -import Data.Array.Repa.Repr.Unboxed ( Unbox ) import Data.Array.Repa.Slice ( All( All ), Any( Any ) ) import Values ( Values, Values2D ) @@ -149,6 +148,6 @@ write_values_to_bmp path values = do writeImageToBMP path colors -z_slice :: (Unbox a, Source r a) => Int -> Array r DIM3 a -> Array D DIM2 a +z_slice :: (Source r a) => Int -> Array r DIM3 a -> Array D DIM2 a z_slice n arr = slice arr (Any :. n :. All :. All) -- 2.43.2