From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Mar 2019 00:59:02 +0000 (-0500)
Subject: src/Tetrahedron.hs: add a type annotation to avoid a monomorphism warning.
X-Git-Tag: 1.0.1~45
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=0af9777b4e239028e1a1faeadcc497465a2fd00a;p=spline3.git

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

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index e63f96b..edf450c 100644
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -107,7 +107,7 @@ beta t i j k l =
   coefficient `cmult` (b0_term * b1_term * b2_term * b3_term)
   where
     denominator = (factorial i)*(factorial j)*(factorial k)*(factorial l)
-    coefficient = 6 / (fromIntegral denominator)
+    coefficient = (6 / (fromIntegral denominator)) :: Double
     b0_term = (b0 t) `fexp` i
     b1_term = (b1 t) `fexp` j
     b2_term = (b2 t) `fexp` k