From 20c6d8c2068490ce3b6e67f19f0cbdb9b0153a23 Mon Sep 17 00:00:00 2001
From: Joseph Bryan <joemfb@gmail.com>
Date: Wed, 26 Oct 2016 14:22:12 -0400
Subject: [PATCH] fixes mar/sole/effect, purging styles on json:grow

---
 mar/sole/effect.hoon | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/mar/sole/effect.hoon b/mar/sole/effect.hoon
index 080621fb8..36256c73d 100644
--- a/mar/sole/effect.hoon
+++ b/mar/sole/effect.hoon
@@ -31,6 +31,11 @@
   =+  rolt=|=(a/wall `tape`?~(a ~ ?~(t.a i.a :(weld i.a "\0a" $(a t.a)))))
   (rolt (turn (flop tan) |=(a/tank (rolt (wash 0^wid a)))))
 ::
+++  purge                                               ::  discard ++styx style
+  |=  a/styx  ^-  tape
+  %-  zing  %+  turn  a
+  |=  a/_?>(?=(^ a) i.a)
+  ?@(a (trip a) ^$(a q.a))
 --
 !:
 |_  sef/sole-effect
@@ -66,10 +71,12 @@
         $txt  (joba %txt (jape p.sef))
         $tan  (joba %tan (jape (wush 160 p.sef)))
         $det  (joba %det json:~(grow mar-sole-change +.sef))
-        $pro   
-      (joba %pro (jobe vis+b+vis.sef tag+s+tag.sef cad+(jape cad.sef) ~))
     ::
-        ?($bel $clr $nex)  
+        $pro
+      %+  joba  %pro
+      (jobe vis+b+vis.sef tag+s+tag.sef cad+(jape (purge cad.sef)) ~)
+    ::
+        ?($bel $clr $nex)
       (joba %act %s -.sef)
     ==
   --