diff options
Diffstat (limited to 'lib/Numeric/GSL/Differentiation.hs')
-rw-r--r-- | lib/Numeric/GSL/Differentiation.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index 071704a..841f2a0 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
@@ -23,6 +23,7 @@ module Numeric.GSL.Differentiation ( | |||
23 | ) where | 23 | ) where |
24 | 24 | ||
25 | import Foreign | 25 | import Foreign |
26 | import Foreign.C.Types(CInt) | ||
26 | import Data.Packed.Internal(mkfun,check,(//)) | 27 | import Data.Packed.Internal(mkfun,check,(//)) |
27 | 28 | ||
28 | derivGen :: | 29 | derivGen :: |
@@ -46,7 +47,7 @@ derivGen c h f x = unsafePerformIO $ do | |||
46 | 47 | ||
47 | foreign import ccall "gsl-aux.h deriv" | 48 | foreign import ccall "gsl-aux.h deriv" |
48 | c_deriv :: Int -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double | 49 | c_deriv :: Int -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double |
49 | -> Ptr Double -> Ptr Double -> IO Int | 50 | -> Ptr Double -> Ptr Double -> IO CInt |
50 | 51 | ||
51 | 52 | ||
52 | {- | Adaptive central difference algorithm, /gsl_deriv_central/. For example: | 53 | {- | Adaptive central difference algorithm, /gsl_deriv_central/. For example: |