sortGroupsByName :: [(String, [TimedChordProgression])] -> [(String, [TimedChordProgression])]
sortGroupsByName = sortBy (compareBy fst)
sortGroupsByName :: [(String, [TimedChordProgression])] -> [(String, [TimedChordProgression])]
sortGroupsByName = sortBy (compareBy fst)
sortGroupsByName = sortBy (compareBy fst)