From 85703cc308e6de7f60945661db11f5d828bf096f Mon Sep 17 00:00:00 2001 From: Sidharth Kapur Date: Wed, 27 Jan 2016 16:52:51 -0600 Subject: Minor change --- packages/base/src/Numeric/LinearAlgebra/Static.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Numeric') 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) instance KnownNat n => Fractional (Sym n) where - fromRational = Sym . L . Dim . Dim . fromRational + fromRational = Sym . fromRational (/) = mkSym2 (/) -instance KnownNat n => Floating (Sym n) where +instance KnownNat n => Floating (Sym n) + where sin = mkSym sin cos = mkSym cos tan = mkSym tan -- cgit v1.2.3