diff --git a/src/Main.hs b/src/Main.hs index c893640..1e0554c 100644 --- 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"