diff options
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Interpolation.hs | 2 |
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 |
119 | evaluate mth pts = | 119 | evaluate 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 |