From f3d720f107f74b07a5f9f96e6a7c9c7a9022aeb0 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Thu, 8 Sep 2011 17:35:43 -0400 Subject: [PATCH] One-line cleanup. --- src/Grid.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.43.2