1 files changed, 5 insertions, 3 deletions

diff --git a/packages/gsl/src/Numeric/GSL/Interpolation.hs b/packages/gsl/src/Numeric/GSL/Interpolation.hs
index 4d72ee2..d060468 100644
--- a/packages/gsl/src/Numeric/GSL/Interpolation.hs
+++ b/packages/gsl/src/Numeric/GSL/Interpolation.hs
@@ -32,8 +32,7 @@ module Numeric.GSL.Interpolation (
   , evaluateIntegralV
 ) where
 
-import Data.Packed.Vector(Vector, fromList, dim)
-import Data.Packed.Foreign(appVector)
+import Numeric.LinearAlgebra(Vector, fromList, size, Numeric)
 import Foreign.C.Types
 import Foreign.Marshal.Alloc(alloca)
 import Foreign.Ptr(Ptr)
@@ -57,6 +56,9 @@ methodToInt CSplinePeriodic = 3
 methodToInt Akima = 4
 methodToInt AkimaPeriodic = 5
 
+dim :: Numeric t => Vector t -> Int
+dim = size
+
 applyCFun hsname cname fun mth xs ys x
   | dim xs /= dim ys = error $
                          "Error: Vectors of unequal sizes " ++
@@ -115,7 +117,7 @@ evaluate :: InterpolationMethod    -- ^ What method to use to interpolate
             -> Double              -- ^ Point at which to evaluate the function
             -> Double              -- ^ Interpolated result
 evaluate mth pts =
-  applyCFun "evaluate" "spline_eval" c_spline_eval_deriv
+  applyCFun "evaluate" "spline_eval" c_spline_eval
   mth (fromList xs) (fromList ys)
   where
     (xs, ys) = unzip pts