Fix some hlint warnings.

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index 4b75185ad19b31b4922e5485105b069ec56dba96..e45a0f4380946f281533f27dcc9745ac8f3e4ce9 100644 (file)
--- 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