diff options
author | Justin Le <justin@jle.im> | 2016-05-25 02:49:18 -0700 |
---|---|---|
committer | Justin Le <justin@jle.im> | 2016-05-25 02:49:18 -0700 |
commit | 79369ee4c72d3c4844c734219c8f6430b3b0c4ab (patch) | |
tree | fdddc959a3b5e7dee9b2661a06f679558d371547 /packages/base/src/Numeric/LinearAlgebra | |
parent | 37c1348ade91807bdad45272801115b32572ad40 (diff) |
Transposable instance for Her
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Static.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs index 2ffc531..8019558 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs | |||
@@ -827,4 +827,8 @@ instance KnownNat n => Additive (Sym n) where | |||
827 | 827 | ||
828 | instance KnownNat n => Transposable (Sym n) (Sym n) where | 828 | instance KnownNat n => Transposable (Sym n) (Sym n) where |
829 | tr (Sym m) = Sym (tr m) | 829 | tr (Sym m) = Sym (tr m) |
830 | tr' = id | 830 | tr' = id |
831 | |||
832 | instance KnownNat n => Transposable (Her n) (Her n) where | ||
833 | tr = id | ||
834 | tr' (Her m) = Her (tr' m) | ||