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

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