Update to repa3 (Ben Lippmeier).

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index de5f76ac326ff6d4d169125284a3d8a9b7b381a2..dc52482b0eb3cc2bc88656df24681759b8a4d346 100644 (file)
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -43,7 +43,7 @@ import Values (Values3D, dims, empty3d, zoom_shape)
 --   another in each direction (x,y,z).
 data Grid = Grid { h :: Double, -- MUST BE GREATER THAN ZERO!
                    function_values :: Values3D }
-          deriving (Eq, Show)
+          deriving (Show)
 
 
 instance Arbitrary Grid where
@@ -137,7 +137,7 @@ zoom :: Values3D -> ScaleFactor -> Values3D
 zoom v3d scale_factor
     | xsize == 0 || ysize == 0 || zsize == 0 = empty3d
     | otherwise =
-        R.force $ R.unsafeTraverse v3d transExtent f
+        R.compute $ R.unsafeTraverse v3d transExtent f
           where
             (xsize, ysize, zsize) = dims v3d
             transExtent = zoom_shape scale_factor