publish: allow crash case to no-op instead

This commit is contained in:
Isaac Visintainer 2020-05-04 20:55:41 -06:00
parent 3196179fbd
commit da5f78df18

View File

@ -1857,8 +1857,9 @@
:: ::
%remove %remove
=/ app-path [(scot %p author.del) /[book.del]] =/ app-path [(scot %p author.del) /[book.del]]
=/ group-path (group-from-book app-path) =/ group-path=(unit path) (group-from-book app-path)
[(metadata-poke [%remove group-path [%publish app-path]])]~ ?~ group-path ~
[(metadata-poke [%remove u.group-path [%publish app-path]])]~
== ==
:: ::
++ add ++ add
@ -1884,11 +1885,11 @@
:: ::
++ group-from-book ++ group-from-book
|= app-path=path |= app-path=path
^- path ^- (unit path)
?. .^(? %gu (scot %p our.bol) %metadata-store (scot %da now.bol) ~) ?. .^(? %gu (scot %p our.bol) %metadata-store (scot %da now.bol) ~)
?: ?=([@ ^] app-path) ?: ?=([@ ^] app-path)
~& [%assuming-ported-legacy-publish app-path] ~& [%assuming-ported-legacy-publish app-path]
[%'~' app-path] `[%'~' app-path]
~| [%weird-publish app-path] ~| [%weird-publish app-path]
!! !!
=/ resource-indices =/ resource-indices
@ -1899,8 +1900,10 @@
(scot %da now.bol) (scot %da now.bol)
/resource-indices /resource-indices
== ==
=/ groups=(set path) (~(got by resource-indices) [%publish app-path]) =/ groups=(unit (set path))
(snag 0 ~(tap in groups)) (~(get by resource-indices) [%publish app-path])
?~ groups ~
`(snag 0 ~(tap in u.groups))
-- --
:: ::
++ metadata-hook-poke ++ metadata-hook-poke