bad-invite error message

This commit is contained in:
Anton Dyudin 2016-07-05 13:18:08 -07:00
parent 8c963c06f1
commit a6d6a88857

View File

@ -626,7 +626,7 @@
++ invite-from :: traced invitation
|= {hiz/(list mail) tid/cord inv/invite} ^+ +>
?> |(=(our src) =([~ src] boss)) :: priveledged
=+ pas=`passcode`(slav %uv tid)
=+ pas=~|(bad-invite+tid `passcode`(slav %uv tid))
?: (~(has by bureau) pas)
~|([%duplicate-passcode pas who.inv replay=replay] !!)
=. bureau (~(put by bureau) pas [pla.inv sta.inv who.inv hiz])