simplifies |syncs

This commit is contained in:
Joseph Bryan 2016-09-08 13:07:55 -04:00
parent 2433a3f101
commit a4a5b133c6

View File

@ -119,15 +119,13 @@
abet:(spam (render "already syncing" [sud her syd]:hos) ~)
abet:abet:(start-sync:(auto hos) |)
::
++ poke-syncs ::
++ poke-syncs :: print sync config
|= $~
=< abet %- spam
=+ a=(~(tap by syn))
?: =(0 (lent a))
?: =(0 ~(wyt by syn))
[%leaf "no syncs configured"]~
%- flop %+ turn a
|= a/(pair kiln-sync *)
(render "sync configured" [sud her syd]:p.a)
%+ turn (~(tap in ~(key by syn)))
|=(a/kiln-sync (render "sync configured" [sud her syd]:a))
::
++ poke-init-sync
|= hos/kiln-sync