[project @ 2005-04-04 12:16:45 by simonpj]

Default method for unsafeRangeSize should use unsafeIndex!

diff --git a/GHC/Arr.lhs b/GHC/Arr.lhs
index 3de82ee..9e52c71 100644 (file)
--- a/GHC/Arr.lhs
+++ b/GHC/Arr.lhs
@@ -87,7 +87,7 @@ class (Ord a) => Ix a where
 
     rangeSize b@(_l,h) | inRange b h = unsafeIndex b h + 1
                       | otherwise   = 0
-    unsafeRangeSize b = rangeSize b
+    unsafeRangeSize b@(_l,h) = unsafeIndex b h + 1
 \end{code}
 
 Note that the following is NOT right