From 49219343d035992c2942a309a1d5594f4f96a8b1 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 21 Dec 2011 20:00:07 +0100 Subject: fix CInt constructor warnings --- lib/Data/Packed/Internal/Matrix.hs | 2 +- lib/Data/Packed/Internal/Vector.hs | 2 +- lib/Numeric/GSL/Differentiation.hs | 2 +- lib/Numeric/GSL/Fourier.hs | 2 +- lib/Numeric/GSL/Integration.hs | 2 +- lib/Numeric/GSL/Internal.hs | 2 +- lib/Numeric/GSL/Minimization.hs | 2 +- lib/Numeric/GSL/ODE.hs | 2 +- lib/Numeric/GSL/Polynomials.hs | 1 + lib/Numeric/GSL/Root.hs | 2 +- lib/Numeric/GSL/Vector.hs | 2 +- lib/Numeric/LinearAlgebra/LAPACK.hs | 2 +- 12 files changed, 12 insertions(+), 11 deletions(-) (limited to 'lib') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index d5fa5a0..9fbaf6d 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -44,7 +44,7 @@ import Foreign.Marshal.Array(newArray) import Foreign.Ptr(Ptr, castPtr) import Foreign.Storable(Storable, peekElemOff, pokeElemOff, poke, sizeOf) import Data.Complex(Complex) -import Foreign.C.Types(CInt, CChar) +import Foreign.C.Types(CInt(..), CChar) import Foreign.C.String(newCString) import System.IO.Unsafe(unsafePerformIO) diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 43b3fd8..f48c4b2 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs @@ -38,7 +38,7 @@ import Foreign.ForeignPtr(ForeignPtr, castForeignPtr) import Foreign.Ptr(Ptr) import Foreign.Storable(Storable, peekElemOff, pokeElemOff, sizeOf) import Foreign.C.String -import Foreign.C.Types(CInt,CChar) +import Foreign.C.Types(CInt(..),CChar) import Data.Complex import Control.Monad(when) import System.IO.Unsafe(unsafePerformIO) diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index a3c1aea..1df58a1 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs @@ -22,7 +22,7 @@ module Numeric.GSL.Differentiation ( derivBackward ) where -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import Foreign.Marshal.Alloc(malloc, free) import Foreign.Ptr(Ptr, FunPtr, freeHaskellFunPtr) import Foreign.Storable(peek) diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index 25487d4..5cc50dc 100644 --- a/lib/Numeric/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs @@ -22,7 +22,7 @@ module Numeric.GSL.Fourier ( import Data.Packed.Internal import Data.Complex -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe (unsafePerformIO) genfft code v = unsafePerformIO $ do diff --git a/lib/Numeric/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs index 84e8546..a59862a 100644 --- a/lib/Numeric/GSL/Integration.hs +++ b/lib/Numeric/GSL/Integration.hs @@ -20,7 +20,7 @@ module Numeric.GSL.Integration ( integrateQAGS ) where -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import Foreign.Marshal.Alloc(malloc, free) import Foreign.Ptr(Ptr, FunPtr, freeHaskellFunPtr) import Foreign.Storable(peek) diff --git a/lib/Numeric/GSL/Internal.hs b/lib/Numeric/GSL/Internal.hs index db2c633..a6c81ee 100644 --- a/lib/Numeric/GSL/Internal.hs +++ b/lib/Numeric/GSL/Internal.hs @@ -16,7 +16,7 @@ import Data.Packed.Internal import Foreign.Marshal.Array(copyArray) import Foreign.Ptr(Ptr, FunPtr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe(unsafePerformIO) iv :: (Vector Double -> Double) -> (CInt -> Ptr Double -> Double) diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index 5770c91..6fac640 100644 --- a/lib/Numeric/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs @@ -65,7 +65,7 @@ import Data.Packed.Matrix import Numeric.GSL.Internal import Foreign.Ptr(Ptr, FunPtr, freeHaskellFunPtr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe(unsafePerformIO) ------------------------------------------------------------------------ diff --git a/lib/Numeric/GSL/ODE.hs b/lib/Numeric/GSL/ODE.hs index ea064d6..86c8bab 100644 --- a/lib/Numeric/GSL/ODE.hs +++ b/lib/Numeric/GSL/ODE.hs @@ -36,7 +36,7 @@ import Data.Packed.Internal import Numeric.GSL.Internal import Foreign.Ptr(FunPtr, nullFunPtr, freeHaskellFunPtr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe(unsafePerformIO) ------------------------------------------------------------------------- diff --git a/lib/Numeric/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs index 9885920..9d1cf8c 100644 --- a/lib/Numeric/GSL/Polynomials.hs +++ b/lib/Numeric/GSL/Polynomials.hs @@ -19,6 +19,7 @@ module Numeric.GSL.Polynomials ( polySolve ) where +import Foreign.C.Types(CInt(..)) import Data.Packed.Internal import Data.Complex import System.IO.Unsafe (unsafePerformIO) diff --git a/lib/Numeric/GSL/Root.hs b/lib/Numeric/GSL/Root.hs index 784bbd4..9969e8a 100644 --- a/lib/Numeric/GSL/Root.hs +++ b/lib/Numeric/GSL/Root.hs @@ -54,7 +54,7 @@ import Data.Packed.Matrix import Numeric.GSL.Internal import Foreign.Ptr(FunPtr, freeHaskellFunPtr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe(unsafePerformIO) ------------------------------------------------------------------------- diff --git a/lib/Numeric/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs index e912953..d0f419b 100644 --- a/lib/Numeric/GSL/Vector.hs +++ b/lib/Numeric/GSL/Vector.hs @@ -31,7 +31,7 @@ import Data.Complex import Foreign.Marshal.Alloc(free) import Foreign.Marshal.Array(newArray) import Foreign.Ptr(Ptr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import System.IO.Unsafe(unsafePerformIO) fromei x = fromIntegral (fromEnum x) :: CInt diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index 2fac1ee..14e121b 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs @@ -47,7 +47,7 @@ import Numeric.Conversion import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale)) import Foreign.Ptr(nullPtr) -import Foreign.C.Types(CInt) +import Foreign.C.Types(CInt(..)) import Control.Monad(when) import System.IO.Unsafe(unsafePerformIO) -- cgit v1.2.3