Commits

Bryan O'Sullivan committed 49f6eb3

Fix bounds check in copy code

Comments (0)

Files changed (1)

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)