urbit/try/bin/merge.hoon
2014-05-30 15:59:58 -07:00

32 lines
756 B
Plaintext

!:
:: /=try=/bin/merge/hoon
:: Call with two desks and an optional germ as a merge option
::
=> .(-< `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 :*
(need (slaw 'p' sen.pen))
den.pen
[0 let.vsr]
(flop (turn hit.vsr |=(a=frog q.a)))
==
=+ lum=(~(auld ze est ves) ?~(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"]
`gift`[%ok den.pen u.u.lum]