= 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 #-}
| 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#
}}