diff --git a/Proj2.hs b/Proj2.hs index 31a5ad5..89ea132 100644 --- a/Proj2.hs +++ b/Proj2.hs @@ -229,7 +229,7 @@ allChords = p2 <- allPitches, p3 <- allPitches, let chord = [p1, p2, p3], - length (nub chord) == 3, + length chord == 3, p1 < p2, p2 < p3 ]