ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 11:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

treaty: pr fixup

Browse Source
This commit is contained in:
fang 2021-10-06 21:15:38 +04:00
parent d9267a62d8
commit e6d4f204d3
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/garden/app/treaty.hoon
View File

@ -107,7 +107,10 @@
:_(this (drop ~(safe-watch tr:cc [ship desk])))
::
[%treaties ~]
`this
:_ this
::NOTE this assumes that all treaties in sovereign are also
:: present in the treaties map
(fact-init:io (treaty-update:cg:cc %ini treaties))^~
::
[%alliance ~]
:_ this
@ -214,9 +217,8 @@
=: treaties (~(del by treaties) ship desk)
direct (~(del in direct) ship desk)
==
%- (slog leaf+"Withdrew from treaty {<ship>}/{<desk>}" u.p.sign)
%- (slog leaf+"treaty: withdrew from {<ship>}/{<desk>}" u.p.sign)
[gone:tr this]
::
%fact
?. =(%treaty-0 p.cage.sign) `this
@ -326,6 +328,10 @@
++ kick
(kick:io path ~)
++ give
:: notably gives on the /treaties path, like +give:tr does.
:: this should not give duplicate facts, because sovereign treaties
:: are handled in this core, not as "normal"/foreign treaties.
::
^- (list card)
=/ t=treaty (~(got by sovereign) desk)
:~ (fact:io (treaty-update:cg %add t) /treaties ~)