Removed the Element class.tower

1 files changed, 11 insertions, 10 deletions

diff --git a/packages/base/src/Internal/Devel.hs b/packages/base/src/Internal/Devel.hs
index f72d8aa..b0594d4 100644
--- a/packages/base/src/Internal/Devel.hs
+++ b/packages/base/src/Internal/Devel.hs
@@ -13,6 +13,7 @@ module Internal.Devel where
 
 
 import Control.Monad ( when )
+import Data.Int
 import Foreign.C.Types ( CInt )
 --import Foreign.Storable.Complex ()
 import Foreign.Ptr(Ptr)
@@ -28,7 +29,7 @@ infixl 0 //
 
 -- GSL error codes are <= 1024
 -- | error codes for the auxiliary functions required by the wrappers
-errorCode :: CInt -> String
+errorCode :: Int32 -> String
 errorCode 2000 = "bad size"
 errorCode 2001 = "bad function code"
 errorCode 2002 = "memory problem"
@@ -44,7 +45,7 @@ errorCode n    = "code "++show n
 foreign import ccall unsafe "asm_finit" finit :: IO ()
 
 -- | check the error code
-check :: String -> IO CInt -> IO ()
+check :: String -> IO Int32 -> IO ()
 check msg f = do
 --  finit
     err <- f
@@ -54,7 +55,7 @@ check msg f = do
 
 -- | postfix error code check
 infixl 0 #|
-(#|) :: IO CInt -> String -> IO ()
+(#|) :: IO Int32 -> String -> IO ()
 (#|) = flip check
 
 -- | Error capture and conversion to Maybe
@@ -65,12 +66,12 @@ mbCatch act = E.catch (Just `fmap` act) f
 
 --------------------------------------------------------------------------------
 
-type CM b r = CInt -> CInt -> Ptr b -> r
-type CV b r = CInt -> Ptr b -> r
-type OM b r = CInt -> CInt -> CInt -> CInt -> Ptr b -> r
+type CM b r = Int32 -> Int32 -> Ptr b -> r
+type CV b r = Int32 -> Ptr b -> r
+type OM b r = Int32 -> Int32 -> Int32 -> Int32 -> Ptr b -> r
 
-type CIdxs r = CV CInt r
-type Ok = IO CInt
+type CIdxs r = CV Int32 r
+type Ok = IO Int32
 
 infixr 5 :>, ::>, ..>
 type (:>)  t r = CV t r
@@ -87,8 +88,8 @@ class TransArray c
 
 instance Storable t => TransArray (Vector t)
   where
-    type Trans (Vector t) b    = CInt -> Ptr t -> b
-    type TransRaw (Vector t) b = CInt -> Ptr t -> b
+    type Trans (Vector t) b    = Int32 -> Ptr t -> b
+    type TransRaw (Vector t) b = Int32 -> Ptr t -> b
     apply = avec
     {-# INLINE apply #-}
     applyRaw = avec