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/Static.hs | |
| parent | 37c1348ade91807bdad45272801115b32572ad40 (diff) | |
Transposable instance for Her
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Static.hs')
| -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) | ||