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

[project @ 1999-04-27 14:35:25 by simonm]
indexArray# now returns an unboxed 1-tuple.
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index d43d498..dd15382 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -1277,7 +1277,7 @@ primOpInfo WriteArrayOp
 primOpInfo IndexArrayOp
   = let { elt = alphaTy; elt_tv = alphaTyVar } in
     mkGenPrimOp SLIT("indexArray#") [elt_tv] [mkArrayPrimTy elt, intPrimTy]
-	(unboxedPair [realWorldStatePrimTy, elt])
+	(mkUnboxedTupleTy 1 [elt])
 
 ---------------------------------------------------------------------------
 -- Primitive arrays full of unboxed bytes: