Add an array contents touch in arraysOf
commit409a3d85e325a201ed0f0010e54609ca421f5c8a
authorHarendra Kumar <harendra@composewell.com>
dateSun 7 Nov 2021, 23:14 (5 years ago)
parent7058622
src/Streamly/Internal/Data/Array/Foreign/Mut/Type.hs+1−1
@@ -1253,7 +1253,7 @@ arraysOf n (D.Stream step state) =
12531253 r <- step (adaptState gst) st
12541254 case r of
12551255 D.Yield x s -> do
1256− liftIO $ poke end x
1256+ liftIO $ poke end x >> touch contents
12571257 let end' = end `plusPtr` sizeOf (undefined :: a)
12581258 return $
12591259 if end' >= bound