diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
| commit | 4ada25636995115f2b26707870f611a138f4e20b (patch) | |
| tree | 07ade269d5b98ae8284d2064bb3a8ea928e3e405 /packages/base/src/Internal/Util.hs | |
| parent | 4730254f061832591d4a44c86d3bdfa4620f4322 (diff) | |
subMatrix changed to non copying slice
Diffstat (limited to 'packages/base/src/Internal/Util.hs')
| -rw-r--r-- | packages/base/src/Internal/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Internal/Util.hs b/packages/base/src/Internal/Util.hs index 258c3a3..4123e6c 100644 --- a/packages/base/src/Internal/Util.hs +++ b/packages/base/src/Internal/Util.hs | |||
| @@ -849,7 +849,7 @@ viewBlock' r c m | |||
| 849 | m12 = subm (0,c) (r,ct-c) m | 849 | m12 = subm (0,c) (r,ct-c) m |
| 850 | m21 = subm (r,0) (rt-r,c) m | 850 | m21 = subm (r,0) (rt-r,c) m |
| 851 | m22 = subm (r,c) (rt-r,ct-c) m | 851 | m22 = subm (r,c) (rt-r,ct-c) m |
| 852 | subm = sliceMatrix | 852 | subm = subMatrix |
| 853 | 853 | ||
| 854 | viewBlock m = viewBlock' n n m | 854 | viewBlock m = viewBlock' n n m |
| 855 | where | 855 | where |