From cb5b361ea78acd6f8c04cd864adc15edd90299db Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 30 Aug 2011 14:17:26 -0400
Subject: [PATCH] Fix two minor hLint warnings.

---
 src/Misc.hs       | 2 +-
 src/Tests/Grid.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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.
diff --git a/src/Tests/Grid.hs b/src/Tests/Grid.hs
index f72d312..d06e1e9 100644
--- a/src/Tests/Grid.hs
+++ b/src/Tests/Grid.hs
@@ -21,7 +21,7 @@ import ThreeDimensional
 --   values. See example one in the paper.
 trilinear_c0_t0_coefficient_tests :: Test.Framework.Test
 trilinear_c0_t0_coefficient_tests =
-  testGroup "trilinear c0 t0 coefficients" $
+  testGroup "trilinear c0 t0 coefficients"
     [testCase "c0030 is correct" test_trilinear_c0030,
      testCase "c0003 is correct" test_trilinear_c0003,
      testCase "c0021 is correct" test_trilinear_c0021,
-- 
2.43.2