X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=85ac4a372d222cea1eaa56a821f54cf340e08b82;hb=f07f76b231a3df623aab8b6035ac6000ce2a5eb2;hp=81fe91c11772122d0643b884e4fc3aea52163a43;hpb=ddc513c5d9051c57796a49df8be6294a0d0da0da;p=spline3.git

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 81fe91c..85ac4a3 100644
--- 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,