From 71c69c67074e6eb6ce7520739bc729691525b20b Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 25 Oct 2011 23:55:20 -0400
Subject: [PATCH] Inline find_containing_tetrahedron.

---
 src/Cube.hs | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
2.43.2