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

[spline3.git] / src / Point.hs

diff --git a/src/Point.hs b/src/Point.hs
index 8b720cf193c8a94b2963e4c75f78a194cd8dd87d..004b2e4498f99920971b9f36a2d3b6aa8d32dc01 100644 (file)
--- a/src/Point.hs
+++ b/src/Point.hs
@@ -6,7 +6,7 @@ module Point (
   scale )
 where
 
-import Test.Tasty.QuickCheck ( Arbitrary(..) )
+import Test.Tasty.QuickCheck ( Arbitrary( arbitrary ) )
 
 
 -- | Represents a point in three dimensions. We use a custom type (as
@@ -32,7 +32,7 @@ instance Num Point where
   fromInteger n =
     Point coord coord coord
     where
-      coord = fromInteger n
+      coord = fromInteger n :: Double
 
 
 -- | Scale a point by a constant.