From f8b7b3734fa6bb8d63914719e09d17940add27d4 Mon Sep 17 00:00:00 2001 From: Clark Gaebel Date: Sat, 10 Mar 2012 18:26:56 -0500 Subject: Removed foreign import safety. --- examples/devel/ej1/wrappers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/devel/ej1/wrappers.hs') diff --git a/examples/devel/ej1/wrappers.hs b/examples/devel/ej1/wrappers.hs index b329464..a88f74b 100644 --- a/examples/devel/ej1/wrappers.hs +++ b/examples/devel/ej1/wrappers.hs @@ -15,7 +15,7 @@ main = do ----------------------------------------------------- -foreign import ccall "c_scale_vector" +foreign import ccall unsafe "c_scale_vector" cScaleVector :: Double -- scale -> CInt -> Ptr Double -- argument -> CInt -> Ptr Double -- result @@ -29,7 +29,7 @@ myScale s x = unsafePerformIO $ do ----------------------------------------------------- -- forcing row order -foreign import ccall "c_diag" +foreign import ccall unsafe "c_diag" cDiag :: CInt -> CInt -> Ptr Double -- argument -> CInt -> Ptr Double -- result1 -> CInt -> CInt -> Ptr Double -- result2 -- cgit v1.2.3