Fix a typo.

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
       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
     --   maybe, and returns the current one.
     f col_idx (q,r) idx _ -- ignore the current element
       | idx <= col_idx = (q,r) -- leave it alone