From 5147d7de48e31a836d61eadd737215035d027d82 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 11 Dec 2017 18:26:44 -0800
Subject: [PATCH] send real &womb-invite's from :ask

"reference" field was missing
---
 app/ask.hoon | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/app/ask.hoon b/app/ask.hoon
index 8d390342c..dba60eb13 100644
--- a/app/ask.hoon
+++ b/app/ask.hoon
@@ -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)}" ""]]
 --