diff options
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 8f403f4..e5a7782 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
@@ -32,11 +32,16 @@ module Data.Packed.Internal.Vector ( | |||
32 | 32 | ||
33 | import Data.Packed.Internal.Common | 33 | import Data.Packed.Internal.Common |
34 | import Data.Packed.Internal.Signatures | 34 | import Data.Packed.Internal.Signatures |
35 | import Foreign | 35 | import Foreign.Marshal.Alloc(free) |
36 | import Foreign.Marshal.Array(peekArray, pokeArray, copyArray, advancePtr) | ||
37 | import Foreign.ForeignPtr(ForeignPtr, castForeignPtr) | ||
38 | import Foreign.Ptr(Ptr) | ||
39 | import Foreign.Storable(Storable, peekElemOff, pokeElemOff, sizeOf) | ||
36 | import Foreign.C.String | 40 | import Foreign.C.String |
37 | import Foreign.C.Types(CInt,CChar) | 41 | import Foreign.C.Types(CInt,CChar) |
38 | import Data.Complex | 42 | import Data.Complex |
39 | import Control.Monad(when) | 43 | import Control.Monad(when) |
44 | import System.IO.Unsafe(unsafePerformIO) | ||
40 | 45 | ||
41 | #if __GLASGOW_HASKELL__ >= 605 | 46 | #if __GLASGOW_HASKELL__ >= 605 |
42 | import GHC.ForeignPtr (mallocPlainForeignPtrBytes) | 47 | import GHC.ForeignPtr (mallocPlainForeignPtrBytes) |