X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=83f4da38f52638f300a655ce88dbfc3d46a9cd8a;hb=1b041ed87130177797758f471aa78fe55e65c9ae;hp=7b139a4741aff80a5bae666395aa61c5d45aff5d;hpb=2813bba7169c1457e630b3870858e96fd4bf61da;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index 7b139a4..83f4da3 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -28,15 +28,7 @@ import qualified Face (Face(Face, v0, v1, v2, v3))
 import FunctionValues
 import Misc (all_equal, disjoint)
 import Point
-import Tetrahedron (
-  Tetrahedron(..),
-  c,
-  b0,
-  b1,
-  b2,
-  b3,
-  volume
-  )
+import Tetrahedron (Tetrahedron(..), c, volume)
 import ThreeDimensional
 
 data Cube = Cube { h :: Double,