From: Michael Orlitzky Date: Fri, 7 Dec 2018 15:43:58 +0000 (-0500) Subject: src/Linear/QR.hs: fix monomorphism restriction warning. X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=33e0d2f5682b117b3aca945aaad5ab36958fa852;p=numerical-analysis.git src/Linear/QR.hs: fix monomorphism restriction warning. --- 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