Removed foreign import safety.

3 files changed, 25 insertions, 25 deletions

diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs
index a8c3c3e..49f17b0 100644
--- a/lib/Data/Packed/Internal/Common.hs
+++ b/lib/Data/Packed/Internal/Common.hs
@@ -140,7 +140,7 @@ errorCode n    = "code "++show n
 
 
 -- | clear the fpu
-foreign import ccall "asm_finit" finit :: IO ()
+foreign import ccall unsafe "asm_finit" finit :: IO ()
 
 -- | check the error code
 check :: String -> IO CInt -> IO ()
@@ -158,7 +158,7 @@ check msg f = do
     return ()
 
 -- | description of GSL error codes
-foreign import ccall "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar)
+foreign import ccall unsafe "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar)
 
 -- | Error capture and conversion to Maybe
 mbCatch :: IO x -> IO (Maybe x)
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs
index 257e4fc..b8ed18d 100644
--- a/lib/Data/Packed/Internal/Matrix.hs
+++ b/lib/Data/Packed/Internal/Matrix.hs
@@ -331,11 +331,11 @@ transdataP c1 d c2 =
          sz = sizeOf (d @> 0)
          noneed = r1 == 1 || c1 == 1
 
-foreign import ccall "transF" ctransF :: TFMFM
-foreign import ccall "transR" ctransR :: TMM
-foreign import ccall "transQ" ctransQ :: TQMQM
-foreign import ccall "transC" ctransC :: TCMCM
-foreign import ccall "transP" ctransP :: CInt -> CInt -> Ptr () -> CInt -> CInt -> CInt -> Ptr () -> CInt -> IO CInt
+foreign import ccall unsafe "transF" ctransF :: TFMFM
+foreign import ccall unsafe "transR" ctransR :: TMM
+foreign import ccall unsafe "transQ" ctransQ :: TQMQM
+foreign import ccall unsafe "transC" ctransC :: TCMCM
+foreign import ccall unsafe "transP" ctransP :: CInt -> CInt -> Ptr () -> CInt -> CInt -> CInt -> Ptr () -> CInt -> IO CInt
 
 ----------------------------------------------------------------------
 
@@ -358,19 +358,19 @@ constantAux fun x n = unsafePerformIO $ do
 
 constantF :: Float -> Int -> Vector Float
 constantF = constantAux cconstantF
-foreign import ccall "constantF" cconstantF :: Ptr Float -> TF
+foreign import ccall unsafe "constantF" cconstantF :: Ptr Float -> TF
 
 constantR :: Double -> Int -> Vector Double
 constantR = constantAux cconstantR
-foreign import ccall "constantR" cconstantR :: Ptr Double -> TV
+foreign import ccall unsafe "constantR" cconstantR :: Ptr Double -> TV
 
 constantQ :: Complex Float -> Int -> Vector (Complex Float)
 constantQ = constantAux cconstantQ
-foreign import ccall "constantQ" cconstantQ :: Ptr (Complex Float) -> TQV
+foreign import ccall unsafe "constantQ" cconstantQ :: Ptr (Complex Float) -> TQV
 
 constantC :: Complex Double -> Int -> Vector (Complex Double)
 constantC = constantAux cconstantC
-foreign import ccall "constantC" cconstantC :: Ptr (Complex Double) -> TCV
+foreign import ccall unsafe "constantC" cconstantC :: Ptr (Complex Double) -> TCV
 
 constantP :: Storable a => a -> Int -> Vector a
 constantP a n = unsafePerformIO $ do
@@ -381,7 +381,7 @@ constantP a n = unsafePerformIO $ do
                       poke k a
                       cconstantP (castPtr k) (fi n) (castPtr p) (fi sz) // check "constantP"
     return v
-foreign import ccall "constantP" cconstantP :: Ptr () -> CInt -> Ptr () -> CInt -> IO CInt
+foreign import ccall unsafe "constantP" cconstantP :: Ptr () -> CInt -> Ptr () -> CInt -> IO CInt
 
 ----------------------------------------------------------------------
 
@@ -427,7 +427,7 @@ saveMatrix filename fmt m = do
     free charname
     free charfmt
 
