summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-07-22 19:33:38 +0200
committerAlberto Ruiz <aruiz@um.es>2015-07-22 19:33:38 +0200
commit233e419a2a48eb53e05370e5aa898608716ca114 (patch)
tree3977446a7c07dd98b00e41cbc71596b2b7700fa5
parentf4de670a45b193edb45c4689310271f10f52b205 (diff)
parenta1901862eeff4d3df006acbe9ce0f9584986dabd (diff)
Merge pull request #139 from peddie/interpfix
Fix copy-paste error in interpolation module
-rw-r--r--packages/gsl/src/Numeric/GSL/Interpolation.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/gsl/src/Numeric/GSL/Interpolation.hs b/packages/gsl/src/Numeric/GSL/Interpolation.hs
index fb49e40..d060468 100644
--- a/packages/gsl/src/Numeric/GSL/Interpolation.hs
+++ b/packages/gsl/src/Numeric/GSL/Interpolation.hs
@@ -117,7 +117,7 @@ evaluate :: InterpolationMethod -- ^ What method to use to interpolate
117 -> Double -- ^ Point at which to evaluate the function 117 -> Double -- ^ Point at which to evaluate the function
118 -> Double -- ^ Interpolated result 118 -> Double -- ^ Interpolated result
119evaluate mth pts = 119evaluate mth pts =
120 applyCFun "evaluate" "spline_eval" c_spline_eval_deriv 120 applyCFun "evaluate" "spline_eval" c_spline_eval
121 mth (fromList xs) (fromList ys) 121 mth (fromList xs) (fromList ys)
122 where 122 where
123 (xs, ys) = unzip pts 123 (xs, ys) = unzip pts