From: Michael Orlitzky 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