X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSyn.lhs;h=072463081ba5d2f2422889c1dfc7592941cb064c;hb=2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba;hp=e9e7f8db1418cdfa5f69fff36a01fcad82d51385;hpb=a263737bbf44050a7b5ecbe267ddf85d410b73e5;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index e9e7f8d..0724630 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -477,6 +477,7 @@ data InlineRuleInfo
 
   | InlWrapper Id   -- This unfolding is a the wrapper in a 
 		    --     worker/wrapper split from the strictness analyser
+	            -- The Id is the worker-id
 		    -- Used to abbreviate the uf_tmpl in interface files
 		    --	which don't need to contain the RHS; 
 		    --	it can be derived from the strictness info