X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=inline;f=src%2FGrid.hs;h=dc52482b0eb3cc2bc88656df24681759b8a4d346;hb=715be016934300f596a11e4fc5b8ca2ec42d6c34;hp=de5f76ac326ff6d4d169125284a3d8a9b7b381a2;hpb=edd0bfa30456c0f609418e730af641835b8650aa;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index de5f76a..dc52482 100644
--- 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