diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Dawson.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Dawson.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 1d77a2b..3a47570 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -20,6 +20,7 @@ module Numeric.GSL.Special.Dawson( | |||
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | ||
23 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
24 | 25 | ||
25 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); | 26 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); |
@@ -27,7 +28,7 @@ import Numeric.GSL.Special.Internal | |||
27 | -- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 28 | -- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
28 | dawson_e :: Double -> (Double,Double) | 29 | dawson_e :: Double -> (Double,Double) |
29 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 30 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
30 | foreign import ccall "dawson.h gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr Double -> IO(Int) | 31 | foreign import ccall "dawson.h gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
31 | 32 | ||
32 | -- | wrapper for double gsl_sf_dawson(double x); | 33 | -- | wrapper for double gsl_sf_dawson(double x); |
33 | -- | 34 | -- |