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

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index e63f96b7d1bc750e4c18c08888a5bf95ecc2f049..edf450c2c99abd4096dafa33fe011b72c3cb98ec 100644 (file)
--- 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