diff options
| author | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2010-09-29 12:35:11 +0000 |
|---|---|---|
| committer | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2010-09-29 12:35:11 +0000 |
| commit | 49df400d892d4f51cbe724f5677aec70753b0408 (patch) | |
| tree | a49eaa7f4bb6301c4225aab8ec25718bc4870634 /lib/Data/Packed/Internal | |
| parent | a3d3e0bd63a1c8215d4138195d128201ffa424e8 (diff) | |
[hlint] Remove redundant brackets and $'s
Diffstat (limited to 'lib/Data/Packed/Internal')
| -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 c4491fb..29aba51 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
| @@ -160,7 +160,7 @@ fromRows vs = case compatdim (map dim vs) of | |||
| 160 | -- | extracts the rows of a matrix as a list of vectors | 160 | -- | extracts the rows of a matrix as a list of vectors |
| 161 | toRows :: Element t => Matrix t -> [Vector t] | 161 | toRows :: Element t => Matrix t -> [Vector t] |
| 162 | toRows m = toRows' 0 where | 162 | toRows m = toRows' 0 where |
| 163 | v = flatten $ m | 163 | v = flatten m |
| 164 | r = rows m | 164 | r = rows m |
| 165 | c = cols m | 165 | c = cols m |
| 166 | toRows' k | k == r*c = [] | 166 | toRows' k | k == r*c = [] |