Fix some warnings and hlint suggestions.

[spline3.git] / src / Tetrahedron.hs

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 81fe91c11772122d0643b884e4fc3aea52163a43..85ac4a372d222cea1eaa56a821f54cf340e08b82 100644 (file)
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -198,7 +198,7 @@ c _ _ _ _ _ = error "coefficient index out of bounds"
 
 
 vol_matrix :: Tetrahedron -> Matrix Double
-vol_matrix t = (4><4) $
+vol_matrix t = (4><4)
                [1,  1,  1,  1,
                 x1, x2, x3, x4,
                 y1, y2, y3, y4,