X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=bec49b4086a09947697ec183ff97459e76f43122;hb=5c2ac2ca74f2657ff8af381d3bcda72a37b39fb7;hp=d0d4b7e59740fd80bf72ed2a05fa78091afdbc04;hpb=f877af8565db22a047214827d44c4435f96385d5;p=spline3.git

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)