diff options
author | Bas van Dijk <v.dijk.bas@gmail.com> | 2011-12-24 21:39:19 +0100 |
---|---|---|
committer | Bas van Dijk <v.dijk.bas@gmail.com> | 2011-12-24 21:39:19 +0100 |
commit | 43956aff360476d095b03fbbdef20f18df2dc933 (patch) | |
tree | 950e968a34d46011476bb7fe0adf25c2f6c37ae4 /lib/Data/Packed | |
parent | 3831bed8a046e53483292a0771ee1ff5b3fecf7a (diff) |
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.
Diffstat (limited to 'lib/Data/Packed')
-rw-r--r-- | lib/Data/Packed/Internal/Common.hs | 2 | ||||
-rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 2 | ||||
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 2 |
3 files changed, 3 insertions, 3 deletions
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( | |||
27 | import Foreign | 27 | import Foreign |
28 | import Control.Monad(when) | 28 | import Control.Monad(when) |
29 | import Foreign.C.String(peekCString) | 29 | import Foreign.C.String(peekCString) |
30 | import Foreign.C.Types(CInt(..), CChar) | 30 | import Foreign.C.Types |
31 | import Foreign.Storable.Complex() | 31 | import Foreign.Storable.Complex() |
32 | import Data.List(transpose,intersperse) | 32 | import Data.List(transpose,intersperse) |
33 | import Control.Exception as E | 33 | 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) | |||
44 | import Foreign.Ptr(Ptr, castPtr) | 44 | import Foreign.Ptr(Ptr, castPtr) |
45 | import Foreign.Storable(Storable, peekElemOff, pokeElemOff, poke, sizeOf) | 45 | import Foreign.Storable(Storable, peekElemOff, pokeElemOff, poke, sizeOf) |
46 | import Data.Complex(Complex) | 46 | import Data.Complex(Complex) |
47 | import Foreign.C.Types(CInt(..), CChar) | 47 | import Foreign.C.Types |
48 | import Foreign.C.String(newCString) | 48 | import Foreign.C.String(newCString) |
49 | import System.IO.Unsafe(unsafePerformIO) | 49 | import System.IO.Unsafe(unsafePerformIO) |
50 | 50 | ||
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) | |||
38 | import Foreign.Ptr(Ptr) | 38 | import Foreign.Ptr(Ptr) |
39 | import Foreign.Storable(Storable, peekElemOff, pokeElemOff, sizeOf) | 39 | import Foreign.Storable(Storable, peekElemOff, pokeElemOff, sizeOf) |
40 | import Foreign.C.String | 40 | import Foreign.C.String |
41 | import Foreign.C.Types(CInt(..), CChar) | 41 | import Foreign.C.Types |
42 | import Data.Complex | 42 | import Data.Complex |
43 | import Control.Monad(when) | 43 | import Control.Monad(when) |
44 | import System.IO.Unsafe(unsafePerformIO) | 44 | import System.IO.Unsafe(unsafePerformIO) |