anchor.diff:                                  Inventory.indexItems |>
                                   Seq.choose
                                       (function
  -                                     | (_, Equipment _ as item) -> Some item
  -                                     | (_, Consumable _ as item) -> Some item
  -                                     | (_, KeyItem _) -> None
  -                                     | (_, Stash _) -> None) |>
  +                                     | (_, Equipment _ as item) | (_, Consumable _ as item) -> Some item
  +                                     | (_, KeyItem _) | (_, Stash _) -> None) |>
                                   Seq.chunkBySize 10 |>
                                   Seq.trySkip shopModel.ShopPage |>
                                   Seq.map List.ofArray |>
  
positive.code:         | UpdateDialog
          | UpdatePortal
          | UpdateSensor
          | ShopPageUp
          | ShopPageDown
          | ShopConfirmPrompt of bool * Lens<int * ItemType, World>
          | ShopConfirmAccept
          | ShopConfirmDecline
          | ShopLeave
  
negative.code:             just model
  
          static let interactShopkeep shopType (model : FieldModel) =
              let shopModel = { ShopType = shopType; ShopState = ShopBuying; ShopPage = 0; ShopConfirmModelOpt = None }
              let model = FieldModel.updateShopModelOpt (constant (Some shopModel)) model
              just model
  
  