X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FLinear%2FQR.hs;h=a4fb325f96d4b510401f79d8517b6beb48b8fc79;hb=38b68b8c9b83fc7bc9c6a2c9535a50a904d20b08;hp=4c1c56446f836c348b1b7e65ad138fb650dd9ed3;hpb=14c40575357025bbc37e5111ee879ff7f95d6e6f;p=numerical-analysis.git

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