Inline the polynomial function.

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index a9e6c2c6c299a9ec8df42af3a3b137b5c97728b1..0ea0ffb7b1f5743c0fd0f174b7b7f6d9dac86258 100644 (file)
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -96,7 +96,7 @@ instance ThreeDimensional Tetrahedron where
         b3_unscaled = volume inner_tetrahedron
           where inner_tetrahedron = t { v3 = p0 }
 
-
+{-# INLINE polynomial #-}
 polynomial :: Tetrahedron -> (RealFunction Point)
 polynomial t =
     V.sum $ V.singleton ((c t 0 0 0 3) `cmult` (beta t 0 0 0 3)) `V.snoc`