Remove the Point.distance function and associated assertion. We only need the dot...

[spline3.git] / src / Face.hs

diff --git a/src/Face.hs b/src/Face.hs
index 96848cd9f8c669b1045b40e45f1d0ee754e7e53c..bc316a72cee9ae4eb815424b2ccbfe8705316911 100644 (file)
--- a/src/Face.hs
+++ b/src/Face.hs
@@ -1,15 +1,16 @@
 -- | The Face module just contains the definition of the 'Face' data
 --   type and its two typeclass instances.
 module Face
+  ( Face(..) )
 where
 
 import Point
 import ThreeDimensional
 
-data Face = Face { v0 :: Point,
-                   v1 :: Point,
-                   v2 :: Point,
-                   v3 :: Point }
+data Face = Face { v0 :: !Point,
+                   v1 :: !Point,
+                   v2 :: !Point,
+                   v3 :: !Point }
           deriving (Eq)
 
 instance Show Face where