From e0bc55b3ed14d49a1745d71cd8dcd0fe58cc7867 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 24 Oct 2011 23:49:22 -0400
Subject: [PATCH] Add bang patterns to the definition of Cube (Ben Lippmeier).

---
 src/Cube.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Cube.hs b/src/Cube.hs
index d0d4b7e..bec49b4 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -31,12 +31,12 @@ import Point
 import Tetrahedron (Tetrahedron(..), c, volume)
 import ThreeDimensional
 
-data Cube = Cube { h :: Double,
-                   i :: Int,
-                   j :: Int,
-                   k :: Int,
-                   fv :: FunctionValues,
-                   tetrahedra_volume :: Double }
+data Cube = Cube { h  :: !Double,
+                   i  :: !Int,
+                   j  :: !Int,
+                   k  :: !Int,
+                   fv :: !FunctionValues,
+                   tetrahedra_volume :: !Double }
             deriving (Eq)
 
 
-- 
2.44.2