Use unsafe versions of index and traverse.

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index fcdeb5e6246c9b8525424e9486938886e7aa929e..01d73a2576cd11173fb281e06996c8a102a4ad29 100644 (file)
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -156,7 +156,7 @@ zoom :: Grid -> ScaleFactor -> Values3D
 zoom g scale_factor
     | xsize == 0 || ysize == 0 || zsize == 0 = empty3d
     | otherwise =
-        R.force $ R.traverse arr transExtent (zoom_lookup g scale_factor)
+        R.force $ R.unsafeTraverse arr transExtent (zoom_lookup g scale_factor)
           where
             arr = function_values g
             (xsize, ysize, zsize) = dims arr