From 297d7e3e4ce4950125fd4b6e3bff9d7f6afbfbc6 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 4 Apr 2005 12:16:45 +0000
Subject: [PATCH] [project @ 2005-04-04 12:16:45 by simonpj] Default method
 for unsafeRangeSize should use unsafeIndex!

---
 GHC/Arr.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/GHC/Arr.lhs b/GHC/Arr.lhs
index 3de82ee..9e52c71 100644
--- 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
-- 
1.7.10.4