anchor.diff:                  let battle = Battle.updateCurrentCommandOpt (constant None) battle
                   withMsgs [ResetCharacter sourceIndex; PoiseCharacter sourceIndex] battle
   
  -        static let rec updateWound targetIndexOpt time battle =
  +        let rec private updateWound targetIndexOpt time battle =
               match targetIndexOpt with
               | Some targetIndex ->
                   let character = Battle.getCharacter targetIndex battle
  
positive.code:                 let battle = Battle.updateCurrentCommandOpt (constant None) battle
                  just battle
  
          static let updateConsume consumable sourceIndex (targetIndexOpt : CharacterIndex option) time timeLocal battle =
              match Battle.tryGetCharacter sourceIndex battle with
              | Some source when source.IsHealthy ->
                  match targetIndexOpt with
  
negative.code:                                 | Tech _ -> TechMenu
                                  | Consume _ -> ItemMenu
                                  | Wound -> failwithumf ()
                              Character.updateInputState (constant inputState) character // TODO: go through Battle API.
                          | None -> character)
                          characterIndex
                          battle
  