From: simonpj <unknown>
Date: Mon, 4 Apr 2005 12:16:45 +0000 (+0000)
Subject: [project @ 2005-04-04 12:16:45 by simonpj]
X-Git-Tag: arity-anal-branch-point~10
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=297d7e3e4ce4950125fd4b6e3bff9d7f6afbfbc6;p=ghc-base.git

[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
--- 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