Clean up some hLint warnings.

[spline3.git] / src / Misc.hs

diff --git a/src/Misc.hs b/src/Misc.hs
index d3c716283b624449276ae25e1fd271187cf43efb..6b5a84d20af8d79ea3eac277b5032eaf9123a8c5 100644 (file)
--- a/src/Misc.hs
+++ b/src/Misc.hs
@@ -46,8 +46,8 @@ transpose_xz m =
                       | z <- [0..zsize]]
     where
       zsize = (length m) - 1
-      ysize = (length (m !! 0))- 1
-      xsize = (length ((m !! 0) !! 0)) - 1
+      ysize = (length $ head m)- 1
+      xsize = (length $ head $ head m) - 1
 
 -- | Takes a list, and returns True if its elements are pairwise
 --   equal. Returns False otherwise.