From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Mar 2019 01:07:28 +0000 (-0500)
Subject: src/Point.hs: add a type annotation to avoid a monomorphism warning.
X-Git-Tag: 1.0.1~42
X-Git-Url: https://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=d7c423fa0c9d4e7775b84afede81cdfd4b42df70

src/Point.hs: add a type annotation to avoid a monomorphism warning.
---

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.