From 46f18f6dd356db75b77bd95a15260c7c1a817bff Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 11 Feb 2014 15:25:49 -0500 Subject: [PATCH] Update Integration.Gaussian to use zip2. --- src/Integration/Gaussian.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Integration/Gaussian.hs b/src/Integration/Gaussian.hs index be92e5c..6eb46f6 100644 --- a/src/Integration/Gaussian.hs +++ b/src/Integration/Gaussian.hs @@ -24,13 +24,13 @@ import Linear.Matrix ( Col, Col10, Mat(..), - colzipwith, construct, fromList, identity_matrix, map2, row, - transpose ) + transpose, + zipwith2 ) import Linear.QR ( eigenvectors_symmetric ) import Normed ( Normed(..) ) @@ -213,4 +213,4 @@ gaussian' f nodes weights = norm_p (1::Int) weighted_values where function_values = map2 f nodes - weighted_values = colzipwith (*) weights function_values + weighted_values = zipwith2 (*) weights function_values -- 2.43.2