refactor: remove unused restriction in allChords generation
This commit is contained in:
parent
b8f85fbbcf
commit
e16c6bbf7d
1 changed files with 0 additions and 1 deletions
1
Proj2.hs
1
Proj2.hs
|
|
@ -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
|
||||||
]
|
]
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue