refactor: remove unused restriction in allChords generation

This commit is contained in:
wi11-holdsworth 2025-10-08 15:25:33 +11:00
parent b8f85fbbcf
commit e16c6bbf7d

View file

@ -241,7 +241,6 @@ allChords =
p2 <- allPitches, p2 <- allPitches,
p3 <- allPitches, p3 <- allPitches,
let chord = [p1, p2, p3], let chord = [p1, p2, p3],
length chord == 3,
p1 < p2, p1 < p2,
p2 < p3 p2 < p3
] ]