Fix bug
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 2 Dec 2009 16:02:37 +0000 (16:02 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 2 Dec 2009 16:02:37 +0000 (16:02 +0000)
Data/Vector/Internal/Check.hs

index e957a8a..c71ae43 100644 (file)
@@ -93,5 +93,5 @@ checkSlice :: String -> Int -> Checks -> String -> Int -> Int -> Int -> a -> a
 {-# INLINE checkSlice #-}
 checkSlice file line kind loc i m n x
   = check file line kind loc (checkSlice_msg i m n)
-                             (i >= 0 && m >= 0 && i+n <= m) x
+                             (i >= 0 && m >= 0 && i+m <= n) x