From 8edeb9dbe5ec9bdf7e9bf1efa3962351efaf5cdb Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Fri, 11 May 2007 15:55:07 +0000 Subject: [PATCH] Correct an egregious typo in LiberateCase that emasculated it Somehow in the patch * Record-ise the liberate-case envt, in preparation for new stuff I managed to make lookupLevelEnv do entirely the wrong thing. I think it was just a typo. The result was that LiberateCase essentially never did anything any more. Easily fixed though! --- compiler/simplCore/LiberateCase.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/simplCore/LiberateCase.lhs b/compiler/simplCore/LiberateCase.lhs index 02a3fab..a7b613d 100644 --- a/compiler/simplCore/LiberateCase.lhs +++ b/compiler/simplCore/LiberateCase.lhs @@ -351,7 +351,7 @@ lookupRecId env id = lookupVarEnv (lc_rec_env env) id lookupLevel :: LibCaseEnv -> Id -> LibCaseLevel lookupLevel env id = case lookupVarEnv (lc_lvl_env env) id of - Just lvl -> lc_lvl env + Just lvl -> lvl Nothing -> topLevel freeScruts :: LibCaseEnv -- 1.7.10.4