fixes mar/sole/effect, purging styles on json:grow

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)
     ==
   --