Update Integration.Gaussian to use zip2.

diff --git a/src/Integration/Gaussian.hs b/src/Integration/Gaussian.hs
index be92e5c8bdfd85e232cee5db3b1d57b7ce7675b1..6eb46f6683a9c58d0105da1f1519d732c53bdd64 100644 (file)
--- a/src/Integration/Gaussian.hs
+++ b/src/Integration/Gaussian.hs
@@ -24,13 +24,13 @@ import Linear.Matrix (
   Col,
   Col10,
   Mat(..),
   Col,
   Col10,
   Mat(..),

-  colzipwith,

   construct,
   fromList,
   identity_matrix,
   map2,
   row,
   construct,
   fromList,
   identity_matrix,
   map2,
   row,

-  transpose )
+  transpose,
+  zipwith2 )

 import Linear.QR ( eigenvectors_symmetric )
 import Normed ( Normed(..) )
 
 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
   norm_p (1::Int) weighted_values
   where
     function_values = map2 f nodes

-    weighted_values = colzipwith (*) weights function_values
+    weighted_values = zipwith2 (*) weights function_values