diff options
Diffstat (limited to 'src/LivingVillage.Kernel/WorldSave.fs')
| -rw-r--r-- | src/LivingVillage.Kernel/WorldSave.fs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/LivingVillage.Kernel/WorldSave.fs b/src/LivingVillage.Kernel/WorldSave.fs index 1ce1dcb..b327c6d 100644 --- a/src/LivingVillage.Kernel/WorldSave.fs +++ b/src/LivingVillage.Kernel/WorldSave.fs @@ -415,6 +415,10 @@ module WorldSave = | Occupation.NightCatch -> add tokens "night-catch" | Occupation.SellFish -> add tokens "sell-fish" | Occupation.MarketInquiry -> add tokens "market-inquiry" + | Occupation.BuyGoods -> add tokens "buy-goods" + | Occupation.Resell -> add tokens "resell" + | Occupation.ObserveNotes -> add tokens "observe-notes" + | Occupation.ReasonDebate -> add tokens "reason-debate" let private readTaskTemplateId (reader: TokenReader) label = match reader.Take(label) with @@ -424,6 +428,10 @@ module WorldSave = | "night-catch" -> Occupation.NightCatch | "sell-fish" -> Occupation.SellFish | "market-inquiry" -> Occupation.MarketInquiry + | "buy-goods" -> Occupation.BuyGoods + | "resell" -> Occupation.Resell + | "observe-notes" -> Occupation.ObserveNotes + | "reason-debate" -> Occupation.ReasonDebate | _ -> invalid (sprintf "invalid %s" label) let private writeTaskState tokens state = |