send real &womb-invite's from :ask

"reference" field was missing
This commit is contained in:
Anton Dyudin 2017-12-11 18:26:44 -08:00
parent 44e9e16916
commit 5147d7de48

View File

@ -7,7 +7,7 @@
|%
++ card
$% {$diff $sole-effect sole-effect}
{$poke wire {ship $hood} $womb-invite {cord:hood-womb invite:hood-womb}}
{$poke wire {ship $hood} $womb-invite ,=,(hood-womb {cord reference invite})}
==
++ invited ?($new $sent $ignored)
++ email @t
@ -154,7 +154,8 @@
^- card
:^ %poke /invite/(scot %t ask) [(need wom) %hood]
:- %womb-invite
^- [cord:hood-womb invite:hood-womb]
=, hood-womb
^- [cord reference invite]
=+ inv=(scot %uv (end 7 1 eny.bow))
[inv [ask 1 0 "You have been invited to Urbit: {(trip inv)}" ""]]
[inv ~ [ask 1 0 "You have been invited to Urbit: {(trip inv)}" ""]]
--