mirror of
https://github.com/urbit/shrub.git
synced 2024-12-29 15:14:17 +03:00
kiln: don't implicitly create syncs
Also silence some spurious errors.
This commit is contained in:
parent
0301838f25
commit
42de999024
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:0b727bafa4d479d0cb6df411b7f414132a2c1d05fd415ec4d606cb43747dfc58
|
||||
size 16662916
|
||||
oid sha256:9210b8244f5cd76654c3e8546f77dfa88a500e14ba0e593ededef318fd9d0f32
|
||||
size 16948743
|
||||
|
@ -329,7 +329,10 @@
|
||||
++ poke-syncs :: print sync config
|
||||
|= ~
|
||||
=< abet %- spam
|
||||
:- [%leaf "OTAs from {<ota>}"]
|
||||
:- :- %leaf
|
||||
?~ ota
|
||||
"OTAs disabled"
|
||||
"OTAs from {<desk.u.ota>} on {<ship.u.ota>}"
|
||||
?: =(0 ~(wyt by syn))
|
||||
[%leaf "no syncs configured"]~
|
||||
%+ turn ~(tap in ~(key by syn))
|
||||
@ -443,7 +446,8 @@
|
||||
?>(?=(%wake +<.sign-arvo) +>.sign-arvo)
|
||||
[%ota *] abet:(take:update t.wire sign-arvo)
|
||||
*
|
||||
?+ +<.sign-arvo ~|([%kiln-bad-take-card +<.sign-arvo wire] !!)
|
||||
?+ +<.sign-arvo
|
||||
((slog leaf+"kiln: strange card {<+<.sign-arvo wire>}" ~) abet)
|
||||
%done %+ done wire
|
||||
?>(?=(%done +<.sign-arvo) +>.sign-arvo)
|
||||
%mere %+ take-mere wire
|
||||
@ -472,6 +476,8 @@
|
||||
her=(slav %p i.t.way)
|
||||
sud=(slav %tas i.t.t.way)
|
||||
==
|
||||
?. (~(has by syn) hos)
|
||||
abet
|
||||
abet:abet:(mere:(auto hos) mes)
|
||||
::
|
||||
++ take-writ-find-ship ::
|
||||
@ -482,6 +488,8 @@
|
||||
her=(slav %p i.t.way)
|
||||
sud=(slav %tas i.t.t.way)
|
||||
==
|
||||
?. (~(has by syn) hos)
|
||||
abet
|
||||
abet:abet:(take-find-ship:(auto hos) rot)
|
||||
::
|
||||
++ take-writ-sync ::
|
||||
@ -492,6 +500,8 @@
|
||||
her=(slav %p i.t.way)
|
||||
sud=(slav %tas i.t.t.way)
|
||||
==
|
||||
?. (~(has by syn) hos)
|
||||
abet
|
||||
abet:abet:(writ:(auto hos) rot)
|
||||
::
|
||||
++ take-wake-autocommit
|
||||
|
@ -4365,7 +4365,9 @@
|
||||
::
|
||||
%boon !!
|
||||
%lost !!
|
||||
%writ !!
|
||||
%writ
|
||||
%- (slog leaf+"clay: strange writ (expected on upgrade to Fusion)" ~)
|
||||
[~ ..^$]
|
||||
::
|
||||
%done
|
||||
?~ error=error.q.hin
|
||||
|
Loading…
Reference in New Issue
Block a user