CInt in GSL args

1 files changed, 0 insertions, 5 deletions

diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs
index 72a7e26..8930cbb 100644
--- a/lib/Data/Packed/Internal/Common.hs
+++ b/lib/Data/Packed/Internal/Common.hs
@@ -99,11 +99,6 @@ check msg f = do
 -- | description of GSL error codes
 foreign import ccall "auxi.h gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar)
 
-
-{- | conversion of Haskell functions into function pointers that can be used in the C side
--}
-foreign import ccall "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) 
-
 ---------------------------------------------------
 -- ugly, but my haddock version doesn't understand
 -- yet infix type constructors