X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FFace.hs;h=bc316a72cee9ae4eb815424b2ccbfe8705316911;hb=71c69c67074e6eb6ce7520739bc729691525b20b;hp=96092609fc55f99cc86459ebf787f26594efff1f;hpb=3f7331f579118687cd73b977ce6aa7d401f88a09;p=spline3.git

diff --git a/src/Face.hs b/src/Face.hs
index 9609260..bc316a7 100644
--- a/src/Face.hs
+++ b/src/Face.hs
@@ -7,10 +7,10 @@ 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