From 33a9909d0d59f468039597c405306b8d5fa9e008 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 12 Nov 2007 10:11:32 +0000 Subject: diagAux error --- lib/Data/Packed/Internal/Matrix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data/Packed/Internal') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 010c40b..5617996 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -317,7 +317,7 @@ subMatrix = subMatrixD diagAux fun msg (v@V {dim = n}) = unsafePerformIO $ do m <- createMatrix RowMajor n n - fun // vec v // matc m // check msg [cdat m] + fun // vec v // matc m // check msg [v] return m -- {tdat = dat m} -- | diagonal matrix from a real vector -- cgit v1.2.3