X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;fp=src%2FGrid.hs;h=57eaa19f0c95e8c45ffdd01c9f4dcb759e3e5a67;hb=8a0914b82df64d85fef00c99ed6f827d400b48dd;hp=cf5483b379ca2d051c9b4af311df7fc9981072c8;hpb=f720b869549f32762a03006b676afb484f7df64b;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index cf5483b..57eaa19 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -143,7 +143,7 @@ zoom v3d scale_factor
         where
           (xsize, ysize, zsize) = dims v3d
           transExtent = zoom_shape scale_factor
-          f = zoom_lookup v3d scale_factor
+          f = zoom_lookup v3d scale_factor :: (DIM3 -> Double) -> DIM3 -> Double
 
 
 -- | Check all coefficients of tetrahedron0 belonging to the cube