-- Take a RLE condensed combo and expand it into a list of Combos
expandRows :: (Combo, Int) -> [Combo]
expandRows (((x, y), color), num) = [((col, y), color) | col <- [(x-num+1)..x]]
expandRows :: (Combo, Int) -> [Combo]
expandRows (((x, y), color), num) = [((col, y), color) | col <- [(x-num+1)..x]]
expandRows (((x, y), color), num) = [((col, y), color) | col <- [(x-num+1)..x]]