Commits

Bryan O'Sullivan  committed 49f6eb3

Fix bounds check in copy code

  • Participants
  • Parent commits b18832f

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

     where
       len = A.length src
       copy_loop i
-          | i > len   = return ()
+          | i >= len   = return ()
           | otherwise = do A.unsafeRead src i >>= A.unsafeWrite dest i
                            copy_loop (i+1)