refactor construct_haplotypes - move single technique out