Clean up some hLint warnings.

diff --git a/src/Cube.hs b/src/Cube.hs
index 6263d2e32a331ffe971b61ba78eed466fd71c04d..3f1669b619a5cbbb0ee262bd6b5f63b4c4a24355 100644 (file)
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -283,7 +283,7 @@ tetrahedron8 c =
       v1' = center (back_face c)
       v2' = Face.v0 (back_face c)
       v3' = Face.v1 (back_face c)
-      fv' = rotate cwy $ rotate cwy $ (Tetrahedron.fv (tetrahedron0 c))
+      fv' = rotate cwy $ rotate cwy $ Tetrahedron.fv (tetrahedron0 c)
 
 tetrahedron9 :: Cube -> Tetrahedron
 tetrahedron9 c =

diff --git a/src/Everything.hs b/src/Everything.hs
index 096d18f29edc8448def23d3f7d1da94d75e636f3..e25e7242e2db20bc4ac8b2884dcada74453cbddf 100644 (file)
--- a/src/Everything.hs
+++ b/src/Everything.hs
@@ -1,29 +1,18 @@
 -- | This module just imports the others. Useful in GHCi sessions.
 module Everything (
-  module Cardinal,
-  module Comparisons,
-  module Cube,
-  module Examples,
-  module Face,
-  module FunctionValues,
-  module Grid,
-  module Misc,
-  module Point,
-  module RealFunction,
-  module Tetrahedron,
-  module Values
+  module X
 )
 where
 
-import Cardinal
-import Comparisons
-import Cube hiding (h)
-import Examples
-import Face hiding (v0,v1,v2,v3)
-import FunctionValues
-import Grid
-import Misc
-import Point
-import RealFunction
-import Tetrahedron hiding (fv)
-import Values
+import Cardinal as X
+import Comparisons as X
+import Cube as X hiding (h)
+import Examples as X
+import Face as X hiding (v0,v1,v2,v3)
+import FunctionValues as X
+import Grid as X 
+import Misc as X
+import Point as X
+import RealFunction as X
+import Tetrahedron as X hiding (fv)
+import Values as X

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.

diff --git a/src/Values.hs b/src/Values.hs
index dc45a3f16dd7560e5b5b2d863e212ef6654c30b8..2efd80b6f8b167e58dde3efe1250cf48f9df79db 100644 (file)
--- a/src/Values.hs
+++ b/src/Values.hs
@@ -51,7 +51,7 @@ instance Arbitrary Values1D where
 
 
 read_values_1d :: FilePath -> IO Values1D
-read_values_1d path = readVectorFromTextFile path
+read_values_1d = readVectorFromTextFile
 
 
 read_values_3d :: DIM3 -> FilePath -> IO Values3D