Merge remote-tracking branch 'wowus/master' into unsafe

1 files changed, 2 insertions, 2 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)