Update to repa3 (Ben Lippmeier).

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index 59a938799e20bf1c9ada903b1f63a80cfd462de8..dc52482b0eb3cc2bc88656df24681759b8a4d346 100644 (file)
--- 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