From: Michael Orlitzky Date: Tue, 5 Mar 2019 01:26:17 +0000 (-0500) Subject: src/Volumetric.hs: remove a redundant constraint from a function. X-Git-Tag: 1.0.1~36 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f720b869549f32762a03006b676afb484f7df64b;p=spline3.git src/Volumetric.hs: remove a redundant constraint from a function. --- 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)