Get rid of +*this for now.
reqs=(list (pair (unit @t) request)) :: rpc requests
wir=wire :: wire for reqs
==
- +* this .
::
++ ta-save
^- (quip move _+>)
::
++ ta-read-ships
|= who=(list @p)
- ?~ who this
- $(who t.who, this (ta-read %ships i.who))
+ ?~ who +>
+ =. +> (ta-read %ships i.who)
+ $(who t.who)
::
::
++ ta-new-filter
::
++ ta-init-results
|= rep=response:json-rpc
- ^+ this
+ ^+ +>
?> ?=(%batch -.rep)
=. wir /init
|- ^+ +>.^$
