1
0
forked from GitHub/gf-core

the newName variable wasn't used and now it is removed

This commit is contained in:
kr.angelov
2006-06-21 13:45:45 +00:00
parent abe5b1f50f
commit fb3cb664d6

View File

@@ -88,7 +88,6 @@ convertRule selector (Rule (Abs decl decls (Name fun profile)) (Cnc ctype ctypes
accumProf nr (_ ,xpaths) = (nr+cnt+1, Unify [nr..nr+cnt])
where cnt = length xpaths
newName = Name fun (profile `composeProfiles` newProfile)
rule = FRule (Abs newCat newArgs (Name fun newProfile)) newLinRec
in addFCatRule env2 rule
convertRule selector _ frulesEnv = frulesEnv