From: simonm <unknown>
Date: Tue, 27 Apr 1999 15:03:20 +0000 (+0000)
Subject: [project @ 1999-04-27 15:03:20 by simonm]
X-Git-Tag: Approximately_9120_patches~6290
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bb341c45a4749557dec76f2ec178e9665a2a47b5;p=ghc-hetmet.git

[project @ 1999-04-27 15:03:20 by simonm]
indexArray# changes.
---

diff --git a/ghc/lib/std/PrelArr.lhs b/ghc/lib/std/PrelArr.lhs
index 5f93a93..b8b1b10 100644
--- a/ghc/lib/std/PrelArr.lhs
+++ b/ghc/lib/std/PrelArr.lhs
@@ -117,7 +117,7 @@ bounds (Array b _)  = b
   = let n# = case (index bounds i) of { I# x -> x } -- index fails if out of range
     in
     case (indexArray# arr# n#) of
-      (# _, v #) -> v
+      (# v #) -> v
 
 #ifdef USE_FOLDR_BUILD
 {-# INLINE array #-}
@@ -633,7 +633,7 @@ thawArray (Array ixs arr#) = ST $ \ s# ->
 	  | cur# ==# end#
 	    = (# st#, to# #)
 	  | otherwise
-	    = case indexArray#  from# cur#        of { (# _, ele #) ->
+	    = case indexArray#  from# cur#        of { (# ele #) ->
 	      case writeArray# to#   cur# ele st# of { s1# ->
 	      copy (cur# +# 1#) end# from# to# s1#
 	      }}