diff options
| -rw-r--r-- | packages/gsl/src/Numeric/GSL/ODE.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/gsl/src/Numeric/GSL/ODE.hs b/packages/gsl/src/Numeric/GSL/ODE.hs index c4fab85..987d47e 100644 --- a/packages/gsl/src/Numeric/GSL/ODE.hs +++ b/packages/gsl/src/Numeric/GSL/ODE.hs | |||
| @@ -152,6 +152,7 @@ odeSolveVWith' method mbjac control epsAbs epsRel aX aX' mbsc h f xiv ts = | |||
| 152 | // sc' // xiv' // ts' ) | 152 | // sc' // xiv' // ts' ) |
| 153 | "ode" | 153 | "ode" |
| 154 | freeHaskellFunPtr fp | 154 | freeHaskellFunPtr fp |
| 155 | if (jp /= nullFunPtr) then freeHaskellFunPtr jp else pure () | ||
| 155 | return sol | 156 | return sol |
| 156 | 157 | ||
| 157 | foreign import ccall safe "ode" | 158 | foreign import ccall safe "ode" |