From: Michael Orlitzky Date: Thu, 8 Sep 2011 21:35:43 +0000 (-0400) Subject: One-line cleanup. X-Git-Tag: 0.0.1~141 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f3d720f107f74b07a5f9f96e6a7c9c7a9022aeb0;p=spline3.git One-line cleanup. --- diff --git a/src/Grid.hs b/src/Grid.hs index 742360f..e4f3d62 100644 --- a/src/Grid.hs +++ b/src/Grid.hs @@ -71,8 +71,9 @@ cubes delta fvs j <- [0..ymax], k <- [0..zmax], let tet_vol = (1/24)*(delta^(3::Int)), + let fvs' = make_values fvs i j k, let cube_ijk = - Cube delta i j k (make_values fvs i j k) tet_vol] + Cube delta i j k fvs' tet_vol] where xmax = xsize - 1 ymax = ysize - 1