From 33e0d2f5682b117b3aca945aaad5ab36958fa852 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 7 Dec 2018 10:43:58 -0500 Subject: [PATCH] src/Linear/QR.hs: fix monomorphism restriction warning. --- src/Linear/QR.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Linear/QR.hs b/src/Linear/QR.hs index 4c1c564..a4fb325 100644 --- a/src/Linear/QR.hs +++ b/src/Linear/QR.hs @@ -146,6 +146,8 @@ qr matrix = ifoldl col_function initial_qr columns where Mat columns = transpose matrix + + initial_qr :: (Mat (S m) (S m) a, Mat (S m) (S n) a) initial_qr = (identity_matrix, matrix) -- | Process the column and spit out the current QR -- 2.43.2