src/Volumetric.hs: remove a redundant constraint from a function.

diff --git a/src/Volumetric.hs b/src/Volumetric.hs
index 2f2819cf502fcfbeac9f84cb568670b62b300afb..0d1dfaac641773cbc35e0f39147e6359f23613b1 100644 (file)
--- 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)