diff options
Diffstat (limited to 'packages/base/src')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Static.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs index c764038..64c0f14 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs | |||
@@ -844,8 +844,8 @@ instance KnownNat n => Additive (Sym n) where | |||
844 | add = (+) | 844 | add = (+) |
845 | 845 | ||
846 | instance KnownNat n => Transposable (Sym n) (Sym n) where | 846 | instance KnownNat n => Transposable (Sym n) (Sym n) where |
847 | tr (Sym m) = Sym (tr m) | 847 | tr = id |
848 | tr' = id | 848 | tr' = id |
849 | 849 | ||
850 | instance KnownNat n => Transposable (Her n) (Her n) where | 850 | instance KnownNat n => Transposable (Her n) (Her n) where |
851 | tr = id | 851 | tr = id |