adonis, amova and haplotype frequency

Dear All,

I'd like to perform adonis (from the vegan package) rather than amova
(in ade4) on some haplotype data, as I have crossed factors. Is there a
simple way to tweak the source to allow weights (haplotype frequencies)
in a similar way to amova?

Best
Simon