From 86d0367ab5a50abfcc85f02ac413434fa363bae5 Mon Sep 17 00:00:00 2001
From: David Johnson <djohnson.m@gmail.com>
Date: Sun, 9 Jun 2019 21:36:12 -0400
Subject: [PATCH] Mask exceptions on saveImage

---
 src/ArrayFire/FFI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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