diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-24 16:50:55 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:34 +0100 |
| commit | ad7f1292eec8621011b30171f4b2b72c19444850 (patch) | |
| tree | 6902ba8a3bbbc0985087f4f78445647777925f79 /compiler/codeGen | |
| parent | 1c2f89535394958f75cfb15c8c5e0433a20953ed (diff) | |
| download | haskell-ad7f1292eec8621011b30171f4b2b72c19444850.tar.gz | |
fix warning
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index de4318afb0..c4a6c0c520 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -736,7 +736,7 @@ blackHoleOnEntry dflags cl_info = case closureLFInfo cl_info of LFReEntrant _ _ _ _ -> False LFLetNoEscape _ -> False - LFThunk _ no_fvs updatable _ _ + LFThunk _ no_fvs _updatable _ _ | eager_blackholing -> doingTickyProfiling dflags || not no_fvs -- the former to catch double entry, -- and the latter to plug space-leaks. KSW/SDM 1999-04. |