From 43956aff360476d095b03fbbdef20f18df2dc933 Mon Sep 17 00:00:00 2001 From: Bas van Dijk Date: Sat, 24 Dec 2011 21:39:19 +0100 Subject: Warning police for GHC < 7.4 The previous patch got rid of warnings when ghc >= 7.4. Unfortunately this caused warnings on GHC < 7.4. This patch removes warnings on all versions of GHC. --- lib/Data/Packed/Internal/Common.hs | 2 +- lib/Data/Packed/Internal/Matrix.hs | 2 +- lib/Data/Packed/Internal/Vector.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/Data') diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs index 60e3444..a8c3c3e 100644 --- a/lib/Data/Packed/Internal/Common.hs +++ b/lib/Data/Packed/Internal/Common.hs @@ -27,7 +27,7 @@ module Data.Packed.Internal.Common( import Foreign import Control.Monad(when) import Foreign.C.String(peekCString) -import Foreign.C.Types(CInt(..), CChar) +import Foreign.C.Types import Foreign.Storable.Complex() import Data.List(transpose,intersperse) import Control.Exception as E diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 9fbaf6d..5d05e50 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 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 5062bc0..b9dba8e 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 import Data.Complex import Control.Monad(when) import System.IO.Unsafe(unsafePerformIO) -- cgit v1.2.3