resCountToList :: ResourceCount -> [ResourceType]
resCountToList res = lumbers ++ wools ++ wheats ++ bricks ++ ores
  where lumbers = replicate (lumber res) Lumber
        wools = replicate (wool res) Wool
        wheats = replicate (wheat res) Wheat
        bricks = replicate (brick res) Brick
        ores = replicate (ore res) Ore
resCountToList :: ResourceCount -> [ResourceType]
resCountToList res = lumbers ++ wools ++ wheats ++ bricks ++ ores
  where lumbers = replicate (lumber res) Lumber
        wools = replicate (wool res) Wool
        wheats = replicate (wheat res) Wheat
        bricks = replicate (brick res) Brick
        ores = replicate (ore res) Ore
resCountToList res = lumbers ++ wools ++ wheats ++ bricks ++ ores
  where lumbers = replicate (lumber res) Lumber
        wools = replicate (wool res) Wool
        wheats = replicate (wheat res) Wheat
        bricks = replicate (brick res) Brick
        ores = replicate (ore res) Ore