genericHarborDiscount :: Int -> Set HarborDiscount
genericHarborDiscount i
  = Set.fromList $ map (mkDiscount i) [Lumber, Wool, Wheat, Brick, Ore]
genericHarborDiscount :: Int -> Set HarborDiscount
genericHarborDiscount i
  = Set.fromList $ map (mkDiscount i) [Lumber, Wool, Wheat, Brick, Ore]
genericHarborDiscount i
  = Set.fromList $ map (mkDiscount i) [Lumber, Wool, Wheat, Brick, Ore]