Support chords written in upper case

ad-si · Nov 20, 2023 · c73c423 · c73c423
1 parent ea8eac4
commit c73c423
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -34,7 +34,7 @@ import Protolude as P (
 
 import Data.List.Index (imap, setAt)
 import Data.Map.Strict as Map (Map, fromList, lookup)
-import Data.Text as Text (Text, intercalate, pack)
+import Data.Text as Text (Text, intercalate, pack, toLower)
 
 import GeneralTypes (
   Interval (..),
@@ -141,7 +141,7 @@ chordToPlayedInsts chord instrument =
     maybeInst = do
       frettings <-
         archaicToFretting
-          & Map.lookup (mapChordToHarmonicEquivalent chord)
+          & Map.lookup (chord & toLower & mapChordToHarmonicEquivalent)
       pure $ fmap instrument frettings
     errorMessage =
       "There is no fretting available for the specified chord"