X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FPoint.hs;h=54c4f72913f37611bdf81861a30af49204dc50ce;hb=d7c423fa0c9d4e7775b84afede81cdfd4b42df70;hp=8b720cf193c8a94b2963e4c75f78a194cd8dd87d;hpb=074bd213d37126818be55304f97af6392ea25ee8;p=spline3.git

diff --git a/src/Point.hs b/src/Point.hs
index 8b720cf..54c4f72 100644
--- a/src/Point.hs
+++ b/src/Point.hs
@@ -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.