src/{Cube,FunctionValues}.hs: add explicit Cardinal imports.

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index cf5483b379ca2d051c9b4af311df7fc9981072c8..43e60ef2c17948e78e334b2c49847b4c1fa19f50 100644 (file)
--- 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