Merge pull request #6199 from urbit/philip/install-once

kiln: add `once` flag to |install
This commit is contained in:
Philip Monk 2023-01-17 14:55:55 -07:00 committed by GitHub
commit 427e219b5b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 5 additions and 3 deletions

View File

@ -8,7 +8,7 @@
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[her=@p rem=desk ~] local=@tas]
[[her=@p rem=desk ~] local=@tas once=_|]
==
=/ loc=desk ?:(=(%$ local) rem local)
[%kiln-install loc her rem]
[%kiln-install loc her rem once]

View File

@ -687,7 +687,7 @@
abet:(emit:(spam leaf+mez ~) %pass /kiln %arvo %c [%info u.tor])
::
++ poke-install
|= [loc=desk her=ship rem=desk]
|= [loc=desk her=ship rem=desk once=?]
=+ .^(=rock:tire %cx /(scot %p our)//(scot %da now)/tire)
=/ =zest
?~ got=(~(get by rock) loc)
@ -703,6 +703,8 @@
abet:(spam (render "already syncing" loc her rem ~) ~)
?: =([our loc] [her rem])
abet
?: once
abet:abet:(merge:(work loc) her rem da+now %only-that)
=/ sun (sync loc her rem)
~> %slog.(fmt "beginning install into {here:sun}")
=< abet:abet:init