X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgLetNoEscape.lhs;h=5870cece99b1da8b4bae91cdcb5dd2cb15f1f840;hb=984a288119983912d40a80845c674ee4b83a19ce;hp=f501be5941dbdacc0338bb7cabecf17518a9896d;hpb=db77c1652c1bba51690a57c084b7a9294b77cc38;p=ghc-hetmet.git diff --git a/compiler/codeGen/CgLetNoEscape.lhs b/compiler/codeGen/CgLetNoEscape.lhs index f501be5..5870cec 100644 --- a/compiler/codeGen/CgLetNoEscape.lhs +++ b/compiler/codeGen/CgLetNoEscape.lhs @@ -30,7 +30,6 @@ import CLabel import ClosureInfo import CostCentre import Id -import Var import SMRep import BasicTypes \end{code} @@ -168,7 +167,7 @@ cgLetNoEscapeClosure -- Ignore the label that comes back from -- mkRetDirectTarget. It must be conjured up elswhere - ; emitReturnTarget (idName bndr) abs_c + ; _ <- emitReturnTarget (idName bndr) abs_c ; return () }) ; returnFC (bndr, letNoEscapeIdInfo bndr vSp lf_info) }