Let Features free Array.

Don't add finalizer to Array in `infoFromFeatures`.
Features allocation will free allocated Arrays under the hood.

Author: dmjio

src/ArrayFire/FFI.hs

@@ -313,6 +313,8 @@ afCall1' op =
       throwAFError =<< op ptrInput
       peek ptrInput
 
+-- | Note: We don't add a finalizer to 'Array' since the 'Features' finalizer frees 'Array'
+-- under the hood.
 featuresToArray
   :: Features
   -> (Ptr AFArray -> AFFeatures -> IO AFErr)
@@ -324,8 +326,7 @@ featuresToArray (Features fptr1) op =
       alloca $ \ptrInput -> do
         throwAFError =<< op ptrInput ptr1
         Array <$> do
-          newForeignPtr af_release_array_finalizer
-            =<< peek ptrInput
+          newForeignPtr_ =<< peek ptrInput
 
 infoFromFeatures
   :: Storable a
@@ -439,4 +440,4 @@ infoFromArray4 (Array fptr1) op =
               (,,,) <$> peek ptrInput1
                     <*> peek ptrInput2
                     <*> peek ptrInput3
-                    <*> peek ptrInput4
+                    <*> peek ptrInput4

test/ArrayFire/FeaturesSpec.hs

@@ -10,12 +10,8 @@ spec =
     it "Should get features number an array" $ do
       let feats = createFeatures 10
       getFeaturesNum feats `shouldBe` 10
-    -- it "Should retain features" $ do
-    --   let feats = createFeatures 100
-    --   retainFeatures feats
---    print (getFeaturesSize feats)
---    print (getFeaturesOrientation feats)
---    print (getFeaturesXPos feats)
---    print (getFeaturesXPos feats)
---    scalar @Int 10 `shouldBe` scalar @Int 10
+      -- print (getFeaturesSize feats)
+      -- print (getFeaturesOrientation feats)
+      -- print (getFeaturesXPos feats)
+      -- print (getFeaturesYPos feats)