X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FLinear%2FSystem.hs;h=85a1dd4b4a619affd6401a5d0e890e19ac007efc;hb=3cb0f69fa38e5f46a2374d48168acf69bfc9e910;hp=f49c652e494d769ed4be5e69db9d468abbef8d72;hpb=4a1589178a2928710f13e0cb18efb34ed8c0d883;p=numerical-analysis.git

diff --git a/src/Linear/System.hs b/src/Linear/System.hs
index f49c652..85a1dd4 100644
--- 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.