From 273de57881fd5cf3092816ddeb45b026612adeae Mon Sep 17 00:00:00 2001 From: Justin Le Date: Thu, 7 Jan 2016 20:14:51 -0800 Subject: changed zipWith to zipWithVector to match Numeric.LinearAlgebra.Devel --- packages/base/src/Numeric/LinearAlgebra/Static.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 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 9a2bdc8..720b011 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs @@ -526,7 +526,7 @@ class Domain field vec mat | mat -> vec field, vec -> mat field, field -> mat ve dvmap :: forall n. KnownNat n => (field -> field) -> vec n -> vec n dmmap :: forall n m. (KnownNat m, KnownNat n) => (field -> field) -> mat n m -> mat n m outer :: forall n m. (KnownNat m, KnownNat n) => vec n -> vec m -> mat n m - zipWith :: forall n. KnownNat n => (field -> field -> field) -> vec n -> vec n -> vec n + zipWithVector :: forall n. KnownNat n => (field -> field -> field) -> vec n -> vec n -> vec n instance Domain ℝ R L @@ -539,7 +539,7 @@ instance Domain ℝ R L dvmap = mapR dmmap = mapL outer = outerR - zipWith = zipWithR + zipWithVector = zipWithR instance Domain ℂ C M where @@ -551,7 +551,7 @@ instance Domain ℂ C M dvmap = mapC dmmap = mapM' outer = outerC - zipWith = zipWithC + zipWithVector = zipWithC -------------------------------------------------------------------------------- -- cgit v1.2.3