From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 25 Oct 2011 03:49:22 +0000 (-0400)
Subject: Add bang patterns to the definition of Cube (Ben Lippmeier).
X-Git-Tag: 0.0.1~90
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=e0bc55b3ed14d49a1745d71cd8dcd0fe58cc7867

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

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)