fix warning
authorSimon Marlow <marlowsd@gmail.com>
Wed, 24 Aug 2011 15:50:55 +0000 (16:50 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 25 Aug 2011 10:12:34 +0000 (11:12 +0100)
compiler/codeGen/ClosureInfo.lhs

index de4318a..c4a6c0c 100644 (file)
@@ -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.