Update harmonie.hs

Ajouté logique