diff options
author | Alberto Ruiz <aruiz@um.es> | 2011-12-25 19:14:17 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2011-12-25 19:14:17 +0100 |
commit | 66b17bce538f573fc37090ac1428d7fee8c8b959 (patch) | |
tree | dd71ef6deb5dbfa0b4d201514ce81dae59d37188 /lib/Numeric/GSL/Polynomials.hs | |
parent | d0eb68801e7c8de0996f6799db5ea691588467fa (diff) | |
parent | ea4da824ebc0ad09431aa276d8d44e4908e542c0 (diff) |
remove warnings in glpk and special (Bas van Dijk's method)
Diffstat (limited to 'lib/Numeric/GSL/Polynomials.hs')
-rw-r--r-- | lib/Numeric/GSL/Polynomials.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Numeric/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs index c0318d7..b21b1b6 100644 --- a/lib/Numeric/GSL/Polynomials.hs +++ b/lib/Numeric/GSL/Polynomials.hs | |||
@@ -1,4 +1,4 @@ | |||
1 | {-# LANGUAGE ForeignFunctionInterface #-} | 1 | {-# LANGUAGE CPP, ForeignFunctionInterface #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : Numeric.GSL.Polynomials | 4 | Module : Numeric.GSL.Polynomials |
@@ -19,13 +19,14 @@ module Numeric.GSL.Polynomials ( | |||
19 | polySolve | 19 | polySolve |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | #ifndef ABSTRACTCINT | ||
23 | import Foreign.C.Types(CInt(..)) | ||
24 | #endif | ||
25 | import Data.Packed.Internal | 22 | import Data.Packed.Internal |
26 | import Data.Complex | 23 | import Data.Complex |
27 | import System.IO.Unsafe (unsafePerformIO) | 24 | import System.IO.Unsafe (unsafePerformIO) |
28 | 25 | ||
26 | #if __GLASGOW_HASKELL__ >= 704 | ||
27 | import Foreign.C.Types (CInt(..)) | ||
28 | #endif | ||
29 | |||
29 | {- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. For example, | 30 | {- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. For example, |
30 | the three solutions of x^3 + 8 = 0 | 31 | the three solutions of x^3 + 8 = 0 |
31 | 32 | ||