diff options
Diffstat (limited to 'lib/Numeric/GSL/Minimization.hs')
-rw-r--r-- | lib/Numeric/GSL/Minimization.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index 88acfac..21ac8a1 100644 --- a/lib/Numeric/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs | |||
@@ -122,7 +122,7 @@ minimizeV method eps maxit szv f xiv = unsafePerformIO $ do | |||
122 | return (sol, path) | 122 | return (sol, path) |
123 | 123 | ||
124 | 124 | ||
125 | foreign import ccall "gsl-aux.h minimize" | 125 | foreign import ccall unsafe "gsl-aux.h minimize" |
126 | c_minimize:: CInt -> FunPtr (CInt -> Ptr Double -> Double) -> Double -> CInt -> TVVM | 126 | c_minimize:: CInt -> FunPtr (CInt -> Ptr Double -> Double) -> Double -> CInt -> TVVM |
127 | 127 | ||
128 | ---------------------------------------------------------------------------------- | 128 | ---------------------------------------------------------------------------------- |
@@ -179,7 +179,7 @@ minimizeVD method eps maxit istep tol f df xiv = unsafePerformIO $ do | |||
179 | freeHaskellFunPtr dfp | 179 | freeHaskellFunPtr dfp |
180 | return (sol,path) | 180 | return (sol,path) |
181 | 181 | ||
182 | foreign import ccall "gsl-aux.h minimizeD" | 182 | foreign import ccall unsafe "gsl-aux.h minimizeD" |
183 | c_minimizeD :: CInt | 183 | c_minimizeD :: CInt |
184 | -> FunPtr (CInt -> Ptr Double -> Double) | 184 | -> FunPtr (CInt -> Ptr Double -> Double) |
185 | -> FunPtr TVV | 185 | -> FunPtr TVV |