From 6985f184b560c21139209e5cc9fd0eaf4a51715c Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 24 Oct 2011 23:55:02 -0400 Subject: [PATCH] Add bang patterns to the definition of Face (Ben Lippmeier). --- src/Face.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.43.2