diff options
Diffstat (limited to 'packages/special/lib/Numeric/GSL')
31 files changed, 30 insertions, 31 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Airy.hs b/packages/special/lib/Numeric/GSL/Special/Airy.hs index 2438b71..737de7c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Airy.hs +++ b/packages/special/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -41,7 +41,7 @@ module Numeric.GSL.Special.Airy( | |||
41 | ) where | 41 | ) where |
42 | 42 | ||
43 | import Foreign(Ptr) | 43 | import Foreign(Ptr) |
44 | import Foreign.C.Types(CInt(..)) | 44 | import Foreign.C.Types |
45 | import Numeric.GSL.Special.Internal | 45 | import Numeric.GSL.Special.Internal |
46 | 46 | ||
47 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 47 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Bessel.hs b/packages/special/lib/Numeric/GSL/Special/Bessel.hs index e88c3b0..4a80c28 100644 --- a/packages/special/lib/Numeric/GSL/Special/Bessel.hs +++ b/packages/special/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -105,7 +105,7 @@ module Numeric.GSL.Special.Bessel( | |||
105 | ) where | 105 | ) where |
106 | 106 | ||
107 | import Foreign(Ptr) | 107 | import Foreign(Ptr) |
108 | import Foreign.C.Types(CInt(..),CSize(..)) | 108 | import Foreign.C.Types |
109 | import Numeric.GSL.Special.Internal | 109 | import Numeric.GSL.Special.Internal |
110 | 110 | ||
111 | bessel_J0_e :: Double -> (Double,Double) | 111 | bessel_J0_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Clausen.hs b/packages/special/lib/Numeric/GSL/Special/Clausen.hs index 59547ec..80bd45c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Clausen.hs +++ b/packages/special/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Clausen( | |||
18 | ) where | 18 | ) where |
19 | 19 | ||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt(..)) | 21 | import Foreign.C.Types |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | 23 | ||
24 | clausen_e :: Double -> (Double,Double) | 24 | clausen_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs index c282d7b..218213a 100644 --- a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs +++ b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs | |||
@@ -21,7 +21,7 @@ module Numeric.GSL.Special.Coulomb( | |||
21 | ) where | 21 | ) where |
22 | 22 | ||
23 | import Foreign(Ptr) | 23 | import Foreign(Ptr) |
24 | import Foreign.C.Types(CInt(..)) | 24 | import Foreign.C.Types |
25 | import Numeric.GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
26 | 26 | ||
27 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) | 27 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Coupling.hs b/packages/special/lib/Numeric/GSL/Special/Coupling.hs index 390c6bb..326f53f 100644 --- a/packages/special/lib/Numeric/GSL/Special/Coupling.hs +++ b/packages/special/lib/Numeric/GSL/Special/Coupling.hs | |||
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Coupling( | |||
24 | ) where | 24 | ) where |
25 | 25 | ||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt(..)) | 27 | import Foreign.C.Types |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | 29 | ||
30 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 30 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Dawson.hs b/packages/special/lib/Numeric/GSL/Special/Dawson.hs index 2486a57..9f73767 100644 --- a/packages/special/lib/Numeric/GSL/Special/Dawson.hs +++ b/packages/special/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Dawson( | |||
18 | ) where | 18 | ) where |
19 | 19 | ||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt(..)) | 21 | import Foreign.C.Types |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | 23 | ||
24 | dawson_e :: Double -> (Double,Double) | 24 | dawson_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Debye.hs b/packages/special/lib/Numeric/GSL/Special/Debye.hs index 5a54e37..7ca17e4 100644 --- a/packages/special/lib/Numeric/GSL/Special/Debye.hs +++ b/packages/special/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -28,7 +28,7 @@ module Numeric.GSL.Special.Debye( | |||
28 | ) where | 28 | ) where |
29 | 29 | ||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import Foreign.C.Types(CInt(..)) | 31 | import Foreign.C.Types |
32 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
33 | 33 | ||
34 | debye_1_e :: Double -> (Double,Double) | 34 | debye_1_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Dilog.hs b/packages/special/lib/Numeric/GSL/Special/Dilog.hs index a7e8e86..32cceba 100644 --- a/packages/special/lib/Numeric/GSL/Special/Dilog.hs +++ b/packages/special/lib/Numeric/GSL/Special/Dilog.hs | |||
@@ -21,7 +21,7 @@ module Numeric.GSL.Special.Dilog( | |||
21 | ) where | 21 | ) where |
22 | 22 | ||
23 | import Foreign(Ptr) | 23 | import Foreign(Ptr) |
24 | import Foreign.C.Types(CInt(..)) | 24 | import Foreign.C.Types |
25 | import Numeric.GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
26 | 26 | ||
27 | dilog_e :: Double -> (Double,Double) | 27 | dilog_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Elementary.hs b/packages/special/lib/Numeric/GSL/Special/Elementary.hs index 710e0ce..e58a697 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elementary.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elementary.hs | |||
@@ -19,7 +19,7 @@ module Numeric.GSL.Special.Elementary( | |||
19 | ) where | 19 | ) where |
20 | 20 | ||
21 | import Foreign(Ptr) | 21 | import Foreign(Ptr) |
22 | import Foreign.C.Types(CInt(..)) | 22 | import Foreign.C.Types |
23 | import Numeric.GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | 24 | ||
25 | multiply_e :: Double -> Double -> (Double,Double) | 25 | multiply_e :: Double -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Ellint.hs b/packages/special/lib/Numeric/GSL/Special/Ellint.hs index 0d171bf..365c366 100644 --- a/packages/special/lib/Numeric/GSL/Special/Ellint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -40,7 +40,7 @@ module Numeric.GSL.Special.Ellint( | |||
40 | ) where | 40 | ) where |
41 | 41 | ||
42 | import Foreign(Ptr) | 42 | import Foreign(Ptr) |
43 | import Foreign.C.Types(CInt(..)) | 43 | import Foreign.C.Types |
44 | import Numeric.GSL.Special.Internal | 44 | import Numeric.GSL.Special.Internal |
45 | 45 | ||
46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | 46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Elljac.hs b/packages/special/lib/Numeric/GSL/Special/Elljac.hs index 18c7f06..553350c 100644 --- a/packages/special/lib/Numeric/GSL/Special/Elljac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Elljac.hs | |||
@@ -20,7 +20,7 @@ import System.IO.Unsafe | |||
20 | import Foreign.Ptr | 20 | import Foreign.Ptr |
21 | import Foreign.Storable | 21 | import Foreign.Storable |
22 | import Foreign.Marshal | 22 | import Foreign.Marshal |
23 | import Foreign.C.Types(CInt(..)) | 23 | import Foreign.C.Types |
24 | 24 | ||
25 | elljac_e :: Double -> Double -> (Double,Double,Double) | 25 | elljac_e :: Double -> Double -> (Double,Double,Double) |
26 | elljac_e u m = unsafePerformIO $ do | 26 | elljac_e u m = unsafePerformIO $ do |
diff --git a/packages/special/lib/Numeric/GSL/Special/Erf.hs b/packages/special/lib/Numeric/GSL/Special/Erf.hs index 69a5c9e..171a3c5 100644 --- a/packages/special/lib/Numeric/GSL/Special/Erf.hs +++ b/packages/special/lib/Numeric/GSL/Special/Erf.hs | |||
@@ -28,7 +28,7 @@ module Numeric.GSL.Special.Erf( | |||
28 | ) where | 28 | ) where |
29 | 29 | ||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import Foreign.C.Types(CInt(..)) | 31 | import Foreign.C.Types |
32 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
33 | 33 | ||
34 | erfc_e :: Double -> (Double,Double) | 34 | erfc_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Exp.hs b/packages/special/lib/Numeric/GSL/Special/Exp.hs index 0cc2b1c..3b70078 100644 --- a/packages/special/lib/Numeric/GSL/Special/Exp.hs +++ b/packages/special/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -35,7 +35,7 @@ module Numeric.GSL.Special.Exp( | |||
35 | ) where | 35 | ) where |
36 | 36 | ||
37 | import Foreign(Ptr) | 37 | import Foreign(Ptr) |
38 | import Foreign.C.Types(CInt(..)) | 38 | import Foreign.C.Types |
39 | import Numeric.GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | 40 | ||
41 | exp_e :: Double -> (Double,Double) | 41 | exp_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Expint.hs b/packages/special/lib/Numeric/GSL/Special/Expint.hs index be01007..06f4594 100644 --- a/packages/special/lib/Numeric/GSL/Special/Expint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -44,7 +44,7 @@ module Numeric.GSL.Special.Expint( | |||
44 | ) where | 44 | ) where |
45 | 45 | ||
46 | import Foreign(Ptr) | 46 | import Foreign(Ptr) |
47 | import Foreign.C.Types(CInt(..)) | 47 | import Foreign.C.Types |
48 | import Numeric.GSL.Special.Internal | 48 | import Numeric.GSL.Special.Internal |
49 | 49 | ||
50 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs index a28b6e3..c39c096 100644 --- a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -34,7 +34,7 @@ module Numeric.GSL.Special.Fermi_dirac( | |||
34 | ) where | 34 | ) where |
35 | 35 | ||
36 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
37 | import Foreign.C.Types(CInt(..)) | 37 | import Foreign.C.Types |
38 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
39 | 39 | ||
40 | fermi_dirac_m1_e :: Double -> (Double,Double) | 40 | fermi_dirac_m1_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Gamma.hs b/packages/special/lib/Numeric/GSL/Special/Gamma.hs index f5a573b..78115f1 100644 --- a/packages/special/lib/Numeric/GSL/Special/Gamma.hs +++ b/packages/special/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -57,7 +57,7 @@ module Numeric.GSL.Special.Gamma( | |||
57 | ) where | 57 | ) where |
58 | 58 | ||
59 | import Foreign(Ptr) | 59 | import Foreign(Ptr) |
60 | import Foreign.C.Types(CInt(..)) | 60 | import Foreign.C.Types |
61 | import Numeric.GSL.Special.Internal | 61 | import Numeric.GSL.Special.Internal |
62 | 62 | ||
63 | lngamma_e :: Double -> (Double,Double) | 63 | lngamma_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs b/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs index 78fbaf4..a3c998a 100644 --- a/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs +++ b/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs | |||
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Gegenbauer( | |||
24 | ) where | 24 | ) where |
25 | 25 | ||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt(..)) | 27 | import Foreign.C.Types |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | 29 | ||
30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | 30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Hyperg.hs b/packages/special/lib/Numeric/GSL/Special/Hyperg.hs index 958503f..ac237a5 100644 --- a/packages/special/lib/Numeric/GSL/Special/Hyperg.hs +++ b/packages/special/lib/Numeric/GSL/Special/Hyperg.hs | |||
@@ -38,7 +38,7 @@ module Numeric.GSL.Special.Hyperg( | |||
38 | ) where | 38 | ) where |
39 | 39 | ||
40 | import Foreign(Ptr) | 40 | import Foreign(Ptr) |
41 | import Foreign.C.Types(CInt(..)) | 41 | import Foreign.C.Types |
42 | import Numeric.GSL.Special.Internal | 42 | import Numeric.GSL.Special.Internal |
43 | 43 | ||
44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) | 44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Internal.hsc b/packages/special/lib/Numeric/GSL/Special/Internal.hsc index 338ed40..e7c38e8 100644 --- a/packages/special/lib/Numeric/GSL/Special/Internal.hsc +++ b/packages/special/lib/Numeric/GSL/Special/Internal.hsc | |||
@@ -34,7 +34,7 @@ import Foreign.Ptr | |||
34 | import Foreign.Marshal | 34 | import Foreign.Marshal |
35 | import System.IO.Unsafe(unsafePerformIO) | 35 | import System.IO.Unsafe(unsafePerformIO) |
36 | import Data.Packed.Development(check,(//)) | 36 | import Data.Packed.Development(check,(//)) |
37 | import Foreign.C.Types(CSize,CInt) | 37 | import Foreign.C.Types |
38 | 38 | ||
39 | data Precision = PrecDouble | PrecSingle | PrecApprox | 39 | data Precision = PrecDouble | PrecSingle | PrecApprox |
40 | 40 | ||
diff --git a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs index 33d7769..28b3d20 100644 --- a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs +++ b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs | |||
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Laguerre( | |||
24 | ) where | 24 | ) where |
25 | 25 | ||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt(..)) | 27 | import Foreign.C.Types |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | 29 | ||
30 | laguerre_1_e :: Double -> Double -> (Double,Double) | 30 | laguerre_1_e :: Double -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Lambert.hs b/packages/special/lib/Numeric/GSL/Special/Lambert.hs index 4c410d7..44fbfb1 100644 --- a/packages/special/lib/Numeric/GSL/Special/Lambert.hs +++ b/packages/special/lib/Numeric/GSL/Special/Lambert.hs | |||
@@ -20,7 +20,7 @@ module Numeric.GSL.Special.Lambert( | |||
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt(..)) | 23 | import Foreign.C.Types |
24 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | 25 | ||
26 | lambert_W0_e :: Double -> (Double,Double) | 26 | lambert_W0_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Legendre.hs b/packages/special/lib/Numeric/GSL/Special/Legendre.hs index 0042656..cb33e2e 100644 --- a/packages/special/lib/Numeric/GSL/Special/Legendre.hs +++ b/packages/special/lib/Numeric/GSL/Special/Legendre.hs | |||
@@ -53,7 +53,7 @@ module Numeric.GSL.Special.Legendre( | |||
53 | ) where | 53 | ) where |
54 | 54 | ||
55 | import Foreign(Ptr) | 55 | import Foreign(Ptr) |
56 | import Foreign.C.Types(CInt(..)) | 56 | import Foreign.C.Types |
57 | import Numeric.GSL.Special.Internal | 57 | import Numeric.GSL.Special.Internal |
58 | 58 | ||
59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) | 59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Log.hs b/packages/special/lib/Numeric/GSL/Special/Log.hs index 46b6a0a..3becf15 100644 --- a/packages/special/lib/Numeric/GSL/Special/Log.hs +++ b/packages/special/lib/Numeric/GSL/Special/Log.hs | |||
@@ -25,7 +25,7 @@ module Numeric.GSL.Special.Log( | |||
25 | ) where | 25 | ) where |
26 | 26 | ||
27 | import Foreign(Ptr) | 27 | import Foreign(Ptr) |
28 | import Foreign.C.Types(CInt(..)) | 28 | import Foreign.C.Types |
29 | import Numeric.GSL.Special.Internal | 29 | import Numeric.GSL.Special.Internal |
30 | 30 | ||
31 | log_e :: Double -> (Double,Double) | 31 | log_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Pow_int.hs b/packages/special/lib/Numeric/GSL/Special/Pow_int.hs index bccdde7..08fd497 100644 --- a/packages/special/lib/Numeric/GSL/Special/Pow_int.hs +++ b/packages/special/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Pow_int( | |||
18 | ) where | 18 | ) where |
19 | 19 | ||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt(..)) | 21 | import Foreign.C.Types |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | 23 | ||
24 | pow_int_e :: Double -> CInt -> (Double,Double) | 24 | pow_int_e :: Double -> CInt -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Psi.hs b/packages/special/lib/Numeric/GSL/Special/Psi.hs index b99817f..da53d1b 100644 --- a/packages/special/lib/Numeric/GSL/Special/Psi.hs +++ b/packages/special/lib/Numeric/GSL/Special/Psi.hs | |||
@@ -29,7 +29,7 @@ module Numeric.GSL.Special.Psi( | |||
29 | ) where | 29 | ) where |
30 | 30 | ||
31 | import Foreign(Ptr) | 31 | import Foreign(Ptr) |
32 | import Foreign.C.Types(CInt(..)) | 32 | import Foreign.C.Types |
33 | import Numeric.GSL.Special.Internal | 33 | import Numeric.GSL.Special.Internal |
34 | 34 | ||
35 | psi_int_e :: CInt -> (Double,Double) | 35 | psi_int_e :: CInt -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs b/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs index 6b5cbf6..b3292a6 100644 --- a/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -20,7 +20,7 @@ module Numeric.GSL.Special.Synchrotron( | |||
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt(..)) | 23 | import Foreign.C.Types |
24 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | 25 | ||
26 | synchrotron_1_e :: Double -> (Double,Double) | 26 | synchrotron_1_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Transport.hs b/packages/special/lib/Numeric/GSL/Special/Transport.hs index 4f3b469..b92b578 100644 --- a/packages/special/lib/Numeric/GSL/Special/Transport.hs +++ b/packages/special/lib/Numeric/GSL/Special/Transport.hs | |||
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Transport( | |||
24 | ) where | 24 | ) where |
25 | 25 | ||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt(..)) | 27 | import Foreign.C.Types |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | 29 | ||
30 | transport_2_e :: Double -> (Double,Double) | 30 | transport_2_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Trig.hs b/packages/special/lib/Numeric/GSL/Special/Trig.hs index 2f1bda9..43fdc95 100644 --- a/packages/special/lib/Numeric/GSL/Special/Trig.hs +++ b/packages/special/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -39,7 +39,7 @@ module Numeric.GSL.Special.Trig( | |||
39 | ) where | 39 | ) where |
40 | 40 | ||
41 | import Foreign(Ptr) | 41 | import Foreign(Ptr) |
42 | import Foreign.C.Types(CInt(..)) | 42 | import Foreign.C.Types |
43 | import Numeric.GSL.Special.Internal | 43 | import Numeric.GSL.Special.Internal |
44 | 44 | ||
45 | sin_e :: Double -> (Double,Double) | 45 | sin_e :: Double -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/Zeta.hs b/packages/special/lib/Numeric/GSL/Special/Zeta.hs index b29b026..a57a918 100644 --- a/packages/special/lib/Numeric/GSL/Special/Zeta.hs +++ b/packages/special/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -30,7 +30,7 @@ module Numeric.GSL.Special.Zeta( | |||
30 | ) where | 30 | ) where |
31 | 31 | ||
32 | import Foreign(Ptr) | 32 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt(..)) | 33 | import Foreign.C.Types |
34 | import Numeric.GSL.Special.Internal | 34 | import Numeric.GSL.Special.Internal |
35 | 35 | ||
36 | zeta_int_e :: CInt -> (Double,Double) | 36 | zeta_int_e :: CInt -> (Double,Double) |
diff --git a/packages/special/lib/Numeric/GSL/Special/auto.hs b/packages/special/lib/Numeric/GSL/Special/auto.hs index d3461b2..36947ad 100755 --- a/packages/special/lib/Numeric/GSL/Special/auto.hs +++ b/packages/special/lib/Numeric/GSL/Special/auto.hs | |||
@@ -66,7 +66,7 @@ main = do | |||
66 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] | 66 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] |
67 | let defs = unlines $ map (showFull (name ++".h")) parsed | 67 | let defs = unlines $ map (showFull (name ++".h")) parsed |
68 | let imports = "\nimport Foreign(Ptr)\n" | 68 | let imports = "\nimport Foreign(Ptr)\n" |
69 | ++"import Foreign.C.Types(CInt(..))\n" | 69 | ++"import Foreign.C.Types\n" |
70 | ++"import Numeric.GSL.Special.Internal\n" | 70 | ++"import Numeric.GSL.Special.Internal\n" |
71 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs | 71 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs |
72 | writeFile (upperFirst name ++ ".hs") mod | 72 | writeFile (upperFirst name ++ ".hs") mod |
diff --git a/packages/special/lib/Numeric/GSL/Special/autoall.sh b/packages/special/lib/Numeric/GSL/Special/autoall.sh index 68a2d2d..18d0a6e 100755 --- a/packages/special/lib/Numeric/GSL/Special/autoall.sh +++ b/packages/special/lib/Numeric/GSL/Special/autoall.sh | |||
@@ -10,7 +10,6 @@ rm -f funs.txt | |||
10 | ./auto.hs airy | 10 | ./auto.hs airy |
11 | rep ') where' ', Precision(..)\n) where' Airy.hs | 11 | rep ') where' ', Precision(..)\n) where' Airy.hs |
12 | ./auto.hs bessel | 12 | ./auto.hs bessel |
13 | rep 'Foreign.C.Types(CInt(..))' 'Foreign.C.Types(CInt(..),CSize(..))' Bessel.hs | ||
14 | ./auto.hs clausen | 13 | ./auto.hs clausen |
15 | ./auto.hs coulomb | 14 | ./auto.hs coulomb |
16 | ./auto.hs coupling | 15 | ./auto.hs coupling |