1 files changed, 8 insertions, 8 deletions

diff --git a/packages/base/src/Internal/Sparse.hs b/packages/base/src/Internal/Sparse.hs
index fbea11a..423b169 100644
--- a/packages/base/src/Internal/Sparse.hs
+++ b/packages/base/src/Internal/Sparse.hs
@@ -20,7 +20,7 @@ import Data.Function(on)
 import Control.Arrow((***))
 import Control.Monad(when)
 import Data.List(groupBy, sort)
-import Foreign.C.Types(CInt(..))
+import Data.Int
 
 import Internal.Devel
 import System.IO.Unsafe(unsafePerformIO)
@@ -34,16 +34,16 @@ type AssocMatrix = [((Int,Int),Double)]
 
 data CSR = CSR
         { csrVals  :: Vector Double
-        , csrCols  :: Vector CInt
-        , csrRows  :: Vector CInt
+        , csrCols  :: Vector Int32
+        , csrRows  :: Vector Int32
         , csrNRows :: Int
         , csrNCols :: Int
         } deriving Show
 
 data CSC = CSC
         { cscVals  :: Vector Double
-        , cscRows  :: Vector CInt
-        , cscCols  :: Vector CInt
+        , cscRows  :: Vector Int32
+        , cscCols  :: Vector Int32
         , cscNRows :: Int
         , cscNCols :: Int
         } deriving Show
@@ -138,9 +138,9 @@ mkDiagR r c v
     diagVals = v
 
 
-type IV t = CInt -> Ptr CInt   -> t
-type  V t = CInt -> Ptr Double -> t
-type SMxV = V (IV (IV (V (V (IO CInt)))))
+type IV t = Int32 -> Ptr Int32   -> t
+type  V t = Int32 -> Ptr Double -> t
+type SMxV = V (IV (IV (V (V (IO Int32)))))
 
 gmXv :: GMatrix -> Vector Double -> Vector Double
 gmXv SparseR { gmCSR = CSR{..}, .. } v = unsafePerformIO $ do