From bb341c45a4749557dec76f2ec178e9665a2a47b5 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 27 Apr 1999 15:03:20 +0000
Subject: [PATCH] [project @ 1999-04-27 15:03:20 by simonm] indexArray#
changes.
---
ghc/lib/std/PrelArr.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/std/PrelArr.lhs b/ghc/lib/std/PrelArr.lhs
index 5f93a937ba8e..b8b1b105e88f 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#
}}
--
GitLab