diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-07 12:10:38 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-07 12:10:38 +0100 |
| commit | 13602a465f8e8fcd530036a279abf50e4186c06c (patch) | |
| tree | 4e0b2d4b34ca4be5f63381be4bc8e564243c76a0 /compiler/codeGen/StgCmmUtils.hs | |
| parent | 07a274072fc945a303ae3257b3035b74bd858f70 (diff) | |
| parent | b8e0074794e085fdc2271f39aec92a0b472c6b46 (diff) | |
| download | haskell-13602a465f8e8fcd530036a279abf50e4186c06c.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index c3327138b3..dda2260a04 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -458,7 +458,7 @@ newUnboxedTupleRegs res_ty ; ASSERT( regs `equalLength` reps ) return (regs, map primRepForeignHint reps) } where - ty_args = tyConAppArgs (repType res_ty) + UbxTupleRep ty_args = repType res_ty reps = [ rep | ty <- ty_args , let rep = typePrimRep ty |