X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=11762a5efeb0b1366d0455da5e97198f82ece0fc;hb=71c69c67074e6eb6ce7520739bc729691525b20b;hp=3c82f67e285f611ba64a11092d61c86cc890724a;hpb=edd0bfa30456c0f609418e730af641835b8650aa;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index 3c82f67..11762a5 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -620,6 +620,7 @@ in_left_half cube (Point _ y _) =
 --   This can throw an exception, but the use of 'head' might
 --   save us some unnecessary computations.
 --
+{-# INLINE find_containing_tetrahedron #-}
 find_containing_tetrahedron :: Cube -> Point -> Tetrahedron
 find_containing_tetrahedron cube p =
   candidates `V.unsafeIndex` (fromJust lucky_idx)