ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-26 00:12:28 +03:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/gen/hood/install.hoon
View File

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

4
pkg/arvo/lib/hood/kiln.hoon
View File

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