spline3.cabal: bump version to 1.0.2

[spline3.git] / src / Volumetric.hs

diff --git a/src/Volumetric.hs b/src/Volumetric.hs
index 2f2819cf502fcfbeac9f84cb568670b62b300afb..f9e8d545cdd1c21160d13df35e5473f123b19df0 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 )
@@ -74,7 +73,7 @@ bracket lower_threshold upper_threshold x
             where
               numerator = x - lower_threshold
               denominator = upper_threshold - lower_threshold
-              r = numerator/denominator
+              r = numerator / denominator
 
 
 flip16 :: Word16 -> Word16
@@ -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)