X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmBind.hs;h=2947d330425a4969dce83247ead02c8141d44660;hp=bfb749cb69e4f62e8d3a1ef50bc4981bfff953e4;hb=0af06ed99ed56341adfdda4a92a0a36678780109;hpb=889c084e943779e76d19f2ef5e970ff655f511eb

diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs
index bfb749c..2947d33 100644
--- a/compiler/codeGen/StgCmmBind.hs
+++ b/compiler/codeGen/StgCmmBind.hs
@@ -301,7 +301,7 @@ mkRhsClosure bndr cc _ fvs upd_flag srt args body
 				         (map toVarArg fv_details)
 
 	-- RETURN
-	; return $ (regIdInfo bndr lf_info tmp, init) }
+	; regIdInfo bndr lf_info tmp init }
 
 -- Use with care; if used inappropriately, it could break invariants.
 stripNV :: NonVoid a -> a
@@ -336,7 +336,7 @@ cgStdThunk bndr cc _bndr_info body lf_info payload
   ; (tmp, init) <- allocDynClosure closure_info use_cc blame_cc payload_w_offsets
 
 	-- RETURN
-  ; returnFC $ (regIdInfo bndr lf_info tmp, init) }
+  ; regIdInfo bndr lf_info tmp init }
 
 mkClosureLFInfo :: Id		-- The binder
 		-> TopLevelFlag	-- True of top level