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