@@ -805,9 +805,9 @@ module private ProfitSummaryCalc =
805805 seedCostAndQuantity |> Array.sortInPlaceWith ( compareBy _. OpportunityCostPerSeed)
806806 seedCostAndQuantity
807807
808- let private partitionQuantitesForSeeds data settings crop seedPrice prices quantites harvests =
808+ let private partitionQuantitiesForSeeds data settings crop seedPrice prices quantities harvests =
809809 let items = Crop.items crop
810- let seedCostAndQuantity = seedCostAndQuantityData data settings crop seedPrice items prices quantites
810+ let seedCostAndQuantity = seedCostAndQuantityData data settings crop seedPrice items prices quantities
811811
812812 let quantitiesConsumedForSeeds = items |> Array.map ( fun _ -> Array.zeroCreate Quality.count)
813813 let mutable seedsLeft = float ( if Crop.regrows crop then 1 u else harvests)
@@ -820,7 +820,7 @@ module private ProfitSummaryCalc =
820820 i <- i + 1
821821
822822 let quantitiesConsumedForSeeds = quantitiesConsumedForSeeds |> Array.map Qualities.wrap
823- let soldQuantities = ( quantites , quantitiesConsumedForSeeds) ||> Array.map2 ( Qualities.map2 (-))
823+ let soldQuantities = ( quantities , quantitiesConsumedForSeeds) ||> Array.map2 ( Qualities.map2 (-))
824824 let quantitiesConsumedForSeeds =
825825 Array.zip items quantitiesConsumedForSeeds
826826 |> Array.filter ( fun ( _ , quantities ) -> quantities <> Qualities.zero)
@@ -835,7 +835,7 @@ module private ProfitSummaryCalc =
835835
836836 let soldQuantities , quantitiesForSeeds , seedsBought =
837837 if makeSeeds
838- then partitionQuantitesForSeeds data settings crop seedPrice prices quantities harvests
838+ then partitionQuantitiesForSeeds data settings crop seedPrice prices quantities harvests
839839 else quantities, [||], 0.0
840840
841841 let profit = profitCalc prices soldQuantities
0 commit comments