Fix a bunch of hlint warnings.

[numerical-analysis.git] / src / Linear / System.hs

diff --git a/src/Linear/System.hs b/src/Linear/System.hs
index f49c652e494d769ed4be5e69db9d468abbef8d72..85a1dd4b4a619affd6401a5d0e890e19ac007efc 100644 (file)
--- a/src/Linear/System.hs
+++ b/src/Linear/System.hs
@@ -80,8 +80,8 @@ backward_substitute :: (Field.C a, Arity m)
                     => Mat m m a
                     -> Mat m N1 a
                     -> Mat m N1 a
-backward_substitute m b =
-  forward_substitute (transpose m) b
+backward_substitute m =
+  forward_substitute (transpose m)
 
 
 -- | Solve the linear system m*x = b where m is positive definite.