X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=192bbaf8d3ac4e5dd5e48cac776726e414c4171c;hb=3544d15ebbd0176c9aac2fd0e0e94468abc56879;hp=26f44251d4a5f08612317788afa223cb723a24e2;hpb=429558a71324dc10606d05497117b0222b959adc;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index 26f4425..192bbaf 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -10,6 +10,7 @@ module Grid (
 where
 
 import qualified Data.Array.Repa as R
+import qualified Data.Array.Repa.Operators.Traversal as R (unsafeTraverse)
 import Test.HUnit (Assertion, assertEqual)
 import Test.Framework (Test, testGroup)
 import Test.Framework.Providers.HUnit (testCase)
@@ -121,7 +122,7 @@ zoom :: Values3D -> ScaleFactor -> Values3D
 zoom v3d scale_factor
     | xsize == 0 || ysize == 0 || zsize == 0 = empty3d
     | otherwise =
-        R.compute $ R.unsafeTraverse v3d transExtent f
+        R.computeS $ R.unsafeTraverse v3d transExtent f
           where
             (xsize, ysize, zsize) = dims v3d
             transExtent = zoom_shape scale_factor