From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 25 Oct 2011 03:55:02 +0000 (-0400)
Subject: Add bang patterns to the definition of Face (Ben Lippmeier).
X-Git-Tag: 0.0.1~87
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=6985f184b560c21139209e5cc9fd0eaf4a51715c;p=spline3.git

Add bang patterns to the definition of Face (Ben Lippmeier).
---

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