X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FCube.hs;h=bec49b4086a09947697ec183ff97459e76f43122;hb=e0bc55b3ed14d49a1745d71cd8dcd0fe58cc7867;hp=d0d4b7e59740fd80bf72ed2a05fa78091afdbc04;hpb=2692991205554fa8f2eacdc3e938772ab560edf7;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)