diff options
author | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
---|---|---|
committer | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
commit | f8b7b3734fa6bb8d63914719e09d17940add27d4 (patch) | |
tree | 233c1c41ea8d5a0cf43bf9430cc2b60cff38a3e9 /lib/Numeric/GSL/ODE.hs | |
parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) |
Removed foreign import safety.
Diffstat (limited to 'lib/Numeric/GSL/ODE.hs')
-rw-r--r-- | lib/Numeric/GSL/ODE.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/ODE.hs b/lib/Numeric/GSL/ODE.hs index 2251acd..797ba3f 100644 --- a/lib/Numeric/GSL/ODE.hs +++ b/lib/Numeric/GSL/ODE.hs | |||
@@ -91,7 +91,7 @@ odeSolveV method h epsAbs epsRel f mbjac xiv ts = unsafePerformIO $ do | |||
91 | freeHaskellFunPtr fp | 91 | freeHaskellFunPtr fp |
92 | return sol | 92 | return sol |
93 | 93 | ||
94 | foreign import ccall "ode" | 94 | foreign import ccall unsafe "ode" |
95 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM | 95 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM |
96 | 96 | ||
97 | ------------------------------------------------------- | 97 | ------------------------------------------------------- |