From: Michael Orlitzky 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