feat: Add eval function and use it in Eq instance to flush JIT queue

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Author: dmjio

src/ArrayFire/Array.hs

@@ -306,6 +306,18 @@ getDataRefCount
 getDataRefCount =
   fromIntegral . (`infoFromArray` af_get_data_ref_count)
 
+-- | Force evaluation of a lazily-deferred 'Array', flushing any pending
+-- computation in the JIT queue and returning the same array.
+--
+-- >>> eval (vector @Double 10 [1..])
+-- ArrayFire Array
+-- ...
+--
+eval :: AFType a => Array a -> Array a
+eval arr@(Array fptr) = unsafePerformIO . mask_ $
+  withForeignPtr fptr (throwAFError <=< af_eval) >> pure arr
+{-# NOINLINE eval #-}
+
 -- | Should manual evaluation occur
 --
 -- >>> setManualEvalFlag True

src/ArrayFire/Orphans.hs

@@ -38,10 +38,10 @@ instance NFData (Array a) where
 -- negation of '==', which keeps the two operators consistent by construction.
 instance (AFType a, Eq a) => Eq (Array a) where
   x == y = A.getDims x == A.getDims y
-        && A.allTrueAll (A.eqBatched x y False) == 1.0
+        && A.allTrueAll (A.eqBatched (A.eval x) (A.eval y) False) == 1.0
 
   x /= y = A.getDims x /= A.getDims y
-        || A.anyTrueAll (A.neqBatched x y False) /= 0.0
+        || A.anyTrueAll (A.neqBatched (A.eval x) (A.eval y) False) /= 0.0
 
 
 -- | Elementwise 'Num' instance for 'Array'.