1 files changed, 5 insertions, 5 deletions

diff --git a/packages/base/src/Internal/Vector.hs b/packages/base/src/Internal/Vector.hs
index 6271bb6..3037019 100644
--- a/packages/base/src/Internal/Vector.hs
+++ b/packages/base/src/Internal/Vector.hs
@@ -32,7 +32,7 @@ import Foreign.ForeignPtr
 import Foreign.Ptr
 import Foreign.Storable
 import Foreign.C.Types(CInt)
-import Data.Int(Int64)
+import Data.Int
 import Data.Complex
 import System.IO.Unsafe(unsafePerformIO)
 import GHC.ForeignPtr(mallocPlainForeignPtrBytes)
@@ -46,18 +46,18 @@ import Control.Monad(replicateM)
 import qualified Data.ByteString.Internal as BS
 import Data.Vector.Storable.Internal(updPtr)
 
-type I = CInt
+type I = Int32
 type Z = Int64
 type R = Double
 type C = Complex Double
 
 
 -- | specialized fromIntegral
-fi :: Int -> CInt
+fi :: Int -> Int32
 fi = fromIntegral
 
 -- | specialized fromIntegral
-ti :: CInt -> Int
+ti :: Int32 -> Int
 ti = fromIntegral
 
 
@@ -69,7 +69,7 @@ dim = Vector.length
 
 -- C-Haskell vector adapter
 {-# INLINE avec #-}
-avec :: Storable a => Vector a -> (f -> IO r) -> ((CInt -> Ptr a -> f) -> IO r)
+avec :: Storable a => Vector a -> (f -> IO r) -> ((Int32 -> Ptr a -> f) -> IO r)
 avec v f g = unsafeWith v $ \ptr -> f (g (fromIntegral (Vector.length v)) ptr)
 
 -- allocates memory for a new vector