diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-06 22:34:25 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-06 22:34:25 +0100 |
| commit | 5f7c1a7d95eff21af938a65f4ce462049fc70ff9 (patch) | |
| tree | 4cab5b1aabb6231acb80c82a866dcb5dfcad5eef /compiler/codeGen/StgCmmCon.hs | |
| parent | b1f40f1416593355ceb3ea70e7b58a97e0f42579 (diff) | |
| parent | 0076786de1c4450743803be8b23a0f3e5c47e4ee (diff) | |
| download | haskell-5f7c1a7d95eff21af938a65f4ce462049fc70ff9.tar.gz | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
Diffstat (limited to 'compiler/codeGen/StgCmmCon.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmCon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs index ee71f5c86a..a7af5662e9 100644 --- a/compiler/codeGen/StgCmmCon.hs +++ b/compiler/codeGen/StgCmmCon.hs @@ -62,7 +62,7 @@ cgTopRhsCon id con args ; when (platformOS (targetPlatform dflags) == OSMinGW32) $ -- Windows DLLs have a problem with static cross-DLL refs. ASSERT( not (isDllConApp dflags con args) ) return () - ; ASSERT( args `lengthIs` dataConRepArity con ) return () + ; ASSERT( args `lengthIs` dataConRepRepArity con ) return () -- LAY IT OUT ; let |