Merge branch 'unsafe' into develop

1 files changed, 2 insertions, 2 deletions

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