From 1b6723071354779bed3d924e1650d57b6f54d25e Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Tue, 15 Sep 2015 10:50:30 -0700
Subject: [PATCH] tank handling

---
 mar/talk/telegrams.hoon | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mar/talk/telegrams.hoon b/mar/talk/telegrams.hoon
index 8f65092e1c..d8f3247cfb 100644
--- a/mar/talk/telegrams.hoon
+++ b/mar/talk/telegrams.hoon
@@ -218,7 +218,7 @@
       %+  ke  *torso  |.  ~+
       %-  of  :~
         name/(ot nom/so mon/tors ~) 
-        text/(cu lore so)
+        text/(ot dat/(cu lore so) ~)
         tank/(cu (hard (list tank)) blob)
       ==
     ::
@@ -245,6 +245,7 @@
       ==
     ::
     ++  jope  |=(a=ship (jape +:<a>)) ::[%s (crip +:(scow %p a))])
+    ++  joke  |=(a=tank [%s (role (turn (wash 0^80 a) crip))])
     ++  jode  |=(a=time (jone (div (mul (sub a ~1970.1.1) 1.000) ~s1)))
     ++  jome                                            ::  stringify keys
       |*  [a=_cord b=_json]
@@ -302,7 +303,7 @@
       %+  joba  -.a
       ?-  -.a
         %text  [%s (role +.a)]
-        %tank  (jape (sifo (jam +.a)))
+        %tank  (jobe txt/[%a (turn +.a joke)] dat/(jape (sifo (jam +.a))) ~)
         %name  (jobe nom/s/p.a mon/$(a q.a) ~)
       ==
     ::