X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FGrid.hs;h=ab698c1ba537a96a7971fbd8b2505548bfde9c30;hb=41ad17ad9670eb529549c50d528e59407f438e5c;hp=6a9a8e5edd9ee62907a1486e29c25b334bedc041;hpb=42e5b4cc8b2dbd76ba4567b73967de974831c666;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index 6a9a8e5..ab698c1 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -7,7 +7,7 @@ where
 import qualified Data.Array.Repa as R
 import Test.QuickCheck (Arbitrary(..), Gen, Positive(..))
 
-import Cube (Cube(Cube), find_containing_tetrahedra)
+import Cube (Cube(Cube), find_containing_tetrahedron)
 import FunctionValues
 import Point (Point)
 import ScaleFactor
@@ -129,7 +129,7 @@ zoom_result g (sfx, sfy, sfz) (R.Z R.:. i R.:. j R.:. k) =
     k' = (fromIntegral k) / (fromIntegral sfz)
     p  = (i', j', k') :: Point
     c = find_containing_cube g p
-    t = head (find_containing_tetrahedra c p)
+    t = find_containing_tetrahedron c p
     f = polynomial t