X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FIdInfo.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FIdInfo.lhs;h=f4cb7062e18dfefd742f090415400756f8d08f6f;hb=e791a22665384e27193fbc767b9eafbd7a32d909;hp=0b5b79ad93f03bb4ec8ad101fbf6e8720bbcfedf;hpb=fccc859dcc50931f9477b782d5a48e514b426afd;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 0b5b79a..f4cb706 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -473,7 +473,7 @@ this to".
 data WorkerInfo = NoWorker
 		| HasWorker Id Arity
 	-- The Arity is the arity of the *wrapper* at the moment of the
-	-- w/w split. See comments in MkIface.ifaceId, with the 'Worker' code.
+	-- w/w split.  See notes above.
 
 seqWorker :: WorkerInfo -> ()
 seqWorker (HasWorker id a) = id `seq` a `seq` ()