mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-23 08:28:26 +03:00
21 lines
624 B
Plaintext
21 lines
624 B
Plaintext
!:
|
|
:: /=try=/bin/merge/hoon
|
|
::
|
|
=> .(-< `who=@p`-<)
|
|
|= [est=time eny=@uw]
|
|
|= [pes=[ses=span des=span cas=span ~] pen=[sen=span den=span can=span ~] gem=$|([germ ~] ~)]
|
|
^- bowl
|
|
:_ ~
|
|
^- (list gift)
|
|
:_ ~
|
|
=+ vsr=((hard dome) .^(%cv pes))
|
|
=+ ves=((hard dome) .^(%cv pen))
|
|
=+ sab=`saba`[who den.pen [0 let.vsr] (flop (turn hit.vsr |=(a=frog q.a)))]
|
|
=+ lum=(~(auld ze est ves) est ?~(gem %fine -.gem) sab)
|
|
?~ lum
|
|
`gift`[%la %leaf "{(trip des.pes)} failed to merge, please rerun with a merge option"]
|
|
?~ u.lum
|
|
`gift`[%la %leaf "{(trip den.pen)} is up to date"]
|
|
~& [%ok den.pen u.u.lum]
|
|
`gift`[%ok den.pen u.u.lum]
|