summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Internal')
-rw-r--r--lib/Data/Packed/Internal/Matrix.hs12
-rw-r--r--lib/Data/Packed/Internal/Vector.hs7
2 files changed, 14 insertions, 5 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs
index 57142b7..d5fa5a0 100644
--- a/lib/Data/Packed/Internal/Matrix.hs
+++ b/lib/Data/Packed/Internal/Matrix.hs
@@ -39,10 +39,14 @@ import Data.Packed.Internal.Common
39import Data.Packed.Internal.Signatures 39import Data.Packed.Internal.Signatures
40import Data.Packed.Internal.Vector 40import Data.Packed.Internal.Vector
41 41
42import Foreign hiding (xor) 42import Foreign.Marshal.Alloc(alloca, free)
43import Data.Complex 43import Foreign.Marshal.Array(newArray)
44import Foreign.C.Types 44import Foreign.Ptr(Ptr, castPtr)
45import Foreign.C.String 45import Foreign.Storable(Storable, peekElemOff, pokeElemOff, poke, sizeOf)
46import Data.Complex(Complex)
47import Foreign.C.Types(CInt, CChar)
48import Foreign.C.String(newCString)
49import System.IO.Unsafe(unsafePerformIO)
46 50
47----------------------------------------------------------------- 51-----------------------------------------------------------------
48 52
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
33import Data.Packed.Internal.Common 33import Data.Packed.Internal.Common
34import Data.Packed.Internal.Signatures 34import Data.Packed.Internal.Signatures
35import Foreign 35import Foreign.Marshal.Alloc(free)
36import Foreign.Marshal.Array(peekArray, pokeArray, copyArray, advancePtr)
37import Foreign.ForeignPtr(ForeignPtr, castForeignPtr)
38import Foreign.Ptr(Ptr)
39import Foreign.Storable(Storable, peekElemOff, pokeElemOff, sizeOf)
36import Foreign.C.String 40import Foreign.C.String
37import Foreign.C.Types(CInt,CChar) 41import Foreign.C.Types(CInt,CChar)
38import Data.Complex 42import Data.Complex
39import Control.Monad(when) 43import Control.Monad(when)
44import System.IO.Unsafe(unsafePerformIO)
40 45
41#if __GLASGOW_HASKELL__ >= 605 46#if __GLASGOW_HASKELL__ >= 605
42import GHC.ForeignPtr (mallocPlainForeignPtrBytes) 47import GHC.ForeignPtr (mallocPlainForeignPtrBytes)