X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=e45a0f4380946f281533f27dcc9745ac8f3e4ce9;hb=c864b66c83f2be395fa590321ca313e227d79fab;hp=4b75185ad19b31b4922e5485105b069ec56dba96;hpb=a2cc10f44d77965b97c21ba74aa2acb302cd8fe0;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index 4b75185..e45a0f4 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -42,8 +42,8 @@ cubes g
     where
       fvs = function_values g
       zsize = (length fvs) - 1
-      ysize = (length $ head fvs) - 1
-      xsize = (length $ head $ head fvs) - 1
+      ysize = length (head fvs) - 1
+      xsize = length (head $ head fvs) - 1
 
 
 -- | Takes a grid and a position as an argument and returns the cube