X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FTetrahedron.hs;h=edf450c2c99abd4096dafa33fe011b72c3cb98ec;hp=e63f96b7d1bc750e4c18c08888a5bf95ecc2f049;hb=0af9777b4e239028e1a1faeadcc497465a2fd00a;hpb=d3c559655599970d7e438701f6d780e49491c9d5

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