Commits

Bryan O'Sullivan  committed c1fe8f7

Add an SCC for resizing during a reverse

  • Participants
  • Parent commits 36d2bb7

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

           Done -> return (marr, (j, len-j))
               where j = i + 1
           Skip s1    -> loop s1 i len marr
-          Yield x s1 | i < least -> do
+          Yield x s1 | i < least -> {-# SCC "reverse/resize" #-} do
                        let newLen = len `shiftL` 1
                        marr' <- A.unsafeNew newLen
                        A.unsafeCopy marr 0 marr' (newLen-len) len