From 7e510d66ec67e4dabd213a60e6e75d4869f70e1c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 3 May 2008 19:14:50 +0000 Subject: [PATCH] Remove unused function mapInScopeSet --- compiler/basicTypes/VarEnv.lhs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/compiler/basicTypes/VarEnv.lhs b/compiler/basicTypes/VarEnv.lhs index 8274661..4c31b24 100644 --- a/compiler/basicTypes/VarEnv.lhs +++ b/compiler/basicTypes/VarEnv.lhs @@ -23,7 +23,6 @@ module VarEnv ( extendInScopeSet, extendInScopeSetList, extendInScopeSetSet, modifyInScopeSet, getInScopeVars, lookupInScope, elemInScopeSet, uniqAway, - mapInScopeSet, -- RnEnv2 and its operations RnEnv2, mkRnEnv2, rnBndr2, rnBndrs2, rnOccL, rnOccR, inRnEnvL, inRnEnvR, @@ -92,9 +91,6 @@ modifyInScopeSet (InScope in_scope n) old_v new_v = InScope (extendVarEnv in_sco delInScopeSet :: InScopeSet -> Var -> InScopeSet delInScopeSet (InScope in_scope n) v = InScope (in_scope `delVarEnv` v) n -mapInScopeSet :: (Var -> Var) -> InScopeSet -> InScopeSet -mapInScopeSet f (InScope in_scope n) = InScope (mapVarEnv f in_scope) n - elemInScopeSet :: Var -> InScopeSet -> Bool elemInScopeSet v (InScope in_scope _) = v `elemVarEnv` in_scope -- 1.7.10.4