@@ -130,7 +130,7 @@ reverse (Stream next s len0)
130130 Done -> return (marr, (j, len-j))
131131 where j = i + 1
132132 Skip s1 -> loop s1 i len marr
133− Yield x s1 | i < least -> do
133+ Yield x s1 | i < least -> {-# SCC "reverse/resize" #-} do
134134 let newLen = len `shiftL` 1
135135 marr' <- A.unsafeNew newLen
136136 A.unsafeCopy marr 0 marr' (newLen-len) len