X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=43e60ef2c17948e78e334b2c49847b4c1fa19f50;hb=83ef0aaeae074756e4ee90d72d3e27e74e136061;hp=cf5483b379ca2d051c9b4af311df7fc9981072c8;hpb=c548fc59fb4856b81a5f205f1963c85e7619871e;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index cf5483b..43e60ef 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -19,7 +19,7 @@ import Data.Array.Repa.Operators.Traversal ( unsafeTraverse )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( Assertion, assertEqual, testCase )
 import Test.Tasty.QuickCheck (
-  Arbitrary(..),
+  Arbitrary( arbitrary ),
   Gen,
   Property,
   (==>),
@@ -36,7 +36,7 @@ import Cube (
   tetrahedron )
 import Examples ( trilinear, trilinear9x9x9, zeros )
 import FunctionValues ( make_values, value_at )
-import Point ( Point(..) )
+import Point ( Point(Point) )
 import ScaleFactor ( ScaleFactor )
 import Tetrahedron (
   Tetrahedron( v0, v1, v2, v3 ),
@@ -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