X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=9dcbac943b41c52f06b5140bfef8636eaafbb3e7;hb=5d65220bb18088a0944458ebbb1efedea785c851;hp=090642a223d6e2f2493441445dcd1dfba8e5e969;hpb=518b4b43bfd6c7c1d09841ca3ff5eeae089351ea;p=spline3.git

diff --git a/src/Misc.hs b/src/Misc.hs
index 090642a..9dcbac9 100644
--- a/src/Misc.hs
+++ b/src/Misc.hs
@@ -47,7 +47,7 @@ transpose_xz m =
     where
       zsize = (length m) - 1
       ysize = length (head m) - 1
-      xsize = (length $ head $ head m) - 1
+      xsize = length (head $ head m) - 1
 
 -- | Takes a list, and returns True if its elements are pairwise
 --   equal. Returns False otherwise.