diff options
| author | simonpj@microsoft.com <unknown> | 2008-11-26 12:55:26 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-11-26 12:55:26 +0000 |
| commit | ea9fe633d8eb7e986832519e3d4923a6e694ebbb (patch) | |
| tree | 252450b65b9c701399fca9ab9d1be9203115c30c /compiler/codeGen/StgCmmBind.hs | |
| parent | 6bc92166180824bf046d31e378359e3c386150f9 (diff) | |
| download | haskell-ea9fe633d8eb7e986832519e3d4923a6e694ebbb.tar.gz | |
Fix build following codegen patch
Diffstat (limited to 'compiler/codeGen/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index a78abc751a..ad1b3e2bb5 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -619,8 +619,7 @@ link_caf cl_info is_upd = do ; return hp_rel } where bh_cl_info :: ClosureInfo - bh_cl_info | is_upd = cafBlackHoleClosureInfo cl_info - | otherwise = seCafBlackHoleClosureInfo cl_info + bh_cl_info = cafBlackHoleClosureInfo cl_info ind_static_info :: CmmExpr ind_static_info = mkLblExpr mkIndStaticInfoLabel |