X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FPoint.hs;h=54c4f72913f37611bdf81861a30af49204dc50ce;hb=5297a1f696e0f99ceaef5e3adb76c5ab425f528d;hp=a334c5c95642ae1f06dea200d03546aa82418316;hpb=edd0bfa30456c0f609418e730af641835b8650aa;p=spline3.git

diff --git a/src/Point.hs b/src/Point.hs
index a334c5c..54c4f72 100644
--- a/src/Point.hs
+++ b/src/Point.hs
@@ -3,15 +3,15 @@
 module Point (
   Point(..),
   dot,
-  scale
-  )
+  scale )
 where
 
-import Test.QuickCheck (Arbitrary(..))
+import Test.Tasty.QuickCheck ( Arbitrary(..) )
 
 
 -- | Represents a point in three dimensions. We use a custom type (as
 --   opposed to a 3-tuple) so that we can make the coordinates strict.
+--
 data Point =
   Point !Double !Double !Double
   deriving (Eq, Show)
@@ -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.