summaryrefslogtreecommitdiff
path: root/packages/special/lib/Numeric
diff options
context:
space:
mode:
Diffstat (limited to 'packages/special/lib/Numeric')
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Airy.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Bessel.hs9
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Clausen.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Coulomb.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Coupling.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Dawson.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Debye.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Dilog.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Elementary.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Ellint.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Elljac.hs7
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Erf.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Exp.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Expint.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Gamma.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Hyperg.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Internal.hsc5
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Laguerre.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Lambert.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Legendre.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Log.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Pow_int.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Psi.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Synchrotron.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Transport.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Trig.hs4
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Zeta.hs4
-rwxr-xr-xpackages/special/lib/Numeric/GSL/Special/auto.hs8
-rwxr-xr-xpackages/special/lib/Numeric/GSL/Special/autoall.sh1
-rwxr-xr-xpackages/special/lib/Numeric/GSL/Special/replace.hs2
32 files changed, 75 insertions, 61 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Airy.hs b/packages/special/lib/Numeric/GSL/Special/Airy.hs
index 8a04eed..2438b71 100644
--- a/packages/special/lib/Numeric/GSL/Special/Airy.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Airy.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Airy 3-- Module : Numeric.GSL.Special.Airy
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -41,7 +41,7 @@ module Numeric.GSL.Special.Airy(
41) where 41) where
42 42
43import Foreign(Ptr) 43import Foreign(Ptr)
44import Foreign.C.Types(CInt) 44import Foreign.C.Types(CInt(..))
45import Numeric.GSL.Special.Internal 45import Numeric.GSL.Special.Internal
46 46
47airy_Ai_e :: Double -> Precision -> (Double,Double) 47airy_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 66d6c5b..e88c3b0 100644
--- a/packages/special/lib/Numeric/GSL/Special/Bessel.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Bessel.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Bessel 3-- Module : Numeric.GSL.Special.Bessel
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -91,6 +91,7 @@ module Numeric.GSL.Special.Bessel(
91, bessel_Inu 91, bessel_Inu
92, bessel_Knu_scaled_e 92, bessel_Knu_scaled_e
93, bessel_Knu_scaled 93, bessel_Knu_scaled
94, bessel_Knu_scaled_e10_e
94, bessel_Knu_e 95, bessel_Knu_e
95, bessel_Knu 96, bessel_Knu
96, bessel_lnKnu_e 97, bessel_lnKnu_e
@@ -104,7 +105,7 @@ module Numeric.GSL.Special.Bessel(
104) where 105) where
105 106
106import Foreign(Ptr) 107import Foreign(Ptr)
107import Foreign.C.Types(CInt) 108import Foreign.C.Types(CInt(..),CSize(..))
108import Numeric.GSL.Special.Internal 109import Numeric.GSL.Special.Internal
109 110
110bessel_J0_e :: Double -> (Double,Double) 111bessel_J0_e :: Double -> (Double,Double)
@@ -467,6 +468,10 @@ bessel_Knu_scaled :: Double -> Double -> Double
467bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled 468bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled
468foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double 469foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double
469 470
471bessel_Knu_scaled_e10_e :: Double -> Double -> (Double,Int,Double)
472bessel_Knu_scaled_e10_e nu x = createSFR_E10 "bessel_Knu_scaled_e10_e" $ gsl_sf_bessel_Knu_scaled_e10_e nu x
473foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_scaled_e10_e" gsl_sf_bessel_Knu_scaled_e10_e :: Double -> Double -> Ptr () -> IO CInt
474
470bessel_Knu_e :: Double -> Double -> (Double,Double) 475bessel_Knu_e :: Double -> Double -> (Double,Double)
471bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x 476bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x
472foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt 477foreign import ccall SAFE_CHEAP "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt
diff --git a/packages/special/lib/Numeric/GSL/Special/Clausen.hs b/packages/special/lib/Numeric/GSL/Special/Clausen.hs
index 70f05a7..59547ec 100644
--- a/packages/special/lib/Numeric/GSL/Special/Clausen.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Clausen.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Clausen 3-- Module : Numeric.GSL.Special.Clausen
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Clausen(
18) where 18) where
19 19
20import Foreign(Ptr) 20import Foreign(Ptr)
21import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt(..))
22import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
23 23
24clausen_e :: Double -> (Double,Double) 24clausen_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 7253972..c282d7b 100644
--- a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Coulomb 3-- Module : Numeric.GSL.Special.Coulomb
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -21,7 +21,7 @@ module Numeric.GSL.Special.Coulomb(
21) where 21) where
22 22
23import Foreign(Ptr) 23import Foreign(Ptr)
24import Foreign.C.Types(CInt) 24import Foreign.C.Types(CInt(..))
25import Numeric.GSL.Special.Internal 25import Numeric.GSL.Special.Internal
26 26
27hydrogenicR_1_e :: Double -> Double -> (Double,Double) 27hydrogenicR_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 16ff9b9..390c6bb 100644
--- a/packages/special/lib/Numeric/GSL/Special/Coupling.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Coupling.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Coupling 3-- Module : Numeric.GSL.Special.Coupling
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Coupling(
24) where 24) where
25 25
26import Foreign(Ptr) 26import Foreign(Ptr)
27import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt(..))
28import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
29 29
30coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) 30coupling_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 7e8d9ce..2486a57 100644
--- a/packages/special/lib/Numeric/GSL/Special/Dawson.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Dawson.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Dawson 3-- Module : Numeric.GSL.Special.Dawson
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Dawson(
18) where 18) where
19 19
20import Foreign(Ptr) 20import Foreign(Ptr)
21import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt(..))
22import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
23 23
24dawson_e :: Double -> (Double,Double) 24dawson_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 01976ee..5a54e37 100644
--- a/packages/special/lib/Numeric/GSL/Special/Debye.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Debye.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Debye 3-- Module : Numeric.GSL.Special.Debye
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -28,7 +28,7 @@ module Numeric.GSL.Special.Debye(
28) where 28) where
29 29
30import Foreign(Ptr) 30import Foreign(Ptr)
31import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt(..))
32import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
33 33
34debye_1_e :: Double -> (Double,Double) 34debye_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 6aa58c4..a7e8e86 100644
--- a/packages/special/lib/Numeric/GSL/Special/Dilog.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Dilog.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Dilog 3-- Module : Numeric.GSL.Special.Dilog
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -21,7 +21,7 @@ module Numeric.GSL.Special.Dilog(
21) where 21) where
22 22
23import Foreign(Ptr) 23import Foreign(Ptr)
24import Foreign.C.Types(CInt) 24import Foreign.C.Types(CInt(..))
25import Numeric.GSL.Special.Internal 25import Numeric.GSL.Special.Internal
26 26
27dilog_e :: Double -> (Double,Double) 27dilog_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 7e7f8b6..710e0ce 100644
--- a/packages/special/lib/Numeric/GSL/Special/Elementary.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Elementary.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Elementary 3-- Module : Numeric.GSL.Special.Elementary
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -19,7 +19,7 @@ module Numeric.GSL.Special.Elementary(
19) where 19) where
20 20
21import Foreign(Ptr) 21import Foreign(Ptr)
22import Foreign.C.Types(CInt) 22import Foreign.C.Types(CInt(..))
23import Numeric.GSL.Special.Internal 23import Numeric.GSL.Special.Internal
24 24
25multiply_e :: Double -> Double -> (Double,Double) 25multiply_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 6735057..0d171bf 100644
--- a/packages/special/lib/Numeric/GSL/Special/Ellint.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Ellint.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Ellint 3-- Module : Numeric.GSL.Special.Ellint
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -40,7 +40,7 @@ module Numeric.GSL.Special.Ellint(
40) where 40) where
41 41
42import Foreign(Ptr) 42import Foreign(Ptr)
43import Foreign.C.Types(CInt) 43import Foreign.C.Types(CInt(..))
44import Numeric.GSL.Special.Internal 44import Numeric.GSL.Special.Internal
45 45
46ellint_Kcomp_e :: Double -> Precision -> (Double,Double) 46ellint_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 5b32cfe..18c7f06 100644
--- a/packages/special/lib/Numeric/GSL/Special/Elljac.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Elljac.hs
@@ -16,8 +16,11 @@ module Numeric.GSL.Special.Elljac(
16elljac_e 16elljac_e
17) where 17) where
18 18
19import Foreign 19import System.IO.Unsafe
20import Foreign.C.Types(CInt) 20import Foreign.Ptr
21import Foreign.Storable
22import Foreign.Marshal
23import Foreign.C.Types(CInt(..))
21 24
22elljac_e :: Double -> Double -> (Double,Double,Double) 25elljac_e :: Double -> Double -> (Double,Double,Double)
23elljac_e u m = unsafePerformIO $ do 26elljac_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 258afd3..69a5c9e 100644
--- a/packages/special/lib/Numeric/GSL/Special/Erf.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Erf.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Erf 3-- Module : Numeric.GSL.Special.Erf
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -28,7 +28,7 @@ module Numeric.GSL.Special.Erf(
28) where 28) where
29 29
30import Foreign(Ptr) 30import Foreign(Ptr)
31import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt(..))
32import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
33 33
34erfc_e :: Double -> (Double,Double) 34erfc_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 4f15964..0cc2b1c 100644
--- a/packages/special/lib/Numeric/GSL/Special/Exp.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Exp.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Exp 3-- Module : Numeric.GSL.Special.Exp
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -35,7 +35,7 @@ module Numeric.GSL.Special.Exp(
35) where 35) where
36 36
37import Foreign(Ptr) 37import Foreign(Ptr)
38import Foreign.C.Types(CInt) 38import Foreign.C.Types(CInt(..))
39import Numeric.GSL.Special.Internal 39import Numeric.GSL.Special.Internal
40 40
41exp_e :: Double -> (Double,Double) 41exp_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 f1102c4..be01007 100644
--- a/packages/special/lib/Numeric/GSL/Special/Expint.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Expint.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Expint 3-- Module : Numeric.GSL.Special.Expint
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -44,7 +44,7 @@ module Numeric.GSL.Special.Expint(
44) where 44) where
45 45
46import Foreign(Ptr) 46import Foreign(Ptr)
47import Foreign.C.Types(CInt) 47import Foreign.C.Types(CInt(..))
48import Numeric.GSL.Special.Internal 48import Numeric.GSL.Special.Internal
49 49
50expint_E1_e :: Double -> (Double,Double) 50expint_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 362c7ba..a28b6e3 100644
--- a/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Fermi_dirac.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Fermi_dirac 3-- Module : Numeric.GSL.Special.Fermi_dirac
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -34,7 +34,7 @@ module Numeric.GSL.Special.Fermi_dirac(
34) where 34) where
35 35
36import Foreign(Ptr) 36import Foreign(Ptr)
37import Foreign.C.Types(CInt) 37import Foreign.C.Types(CInt(..))
38import Numeric.GSL.Special.Internal 38import Numeric.GSL.Special.Internal
39 39
40fermi_dirac_m1_e :: Double -> (Double,Double) 40fermi_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 1a4ed4e..f5a573b 100644
--- a/packages/special/lib/Numeric/GSL/Special/Gamma.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Gamma.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Gamma 3-- Module : Numeric.GSL.Special.Gamma
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -57,7 +57,7 @@ module Numeric.GSL.Special.Gamma(
57) where 57) where
58 58
59import Foreign(Ptr) 59import Foreign(Ptr)
60import Foreign.C.Types(CInt) 60import Foreign.C.Types(CInt(..))
61import Numeric.GSL.Special.Internal 61import Numeric.GSL.Special.Internal
62 62
63lngamma_e :: Double -> (Double,Double) 63lngamma_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 31568f3..78fbaf4 100644
--- a/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Gegenbauer.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Gegenbauer 3-- Module : Numeric.GSL.Special.Gegenbauer
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Gegenbauer(
24) where 24) where
25 25
26import Foreign(Ptr) 26import Foreign(Ptr)
27import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt(..))
28import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
29 29
30gegenpoly_1_e :: Double -> Double -> (Double,Double) 30gegenpoly_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 b5425f1..958503f 100644
--- a/packages/special/lib/Numeric/GSL/Special/Hyperg.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Hyperg.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Hyperg 3-- Module : Numeric.GSL.Special.Hyperg
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -38,7 +38,7 @@ module Numeric.GSL.Special.Hyperg(
38) where 38) where
39 39
40import Foreign(Ptr) 40import Foreign(Ptr)
41import Foreign.C.Types(CInt) 41import Foreign.C.Types(CInt(..))
42import Numeric.GSL.Special.Internal 42import Numeric.GSL.Special.Internal
43 43
44hyperg_0F1_e :: Double -> Double -> (Double,Double) 44hyperg_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 ae735df..338ed40 100644
--- a/packages/special/lib/Numeric/GSL/Special/Internal.hsc
+++ b/packages/special/lib/Numeric/GSL/Special/Internal.hsc
@@ -29,7 +29,10 @@ module Numeric.GSL.Special.Internal (
29) 29)
30where 30where
31 31
32import Foreign 32import Foreign.Storable
33import Foreign.Ptr
34import Foreign.Marshal
35import System.IO.Unsafe(unsafePerformIO)
33import Data.Packed.Development(check,(//)) 36import Data.Packed.Development(check,(//))
34import Foreign.C.Types(CSize,CInt) 37import Foreign.C.Types(CSize,CInt)
35 38
diff --git a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs
index 8db6a6c..33d7769 100644
--- a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Laguerre 3-- Module : Numeric.GSL.Special.Laguerre
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Laguerre(
24) where 24) where
25 25
26import Foreign(Ptr) 26import Foreign(Ptr)
27import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt(..))
28import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
29 29
30laguerre_1_e :: Double -> Double -> (Double,Double) 30laguerre_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 b229bf6..4c410d7 100644
--- a/packages/special/lib/Numeric/GSL/Special/Lambert.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Lambert.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Lambert 3-- Module : Numeric.GSL.Special.Lambert
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -20,7 +20,7 @@ module Numeric.GSL.Special.Lambert(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt) 23import Foreign.C.Types(CInt(..))
24import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
25 25
26lambert_W0_e :: Double -> (Double,Double) 26lambert_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 e329457..0042656 100644
--- a/packages/special/lib/Numeric/GSL/Special/Legendre.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Legendre.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Legendre 3-- Module : Numeric.GSL.Special.Legendre
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -53,7 +53,7 @@ module Numeric.GSL.Special.Legendre(
53) where 53) where
54 54
55import Foreign(Ptr) 55import Foreign(Ptr)
56import Foreign.C.Types(CInt) 56import Foreign.C.Types(CInt(..))
57import Numeric.GSL.Special.Internal 57import Numeric.GSL.Special.Internal
58 58
59legendre_Pl_e :: CInt -> Double -> (Double,Double) 59legendre_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 7f3f9d6..46b6a0a 100644
--- a/packages/special/lib/Numeric/GSL/Special/Log.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Log.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Log 3-- Module : Numeric.GSL.Special.Log
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -25,7 +25,7 @@ module Numeric.GSL.Special.Log(
25) where 25) where
26 26
27import Foreign(Ptr) 27import Foreign(Ptr)
28import Foreign.C.Types(CInt) 28import Foreign.C.Types(CInt(..))
29import Numeric.GSL.Special.Internal 29import Numeric.GSL.Special.Internal
30 30
31log_e :: Double -> (Double,Double) 31log_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 fd232ab..bccdde7 100644
--- a/packages/special/lib/Numeric/GSL/Special/Pow_int.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Pow_int.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Pow_int 3-- Module : Numeric.GSL.Special.Pow_int
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -18,7 +18,7 @@ module Numeric.GSL.Special.Pow_int(
18) where 18) where
19 19
20import Foreign(Ptr) 20import Foreign(Ptr)
21import Foreign.C.Types(CInt) 21import Foreign.C.Types(CInt(..))
22import Numeric.GSL.Special.Internal 22import Numeric.GSL.Special.Internal
23 23
24pow_int_e :: Double -> CInt -> (Double,Double) 24pow_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 cb4c756..b99817f 100644
--- a/packages/special/lib/Numeric/GSL/Special/Psi.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Psi.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Psi 3-- Module : Numeric.GSL.Special.Psi
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -29,7 +29,7 @@ module Numeric.GSL.Special.Psi(
29) where 29) where
30 30
31import Foreign(Ptr) 31import Foreign(Ptr)
32import Foreign.C.Types(CInt) 32import Foreign.C.Types(CInt(..))
33import Numeric.GSL.Special.Internal 33import Numeric.GSL.Special.Internal
34 34
35psi_int_e :: CInt -> (Double,Double) 35psi_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 59d6c76..6b5cbf6 100644
--- a/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Synchrotron.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Synchrotron 3-- Module : Numeric.GSL.Special.Synchrotron
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -20,7 +20,7 @@ module Numeric.GSL.Special.Synchrotron(
20) where 20) where
21 21
22import Foreign(Ptr) 22import Foreign(Ptr)
23import Foreign.C.Types(CInt) 23import Foreign.C.Types(CInt(..))
24import Numeric.GSL.Special.Internal 24import Numeric.GSL.Special.Internal
25 25
26synchrotron_1_e :: Double -> (Double,Double) 26synchrotron_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 e95a67a..4f3b469 100644
--- a/packages/special/lib/Numeric/GSL/Special/Transport.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Transport.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Transport 3-- Module : Numeric.GSL.Special.Transport
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -24,7 +24,7 @@ module Numeric.GSL.Special.Transport(
24) where 24) where
25 25
26import Foreign(Ptr) 26import Foreign(Ptr)
27import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt(..))
28import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
29 29
30transport_2_e :: Double -> (Double,Double) 30transport_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 91c264a..2f1bda9 100644
--- a/packages/special/lib/Numeric/GSL/Special/Trig.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Trig.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Trig 3-- Module : Numeric.GSL.Special.Trig
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -39,7 +39,7 @@ module Numeric.GSL.Special.Trig(
39) where 39) where
40 40
41import Foreign(Ptr) 41import Foreign(Ptr)
42import Foreign.C.Types(CInt) 42import Foreign.C.Types(CInt(..))
43import Numeric.GSL.Special.Internal 43import Numeric.GSL.Special.Internal
44 44
45sin_e :: Double -> (Double,Double) 45sin_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 930efc0..b29b026 100644
--- a/packages/special/lib/Numeric/GSL/Special/Zeta.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Zeta.hs
@@ -1,7 +1,7 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2-- | 2-- |
3-- Module : Numeric.GSL.Special.Zeta 3-- Module : Numeric.GSL.Special.Zeta
4-- Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006-11
5-- License : GPL 5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional 7-- Stability : provisional
@@ -30,7 +30,7 @@ module Numeric.GSL.Special.Zeta(
30) where 30) where
31 31
32import Foreign(Ptr) 32import Foreign(Ptr)
33import Foreign.C.Types(CInt) 33import Foreign.C.Types(CInt(..))
34import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
35 35
36zeta_int_e :: CInt -> (Double,Double) 36zeta_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 b6276b2..d3461b2 100755
--- a/packages/special/lib/Numeric/GSL/Special/auto.hs
+++ b/packages/special/lib/Numeric/GSL/Special/auto.hs
@@ -2,8 +2,10 @@
2 2
3-- automatic generation of wrappers for simple GSL special functions 3-- automatic generation of wrappers for simple GSL special functions
4 4
5{-# LANGUAGE NoMonomorphismRestriction #-}
6
5import Text.ParserCombinators.Parsec 7import Text.ParserCombinators.Parsec
6import System 8import System.Environment(getArgs)
7import Data.List(intersperse, isPrefixOf) 9import Data.List(intersperse, isPrefixOf)
8import Data.Char(toUpper,isUpper,toLower) 10import Data.Char(toUpper,isUpper,toLower)
9 11
@@ -64,7 +66,7 @@ main = do
64 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))++[")"]
65 let defs = unlines $ map (showFull (name ++".h")) parsed 67 let defs = unlines $ map (showFull (name ++".h")) parsed
66 let imports = "\nimport Foreign(Ptr)\n" 68 let imports = "\nimport Foreign(Ptr)\n"
67 ++"import Foreign.C.Types(CInt)\n" 69 ++"import Foreign.C.Types(CInt(..))\n"
68 ++"import Numeric.GSL.Special.Internal\n" 70 ++"import Numeric.GSL.Special.Internal\n"
69 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
70 writeFile (upperFirst name ++ ".hs") mod 72 writeFile (upperFirst name ++ ".hs") mod
@@ -80,7 +82,7 @@ google name = "<http://www.google.com/search?q="
80 82
81modhead name = replicate 60 '-' ++ "\n-- |\n" 83modhead name = replicate 60 '-' ++ "\n-- |\n"
82 ++"-- Module : Numeric.GSL.Special."++upperFirst name++"\n" 84 ++"-- Module : Numeric.GSL.Special."++upperFirst name++"\n"
83 ++"-- Copyright : (c) Alberto Ruiz 2006\n" 85 ++"-- Copyright : (c) Alberto Ruiz 2006-11\n"
84 ++"-- License : GPL\n" 86 ++"-- License : GPL\n"
85 ++"-- Maintainer : Alberto Ruiz (aruiz at um dot es)\n" 87 ++"-- Maintainer : Alberto Ruiz (aruiz at um dot es)\n"
86 ++"-- Stability : provisional\n" 88 ++"-- Stability : provisional\n"
diff --git a/packages/special/lib/Numeric/GSL/Special/autoall.sh b/packages/special/lib/Numeric/GSL/Special/autoall.sh
index 18d0a6e..68a2d2d 100755
--- a/packages/special/lib/Numeric/GSL/Special/autoall.sh
+++ b/packages/special/lib/Numeric/GSL/Special/autoall.sh
@@ -10,6 +10,7 @@ rm -f funs.txt
10./auto.hs airy 10./auto.hs airy
11rep ') where' ', Precision(..)\n) where' Airy.hs 11rep ') where' ', Precision(..)\n) where' Airy.hs
12./auto.hs bessel 12./auto.hs bessel
13rep 'Foreign.C.Types(CInt(..))' 'Foreign.C.Types(CInt(..),CSize(..))' Bessel.hs
13./auto.hs clausen 14./auto.hs clausen
14./auto.hs coulomb 15./auto.hs coulomb
15./auto.hs coupling 16./auto.hs coupling
diff --git a/packages/special/lib/Numeric/GSL/Special/replace.hs b/packages/special/lib/Numeric/GSL/Special/replace.hs
index f20a6b8..f0f491b 100755
--- a/packages/special/lib/Numeric/GSL/Special/replace.hs
+++ b/packages/special/lib/Numeric/GSL/Special/replace.hs
@@ -1,7 +1,7 @@
1#!/usr/bin/env runhaskell 1#!/usr/bin/env runhaskell
2 2
3import Data.List(isPrefixOf) 3import Data.List(isPrefixOf)
4import System(getArgs) 4import System.Environment(getArgs)
5 5
6rep (c,r) [] = [] 6rep (c,r) [] = []
7rep (c,r) f@(x:xs) 7rep (c,r) f@(x:xs)