genUniques' subst (CoreSyn.Lam bndr res) = do
-- Generate a new unique for the bound variable
(subst', bndr') <- genUnique subst bndr
genUniques' subst (CoreSyn.Lam bndr res) = do
-- Generate a new unique for the bound variable
(subst', bndr') <- genUnique subst bndr