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

diff --git a/src/Cube.hs b/src/Cube.hs
index d0d4b7e59740fd80bf72ed2a05fa78091afdbc04..bec49b4086a09947697ec183ff97459e76f43122 100644 (file)
--- 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)