X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FClosureInfo.lhs;h=25cde6fd88c8cf92b98500c495835e55056e8ba1;hb=3aafdc1609ee60c4d5629b279c45ccbb943fa4a7;hp=23113d2afb55c42550b1516daeba129e8f2dea42;hpb=6273ef4138e164d7b68ef7bdfdd6b8ce468de3d4;p=ghc-hetmet.git

diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs
index 23113d2..25cde6f 100644
--- a/compiler/codeGen/ClosureInfo.lhs
+++ b/compiler/codeGen/ClosureInfo.lhs
@@ -598,7 +598,8 @@ getCallMethod name (LFCon con) n_args
     ReturnCon con
 
 getCallMethod name (LFThunk _ _ updatable std_form_info is_fun) n_args
-  | is_fun 	-- *Might* be a function, so we must "call" it (which is always safe)
+  | is_fun 	-- it *might* be a function, so we must "call" it (which is
+                -- always safe)
   = SlowCall	-- We cannot just enter it [in eval/apply, the entry code
 		-- is the fast-entry code]