X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FPoint.hs;h=54c4f72913f37611bdf81861a30af49204dc50ce;hb=25e5b7ede93ded8e1ed0fc81f4c3979ff500309d;hp=0e29d596e583786c99ca16e7a2922db4a616fdef;hpb=7e59859d69d9c5bbe5d654566adea71265447756;p=spline3.git

diff --git a/src/Point.hs b/src/Point.hs
index 0e29d59..54c4f72 100644
--- a/src/Point.hs
+++ b/src/Point.hs
@@ -6,7 +6,7 @@ module Point (
   scale )
 where
 
-import Test.QuickCheck ( Arbitrary(..) )
+import Test.Tasty.QuickCheck ( 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.