-foreign import ccall "matrix_fprintf" matrix_fprintf :: Ptr CChar -> Ptr CChar -> CInt -> TM
+foreign import ccall unsafe "matrix_fprintf" matrix_fprintf :: Ptr CChar -> Ptr CChar -> CInt -> TM
 
 ----------------------------------------------------------------------
 
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs
index 936479d..d3b80ff 100644
--- a/lib/Data/Packed/Internal/Vector.hs
+++ b/lib/Data/Packed/Internal/Vector.hs
@@ -308,8 +308,8 @@ double2FloatV v = unsafePerformIO $ do
     return r
 
 
-foreign import ccall "float2double" c_float2double:: TFV
-foreign import ccall "double2float" c_double2float:: TVF
+foreign import ccall unsafe "float2double" c_float2double:: TFV
+foreign import ccall unsafe "double2float" c_double2float:: TVF
 
 ---------------------------------------------------------------
 
@@ -325,8 +325,8 @@ stepD v = unsafePerformIO $ do
     app2 c_stepD vec v vec r "stepD"
     return r
 
-foreign import ccall "stepF" c_stepF :: TFF
-foreign import ccall "stepD" c_stepD :: TVV
+foreign import ccall unsafe "stepF" c_stepF :: TFF
+foreign import ccall unsafe "stepD" c_stepD :: TVV
 
 ---------------------------------------------------------------
 
@@ -342,8 +342,8 @@ condD x y l e g = unsafePerformIO $ do
     app6 c_condD vec x vec y vec l vec e vec g vec r "condD"
     return r
 
-foreign import ccall "condF" c_condF :: CInt -> PF -> CInt -> PF -> CInt -> PF -> TFFF
-foreign import ccall "condD" c_condD :: CInt -> PD -> CInt -> PD -> CInt -> PD -> TVVV
+foreign import ccall unsafe "condF" c_condF :: CInt -> PF -> CInt -> PF -> CInt -> PF -> TFFF
+foreign import ccall unsafe "condD" c_condD :: CInt -> PD -> CInt -> PD -> CInt -> PD -> TVVV
 
 --------------------------------------------------------------------------------
 
@@ -354,11 +354,11 @@ conjugateAux fun x = unsafePerformIO $ do
 
 conjugateQ :: Vector (Complex Float) -> Vector (Complex Float)
 conjugateQ = conjugateAux c_conjugateQ
-foreign import ccall "conjugateQ" c_conjugateQ :: TQVQV
+foreign import ccall unsafe "conjugateQ" c_conjugateQ :: TQVQV
 
 conjugateC :: Vector (Complex Double) -> Vector (Complex Double)
 conjugateC = conjugateAux c_conjugateC
-foreign import ccall "conjugateC" c_conjugateC :: TCVCV
+foreign import ccall unsafe "conjugateC" c_conjugateC :: TCVCV
 
 --------------------------------------------------------------------------------
 
@@ -547,7 +547,7 @@ fscanfVector filename n = do
     free charname
     return res
 
-foreign import ccall "vector_fscanf" gsl_vector_fscanf:: Ptr CChar -> TV
+foreign import ccall unsafe "vector_fscanf" gsl_vector_fscanf:: Ptr CChar -> TV
 
 -- | Saves the elements of a vector, with a given format (%f, %e, %g), to an ASCII file.
 fprintfVector :: FilePath -> String -> Vector Double -> IO ()
@@ -558,7 +558,7 @@ fprintfVector filename fmt v = do
     free charname
     free charfmt
 
-foreign import ccall "vector_fprintf" gsl_vector_fprintf :: Ptr CChar -> Ptr CChar -> TV
+foreign import ccall unsafe "vector_fprintf" gsl_vector_fprintf :: Ptr CChar -> Ptr CChar -> TV
 
 -- | Loads a vector from a binary file (the number of elements must be known in advance).
 freadVector :: FilePath -> Int -> IO (Vector Double)
@@ -569,7 +569,7 @@ freadVector filename n = do
     free charname
     return res
 
-foreign import ccall "vector_fread" gsl_vector_fread:: Ptr CChar -> TV
+foreign import ccall unsafe "vector_fread" gsl_vector_fread:: Ptr CChar -> TV
 
 -- | Saves the elements of a vector to a binary file.
 fwriteVector :: FilePath -> Vector Double -> IO ()
@@ -578,5 +578,5 @@ fwriteVector filename v = do
     app1 (gsl_vector_fwrite charname) vec v "gsl_vector_fwrite"
     free charname
 
-foreign import ccall "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV
+foreign import ccall unsafe "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV