diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 14:51:12 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 14:51:12 +0100 |
commit | 072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 (patch) | |
tree | 09e3a46185a1ee231cdddab6955437a2b0ead601 /packages/special/lib/Numeric/GSL/Special/Transport.hs | |
parent | 9c4a8a37291f902312215452d0bdd9ad95408ae9 (diff) |
revert to SAFE_CHEAP macro, unsafe by default
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Transport.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Transport.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Transport.hs b/packages/special/lib/Numeric/GSL/Special/Transport.hs index f2d83a2..b92b578 100644 --- a/packages/special/lib/Numeric/GSL/Special/Transport.hs +++ b/packages/special/lib/Numeric/GSL/Special/Transport.hs | |||
@@ -29,32 +29,32 @@ import Numeric.GSL.Special.Internal | |||
29 | 29 | ||
30 | transport_2_e :: Double -> (Double,Double) | 30 | transport_2_e :: Double -> (Double,Double) |
31 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x | 31 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x |
32 | foreign import ccall unsafe "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt |
33 | 33 | ||
34 | transport_2 :: Double -> Double | 34 | transport_2 :: Double -> Double |
35 | transport_2 = gsl_sf_transport_2 | 35 | transport_2 = gsl_sf_transport_2 |
36 | foreign import ccall unsafe "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double | 36 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double |
37 | 37 | ||
38 | transport_3_e :: Double -> (Double,Double) | 38 | transport_3_e :: Double -> (Double,Double) |
39 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x | 39 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x |
40 | foreign import ccall unsafe "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt |
41 | 41 | ||
42 | transport_3 :: Double -> Double | 42 | transport_3 :: Double -> Double |
43 | transport_3 = gsl_sf_transport_3 | 43 | transport_3 = gsl_sf_transport_3 |
44 | foreign import ccall unsafe "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double | 44 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double |
45 | 45 | ||
46 | transport_4_e :: Double -> (Double,Double) | 46 | transport_4_e :: Double -> (Double,Double) |
47 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x | 47 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x |
48 | foreign import ccall unsafe "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt |
49 | 49 | ||
50 | transport_4 :: Double -> Double | 50 | transport_4 :: Double -> Double |
51 | transport_4 = gsl_sf_transport_4 | 51 | transport_4 = gsl_sf_transport_4 |
52 | foreign import ccall unsafe "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double | 52 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double |
53 | 53 | ||
54 | transport_5_e :: Double -> (Double,Double) | 54 | transport_5_e :: Double -> (Double,Double) |
55 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x | 55 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x |
56 | foreign import ccall unsafe "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt | 56 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt |
57 | 57 | ||
58 | transport_5 :: Double -> Double | 58 | transport_5 :: Double -> Double |
59 | transport_5 = gsl_sf_transport_5 | 59 | transport_5 = gsl_sf_transport_5 |
60 | foreign import ccall unsafe "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double | 60 | foreign import ccall SAFE_CHEAP "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double |