preferLocals
    :: R.Region
    -> Env.Environment
    -> String
    -> [Var.Canonical]
    -> String
    -> Result.ResultErr Var.Canonical
preferLocals region env =
  preferLocals' region env id
preferLocals
    :: R.Region
    -> Env.Environment
    -> String
    -> [Var.Canonical]
    -> String
    -> Result.ResultErr Var.Canonical
preferLocals region env =
  preferLocals' region env id
preferLocals region env =
  preferLocals' region env id