X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=e45a0f4380946f281533f27dcc9745ac8f3e4ce9;hb=8b5168ee28e4fd1d5958eabeb00fa6ee06bbfe3b;hp=4b75185ad19b31b4922e5485105b069ec56dba96;hpb=58cf11569acb270995d2de924dda03ef526647e2;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