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

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