1 files changed, 6 insertions, 0 deletions

diff --git a/lib/Numeric/GSL/Internal.hs b/lib/Numeric/GSL/Internal.hs
index 834dfc2..37bcc1b 100644
--- a/lib/Numeric/GSL/Internal.hs
+++ b/lib/Numeric/GSL/Internal.hs
@@ -30,6 +30,9 @@ foreign import ccall "wrapper"
 foreign import ccall "wrapper"
     mkVecVecfun :: TVV -> IO (FunPtr TVV)
 
+foreign import ccall "wrapper"
+    mkDoubleVecVecfun :: (Double -> TVV) -> IO (FunPtr (Double -> TVV))
+
 aux_vTov :: (Vector Double -> Vector Double) -> TVV
 aux_vTov f n p nr r = g where
     V {fptr = pr} = f x
@@ -43,6 +46,9 @@ aux_vTov f n p nr r = g where
 foreign import ccall "wrapper"
     mkVecMatfun :: TVM -> IO (FunPtr TVM)
 
+foreign import ccall "wrapper"
+    mkDoubleVecMatfun :: (Double -> TVM) -> IO (FunPtr (Double -> TVM))
+
 aux_vTom :: (Vector Double -> Matrix Double) -> TVM
 aux_vTom f n p rr cr r = g where
     V {fptr = pr} = flatten $ f x