sortGroupsBySize :: [(String, [TimedChordProgression])] -> [(String, [TimedChordProgression])]
sortGroupsBySize = sortBy (compareBy (length . snd))
sortGroupsBySize :: [(String, [TimedChordProgression])] -> [(String, [TimedChordProgression])]
sortGroupsBySize = sortBy (compareBy (length . snd))
sortGroupsBySize = sortBy (compareBy (length . snd))