diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-24 17:07:29 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-24 17:07:29 +0200 |
| commit | 624046d6b55d37104f950e8888ab68c53a2e6bf0 (patch) | |
| tree | 664fa33c2c995078439f277c0d6147ca0ad8ffe4 /packages/base/src/Internal/ST.hs | |
| parent | fbff5949bba157b0da08a4b59124c7976289fb65 (diff) | |
initial support of sliceMatrix, remove transdata
Diffstat (limited to 'packages/base/src/Internal/ST.hs')
| -rw-r--r-- | packages/base/src/Internal/ST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Internal/ST.hs b/packages/base/src/Internal/ST.hs index 92654e4..73cdf0c 100644 --- a/packages/base/src/Internal/ST.hs +++ b/packages/base/src/Internal/ST.hs | |||
| @@ -223,7 +223,7 @@ rowOper (SWAP i1 i2 r) (STMatrix m) = unsafeIOToST $ rowOp 2 0 i1' i2' j1 j2 m | |||
| 223 | i2' = i2 `mod` (rows m) | 223 | i2' = i2 `mod` (rows m) |
| 224 | 224 | ||
| 225 | 225 | ||
| 226 | extractMatrix (STMatrix m) rr rc = unsafeIOToST (extractR m 0 (idxs[i1,i2]) 0 (idxs[j1,j2])) | 226 | extractMatrix (STMatrix m) rr rc = unsafeIOToST (extractR (orderOf m) m 0 (idxs[i1,i2]) 0 (idxs[j1,j2])) |
| 227 | where | 227 | where |
| 228 | (i1,i2) = getRowRange (rows m) rr | 228 | (i1,i2) = getRowRange (rows m) rr |
| 229 | (j1,j2) = getColRange (cols m) rc | 229 | (j1,j2) = getColRange (cols m) rc |