diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-12 10:11:32 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-12 10:11:32 +0000 |
| commit | 33a9909d0d59f468039597c405306b8d5fa9e008 (patch) | |
| tree | 5448bb82efa72f6e61d85829518a1cd54fca4911 /lib | |
| parent | c41d21fefa04c66039a0b218daaa53c2577ef838 (diff) | |
diagAux error
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 317 | 317 | ||
| 318 | diagAux fun msg (v@V {dim = n}) = unsafePerformIO $ do | 318 | diagAux fun msg (v@V {dim = n}) = unsafePerformIO $ do |
| 319 | m <- createMatrix RowMajor n n | 319 | m <- createMatrix RowMajor n n |
| 320 | fun // vec v // matc m // check msg [cdat m] | 320 | fun // vec v // matc m // check msg [v] |
| 321 | return m -- {tdat = dat m} | 321 | return m -- {tdat = dat m} |
| 322 | 322 | ||
| 323 | -- | diagonal matrix from a real vector | 323 | -- | diagonal matrix from a real vector |