diff options
| author | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
|---|---|---|
| committer | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
| commit | f8b7b3734fa6bb8d63914719e09d17940add27d4 (patch) | |
| tree | 233c1c41ea8d5a0cf43bf9430cc2b60cff38a3e9 /lib/Data/Packed/Internal/Common.hs | |
| parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) | |
Removed foreign import safety.
Diffstat (limited to 'lib/Data/Packed/Internal/Common.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Common.hs | 4 |
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 | |||
| 140 | 140 | ||
| 141 | 141 | ||
| 142 | -- | clear the fpu | 142 | -- | clear the fpu |
| 143 | foreign import ccall "asm_finit" finit :: IO () | 143 | foreign import ccall unsafe "asm_finit" finit :: IO () |
| 144 | 144 | ||
| 145 | -- | check the error code | 145 | -- | check the error code |
| 146 | check :: String -> IO CInt -> IO () | 146 | check :: String -> IO CInt -> IO () |
| @@ -158,7 +158,7 @@ check msg f = do | |||
| 158 | return () | 158 | return () |
| 159 | 159 | ||
| 160 | -- | description of GSL error codes | 160 | -- | description of GSL error codes |
| 161 | foreign import ccall "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar) | 161 | foreign import ccall unsafe "gsl_strerror" gsl_strerror :: CInt -> IO (Ptr CChar) |
| 162 | 162 | ||
| 163 | -- | Error capture and conversion to Maybe | 163 | -- | Error capture and conversion to Maybe |
| 164 | mbCatch :: IO x -> IO (Maybe x) | 164 | mbCatch :: IO x -> IO (Maybe x) |