added write access resolver to alloc-like parallel let bindings

dpvanbalen · Apr 10, 2024 · 5b8e358 · 5b8e358
1 parent 1a9f5b2
commit 5b8e358
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Array/Accelerate/Trafo/Schedule/Uniform.hs b/src/Data/Array/Accelerate/Trafo/Schedule/Uniform.hs
@@ -421,7 +421,7 @@ writeOutput
 writeOutput (TupRsingle dest) (TupRsingle (Var tp idx))
   | Just ref <- destRef dest =
     buildEffect (RefWrite (Var (BaseRrefWrite tp) ref) (Var (BaseRground tp) idx))
-      $ buildEffect (SignalResolve $ catMaybes [destResolver dest]) buildReturn
+      $ buildEffect (SignalResolve $ catMaybes [destResolver dest, destResolverWrite dest]) buildReturn
   | otherwise = buildReturn -- This return value is ignored (e.g., via LeftHandSideWildcard)
 writeOutput (TupRpair dest1 dest2) (TupRpair vars1 vars2) =
   buildSeq (writeOutput dest1 vars1) (writeOutput dest2 vars2)