From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 8 Sep 2011 21:35:43 +0000 (-0400)
Subject: One-line cleanup.
X-Git-Tag: 0.0.1~141
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=f3d720f107f74b07a5f9f96e6a7c9c7a9022aeb0

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