From: Michael Orlitzky <michael@orlitzky.com>
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)