various: cleanup unnecessary sigpams

This commit is contained in:
Liam Fitzgerald 2020-07-08 11:37:15 +10:00
parent 28c35d8715
commit c139332a55
5 changed files with 0 additions and 7 deletions

View File

@ -82,7 +82,6 @@
=| cards=(list card)
|-
?: ?=(%3 -.old)
~& cards
[cards this(state old)]
?: ?=(%2 -.old)
=. cards

View File

@ -132,7 +132,6 @@
(~(uni in members) group)
?> ?=(^ pax)
=/ rid=resource
~& t.pax
(resource-from-old-path t.pax)
=/ =tags
(~(put ju *tags) %admin entity.rid)

View File

@ -120,7 +120,6 @@
%- ~(run in indices)
|= [=group-path =app-path]
:- (new-group-path group-path)
~& app
?. =(%chat app)
app-path
(new-app-path app-path)

View File

@ -44,9 +44,7 @@
|* map=(map path *)
=/ keys=(list path)
(skim ~(tap in ~(key by map)) |=(=path =('~' (snag 0 path))))
~& keys
|-
~& map
?~ keys
map
=* key i.keys
@ -331,7 +329,6 @@
^- $-(json ^update)
|= jon=json
^- ^update
=- ~& - -
%. jon
%- of
:~

View File

@ -164,7 +164,6 @@
?. ?=(%store i.t.t.wire)
(on-agent:def wire sign)
?+ -.sign (on-agent:def wire sign)
%watch-ack ~& sign [~ this]
%kick [~[watch-store:hc] this]
::
%fact