@@ -1253,7 +1253,7 @@ arraysOf n (D.Stream step state) =
1253 r <- step (adaptState gst) st
1253 r <- step (adaptState gst) st
1254 case r of
1254 case r of
1255 D.Yield x s -> do
1255 D.Yield x s -> do
1256− liftIO $ poke end x
1256+ liftIO $ poke end x >> touch contents
1257 let end' = end `plusPtr` sizeOf (undefined :: a)
1257 let end' = end `plusPtr` sizeOf (undefined :: a)
1258 return $
1258 return $
1259 if end' >= bound
1259 if end' >= bound