updated Interpolation imports

1 files changed, 4 insertions, 2 deletions

diff --git a/packages/gsl/src/Numeric/GSL/Interpolation.hs b/packages/gsl/src/Numeric/GSL/Interpolation.hs
index 4d72ee2..fb49e40 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 " ++