From 072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 13 Mar 2012 14:51:12 +0100 Subject: revert to SAFE_CHEAP macro, unsafe by default --- packages/special/lib/Numeric/GSL/Special/Elljac.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Elljac.hs') diff --git a/packages/special/lib/Numeric/GSL/Special/Elljac.hs b/packages/special/lib/Numeric/GSL/Special/Elljac.hs index 555e3ff..553350c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elljac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elljac.hs @@ -38,4 +38,4 @@ elljac_e u m = unsafePerformIO $ do else error $ "error code "++show res++ " in elljac_e "++show u++" "++show m -foreign import ccall unsafe "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt +foreign import ccall "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt -- cgit v1.2.3