urbit/pkg/arvo/gen/aqua/snap-fleet.hoon

9 lines
236 B
Plaintext
Raw Normal View History

2019-03-07 10:31:14 +03:00
/- aquarium
=, aquarium
:- %say
|= [[now=@da eny=@uvJ bec=beak] [label=@ta] ships=(list ship)]
:- %aqua-events
=? ships ?=(~ ships)
.^((list ship) %gx /(scot %p p.bec)/aqua/(scot %da now)/ships/noun)
[%snap-ships label ships]~