diff options
Diffstat (limited to 'lib/Data/Packed/Matrix.hs')
| -rw-r--r-- | lib/Data/Packed/Matrix.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs index 36bf32e..2033dc7 100644 --- a/lib/Data/Packed/Matrix.hs +++ b/lib/Data/Packed/Matrix.hs | |||
| @@ -87,14 +87,14 @@ ident n = diag (constant 1 n) | |||
| 87 | r >< c = f where | 87 | r >< c = f where |
| 88 | f l | dim v == r*c = matrixFromVector RowMajor c v | 88 | f l | dim v == r*c = matrixFromVector RowMajor c v |
| 89 | | otherwise = error $ "inconsistent list size = " | 89 | | otherwise = error $ "inconsistent list size = " |
| 90 | ++show (dim v) ++"in ("++show r++"><"++show c++")" | 90 | ++show (dim v) ++" in ("++show r++"><"++show c++")" |
| 91 | where v = fromList l | 91 | where v = fromList l |
| 92 | 92 | ||
| 93 | (>|<) :: (Field a) => Int -> Int -> [a] -> Matrix a | 93 | (>|<) :: (Field a) => Int -> Int -> [a] -> Matrix a |
| 94 | r >|< c = f where | 94 | r >|< c = f where |
| 95 | f l | dim v == r*c = matrixFromVector ColumnMajor c v | 95 | f l | dim v == r*c = matrixFromVector ColumnMajor c v |
| 96 | | otherwise = error $ "inconsistent list size = " | 96 | | otherwise = error $ "inconsistent list size = " |
| 97 | ++show (dim v) ++"in ("++show r++"><"++show c++")" | 97 | ++show (dim v) ++" in ("++show r++"><"++show c++")" |
| 98 | where v = fromList l | 98 | where v = fromList l |
| 99 | 99 | ||
| 100 | ---------------------------------------------------------------- | 100 | ---------------------------------------------------------------- |