summaryrefslogtreecommitdiff
path: root/packages/base/src/Numeric/LinearAlgebra/Static.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Static.hs')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/Static.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index a55ae44..2ffc531 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -821,3 +821,10 @@ instance KnownNat n => Floating (Sym n)
821 sqrt = mkSym sqrt 821 sqrt = mkSym sqrt
822 (**) = mkSym2 (**) 822 (**) = mkSym2 (**)
823 pi = Sym pi 823 pi = Sym pi
824
825instance KnownNat n => Additive (Sym n) where
826 add = (+)
827
828instance KnownNat n => Transposable (Sym n) (Sym n) where
829 tr (Sym m) = Sym (tr m)
830 tr' = id