Fix a typo.

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

diff --git a/src/Linear/QR.hs b/src/Linear/QR.hs
index 13782c4fa9073728bfdf5d4a0de8b4a2788a67e4..043b17256e6af341dbe1fe3a34f18dff649a20a7 100644 (file)
--- a/src/Linear/QR.hs
+++ b/src/Linear/QR.hs
@@ -155,7 +155,7 @@ qr matrix =
       ifoldl (f col_idx) (q,r) col
 
     -- | Process the entries in a column, doing basically the same
-    --   thing as col_dunction does. It updates the QR factorization,
+    --   thing as col_function does. It updates the QR factorization,
     --   maybe, and returns the current one.
     f col_idx (q,r) idx _ -- ignore the current element
       | idx <= col_idx = (q,r) -- leave it alone