diff --git a/src/ArrayFire/FFI.hs b/src/ArrayFire/FFI.hs
index bcae5e7..fe77ae2 100644
--- a/src/ArrayFire/FFI.hs
+++ b/src/ArrayFire/FFI.hs
@@ -282,7 +282,7 @@ afSaveImage
   -> String
   -> (CString -> AFArray -> IO AFErr)
   -> IO ()
-afSaveImage (Array fptr1) str op =
+afSaveImage (Array fptr1) str op = mask_ $
   withCString str $ \cstr ->
     withForeignPtr fptr1 $ \ptr1 -> do
       alloca $ \ptrInput -> do