add single case-sensitive Major option... for consideration

tidalcycles · Sep 22, 2021 · 5d7a122 · 5d7a122
1 parent d66c05e
commit 5d7a122
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Sound/Tidal/Chords.hs b/src/Sound/Tidal/Chords.hs
@@ -141,6 +141,7 @@ minor11sharp = [0,3,7,10,14,18]
 chordTable :: Num a => [(String, [a])]
 chordTable = [("major", major),
               ("maj", major),
+              ("M", major),
               ("aug", aug),
               ("plus", aug),
               ("sharp5", aug),