split role-tape out of ++wush

arvo/eyre.hoon

@@ -237,11 +237,11 @@
   =+  fel=(most cab (sear wick urt:ab))
   |=(a/knot `(unit {p/term q/path})`(rush a fel))
 ::
+++  rolt  |=(a/wall `tape`?~(a ~ :(weld i.a "\0a" $(a t.a))))
 ++  wush
   |=  {wid/@u tan/tang}
-  ^-  tape
-  =+  rolt=|=(a/wall `tape`?~(a ~ :(weld i.a "\0a" $(a t.a))))
-  (rolt (zing (turn tan |=(a/tank (wash 0^wid a)))))
+  ^-  wall
+  (zing (turn tan |=(a/tank (wash 0^wid a))))
 ::
 ::
 ++  add-cookies
@@ -264,7 +264,7 @@
   =-  (jobe fail+s+typ mess+(jape mez) ~)
   ^-  {typ/term mez/tape}
   ?~  err  [%fail "Unknown Error"]
-  [p.u.err (wush 160 q.u.err)]
+  [p.u.err (rolt (wush 160 q.u.err))]
 ::
 ++  resp                                                ::  mimed response
   |=  {sas/@uG mit/mite rez/@}  ^-  httr
@@ -278,7 +278,7 @@
       ;link(rel "stylesheet", href "/lib/base.css");
       ;title: server error
     ==
-    ;body:div#c.err:pre:code:"{(wush 80 tan)}"
+    ;body:div#c.err:pre:code:"{(rolt (wush 80 tan))}"
     ;script@"/~/on/{<dep>}.js";
   ==
 ::
@@ -1847,7 +1847,7 @@
         ..lens  :: (give-json 200 ~ (joba %okey-dokey %b &))
       =+  tag=(flop `tang`[>[%eyre-lens-fail p.u.a]< q.u.a])
       %-  (slog tag)
-      (give-json:abet 500 ~ (jape (wush 160 tag)))
+      (give-json:abet 500 ~ (jape (rolt (wush 160 tag))))
     ::
     ++  get-diff
       |=  fec/json  ^+  ..lens