X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=0ea0ffb7b1f5743c0fd0f174b7b7f6d9dac86258;hb=f0f481c02b007a086bd09b05dacb6d603dff6c12;hp=a9e6c2c6c299a9ec8df42af3a3b137b5c97728b1;hpb=3228e541540bf785d95bbdbfe4a44c486182e45e;p=spline3.git

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index a9e6c2c..0ea0ffb 100644
--- 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`