Production and evaluation of haploids for potato breeding at the diploid level