diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-02-01 08:41:08 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-02-01 08:41:08 +0000 |
| commit | 6f4137cabbc16fa616e823db3d1b2cf90c03e5c9 (patch) | |
| tree | 3c0e644e349dcd401ad7ad2fe8a717ff989d8b88 /lib/Numeric/LinearAlgebra/Instances.hs | |
| parent | c3fb38f685fa4a5705ac229fa8b87968efa95ead (diff) | |
internal idim irows icols
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Instances.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Instances.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Instances.hs b/lib/Numeric/LinearAlgebra/Instances.hs index ffc4f17..1f8b5a0 100644 --- a/lib/Numeric/LinearAlgebra/Instances.hs +++ b/lib/Numeric/LinearAlgebra/Instances.hs | |||
| @@ -203,7 +203,7 @@ instance (Linear Vector a, Floating (Vector a), Fractional (Matrix a)) => Floati | |||
| 203 | --------------------------------------------------------------- | 203 | --------------------------------------------------------------- |
| 204 | 204 | ||
| 205 | instance (Storable a, Num (Vector a)) => Monoid (Vector a) where | 205 | instance (Storable a, Num (Vector a)) => Monoid (Vector a) where |
| 206 | mempty = 0 { dim = 0 } | 206 | mempty = 0 { idim = 0 } |
| 207 | mappend a b = mconcat [a,b] | 207 | mappend a b = mconcat [a,b] |
| 208 | mconcat = j . filter ((>0).dim) | 208 | mconcat = j . filter ((>0).dim) |
| 209 | where j [] = mempty | 209 | where j [] = mempty |