/-  *btc, bws=btc-wallet-store, bp=btc-provider
|%
::  req-id: hash of [xpub chyg idx]
::  pend: lookup of req-id -> requests from wallet-store
::
::  payment: a payment expected from another ship
::    - address: address generated for this payment
::  piym: incoming payments. Stores all ship moons under their planet.
::  poym: the current outgoing payment (one at a time only)
::  piym-watch/poym-watch:
::   let us link an address back to its incoming/outgoing payment
::   checked when address updates come from btc-wallet-store
::
+$  btc-state  [blockcount=@ud fee=sats t=@da]
+$  pend-addr  (map req-id:bp request:bws)
::
+$  payment  [=address payer=ship value=sats]
::
+$  piym  (jar ship payment)
+$  poym  [payee=(unit ship) =txbu:bws]
+$  piym-watch  (map address ship)
+$  poym-watch  (map address ship)
::
+$  action
  $%  [%set-provider provider=ship]
      [%set-default-wallet ~]
      [%req-pay-address payee=ship value=sats]
      [%ret-pay-address =address payer=ship value=sats]
      [%force-retry ~]
  ==
--