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

2 files changed, 3 insertions, 3 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
diff --git a/examples/devel/ej2/wrappers.hs b/examples/devel/ej2/wrappers.hs
index 399c5a9..1c02a24 100644
--- a/examples/devel/ej2/wrappers.hs
+++ b/examples/devel/ej2/wrappers.hs
@@ -15,7 +15,7 @@ main = do
 -----------------------------------------------------
 -- arbitrary data order
 
-foreign import ccall "c_diag"
+foreign import ccall unsafe "c_diag"
     cDiag :: CInt                        -- matrix order
           -> CInt -> CInt -> Ptr Double  -- argument
           -> CInt -> Ptr Double          -- result1