From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 27 Oct 2011 13:32:40 +0000 (-0400)
Subject: Inline the polynomial function.
X-Git-Tag: 0.0.1~74
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f0f481c02b007a086bd09b05dacb6d603dff6c12;p=spline3.git

Inline the polynomial function.
---

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`