-- For the given list of tuples of (row, color, numCombo), generate
-- a bunch of RLE combos for the given column
mkRowCombo :: [(Int, TileColor, Int)] -> Int -> [(Combo, Int)]
mkRowCombo l col = map (\(row, t, n) -> (((row, col), t), n)) l
mkRowCombo :: [(Int, TileColor, Int)] -> Int -> [(Combo, Int)]
mkRowCombo l col = map (\(row, t, n) -> (((row, col), t), n)) l
mkRowCombo l col = map (\(row, t, n) -> (((row, col), t), n)) l