Inline find_containing_tetrahedron.

diff --git a/src/Cube.hs b/src/Cube.hs
index 3c82f67e285f611ba64a11092d61c86cc890724a..11762a5efeb0b1366d0455da5e97198f82ece0fc 100644 (file)
--- 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)