revert to SAFE_CHEAP macro, unsafe by default

1 files changed, 9 insertions, 9 deletions

diff --git a/packages/special/lib/Numeric/GSL/Special/Log.hs b/packages/special/lib/Numeric/GSL/Special/Log.hs
index bbc88fe..3becf15 100644
--- a/packages/special/lib/Numeric/GSL/Special/Log.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Log.hs
@@ -30,36 +30,36 @@ import Numeric.GSL.Special.Internal
 
 log_e :: Double -> (Double,Double)
 log_e x = createSFR "log_e" $ gsl_sf_log_e x
-foreign import ccall unsafe "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt
+foreign import ccall SAFE_CHEAP "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt
 
 log :: Double -> Double
 log = gsl_sf_log
-foreign import ccall unsafe "gsl_sf_log" gsl_sf_log :: Double -> Double
+foreign import ccall SAFE_CHEAP "gsl_sf_log" gsl_sf_log :: Double -> Double
 
 log_abs_e :: Double -> (Double,Double)
 log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x
-foreign import ccall unsafe "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt
+foreign import ccall SAFE_CHEAP "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt
 
 log_abs :: Double -> Double
 log_abs = gsl_sf_log_abs
-foreign import ccall unsafe "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double
+foreign import ccall SAFE_CHEAP "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double
 
 complex_log_e :: Double -> Double -> ((Double,Double),(Double,Double))
 complex_log_e zr zi = create2SFR "complex_log_e" $ gsl_sf_complex_log_e zr zi
-foreign import ccall unsafe "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
+foreign import ccall SAFE_CHEAP "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
 
 log_1plusx_e :: Double -> (Double,Double)
 log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x
-foreign import ccall unsafe "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt
+foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt
 
 log_1plusx :: Double -> Double
 log_1plusx = gsl_sf_log_1plusx
-foreign import ccall unsafe "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double
+foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double
 
 log_1plusx_mx_e :: Double -> (Double,Double)
 log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x
-foreign import ccall unsafe "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt
+foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt
 
 log_1plusx_mx :: Double -> Double
 log_1plusx_mx = gsl_sf_log_1plusx_mx
-foreign import ccall unsafe "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double
+foreign import ccall SAFE_CHEAP "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double