From 36821967be35f27401055d5b618f1cf2badb029c Mon Sep 17 00:00:00 2001
From: Joe Bryan <joemfb@gmail.com>
Date: Sun, 23 Apr 2023 02:01:50 -0400
Subject: [PATCH] tests: fixes $wail serialization in fine tests

---
 tests/sys/fine.hoon | 29 +++++++++--------------------
 1 file changed, 9 insertions(+), 20 deletions(-)

diff --git a/tests/sys/fine.hoon b/tests/sys/fine.hoon
index 51ec3ce4e..a36b1d4fd 100644
--- a/tests/sys/fine.hoon
+++ b/tests/sys/fine.hoon
@@ -41,29 +41,18 @@
           %cx  ``hoon+!>(kelvin)
       ==
     ::
-    ++  gum
-      ::~/  %gum
-      |=  biz=(list byts)
-      ^-  byts
-      :-  (roll biz |=([[wid=@ *] acc=@] (add wid acc)))
-      (can 3 biz)
-    ::
-    ++  etch-peep
-      |=  [=path num=@ud]
-      ^-  byts
-      ?>  (lth num (bex 32))
-      =+  pat=(spat path)
-      =+  wid=(met 3 pat)
-      %-  gum
-      :~  4^num       ::  fragment number
-          2^wid       ::  path size
-          wid^`@`pat  ::  namespace path
-      ==
-    ::
     ++  etch-request-content
       |=  [our=@p =path num=@ud]
       ^-  @
-      (lsh [3 64] dat:(etch-peep path num))
+      ?>  (lth num (bex 32))
+      =+  pat=(spat path)
+      =+  wid=(met 3 pat)
+      %+  can  3
+      :~  1^0         ::  tag byte
+          4^num       ::  fragment number
+          2^wid       ::  path size
+          wid^`@`pat  ::  namespace path
+      ==
     --
 ::
 |%