diff options
Diffstat (limited to 'packages/base/src')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Static.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs index 84a623b..3e772b2 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs | |||
@@ -802,10 +802,11 @@ instance KnownNat n => Num (Sym n) | |||
802 | 802 | ||
803 | instance KnownNat n => Fractional (Sym n) | 803 | instance KnownNat n => Fractional (Sym n) |
804 | where | 804 | where |
805 | fromRational = Sym . L . Dim . Dim . fromRational | 805 | fromRational = Sym . fromRational |
806 | (/) = mkSym2 (/) | 806 | (/) = mkSym2 (/) |
807 | 807 | ||
808 | instance KnownNat n => Floating (Sym n) where | 808 | instance KnownNat n => Floating (Sym n) |
809 | where | ||
809 | sin = mkSym sin | 810 | sin = mkSym sin |
810 | cos = mkSym cos | 811 | cos = mkSym cos |
811 | tan = mkSym tan | 812 | tan = mkSym tan |