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 =
                 // sc' // xiv' // ts' )
                 "ode"
         freeHaskellFunPtr fp
+        if (jp /= nullFunPtr) then freeHaskellFunPtr jp else pure ()
         return sol
 
 foreign import ccall safe "ode"