Skip to content

Commit

Permalink
Merge pull request #3181 from tloncorp/kelvin-411
Browse files Browse the repository at this point in the history
Kelvin 411
  • Loading branch information
arthyn committed Jan 16, 2024
2 parents 5dc4f82 + 1f01a1d commit 68de438
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 3 deletions.
6 changes: 3 additions & 3 deletions desk/app/groups.hoon
Original file line number Diff line number Diff line change
Expand Up @@ -939,7 +939,7 @@
`nest
=. zone-ord.group (~(push of zone-ord.group) %default)
=. fleet.group
%- ~(rut by fleet.group)
%- ~(urn by fleet.group)
|= [=ship =vessel:fleet:g]
?. (~(has in admins) ship)
vessel
Expand Down Expand Up @@ -1564,7 +1564,7 @@
=. sects.diff (~(int in sects.diff) ~(key by cabals.group))
?: =(~ sects.diff) go-core
=. fleet.group
%- ~(rut by fleet.group)
%- ~(urn by fleet.group)
|= [=ship =vessel:fleet:g]
?. (~(has in ships) ship) vessel
vessel(sects (~(uni in sects.vessel) sects.diff))
Expand Down Expand Up @@ -1601,7 +1601,7 @@
?> go-is-bloc
?: &(has-host (~(has in sects.diff) 'admin')) go-core
=. fleet.group
%- ~(rut by fleet.group)
%- ~(urn by fleet.group)
|= [=ship =vessel:fleet:g]
?. (~(has in ships) ship) vessel
vessel(sects (~(dif in sects.vessel) sects.diff))
Expand Down
1 change: 1 addition & 0 deletions desk/sys.kelvin
Original file line number Diff line number Diff line change
@@ -1 +1,2 @@
[%zuse 412]
[%zuse 411]
1 change: 1 addition & 0 deletions talk/sys.kelvin
Original file line number Diff line number Diff line change
@@ -1 +1,2 @@
[%zuse 412]
[%zuse 411]

0 comments on commit 68de438

Please sign in to comment.