From 0af9777b4e239028e1a1faeadcc497465a2fd00a Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 4 Mar 2019 19:59:02 -0500
Subject: [PATCH] src/Tetrahedron.hs: add a type annotation to avoid a
 monomorphism warning.

---
 src/Tetrahedron.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.44.2