From abd6674ae027b5f8fdc45f04f8b694d072b1c50c Mon Sep 17 00:00:00 2001
From: Tinnus Napbus <admin@tinnus-napbus.xyz>
Date: Mon, 30 Jan 2023 14:46:39 +1300
Subject: [PATCH] show-vat: fix +show-vat to work with wafts

---
 pkg/arvo/gen/show-vat.hoon | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/pkg/arvo/gen/show-vat.hoon b/pkg/arvo/gen/show-vat.hoon
index 922cc92bc..0d3d1d2b1 100644
--- a/pkg/arvo/gen/show-vat.hoon
+++ b/pkg/arvo/gen/show-vat.hoon
@@ -6,9 +6,15 @@
 :-  %tang
 %-  flop  ^-  tang
 =/  pax=path  /(scot %p p.bec)/[desk]/(scot %da now)
-=+  .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin))
+=/  welt=(list [@tas @ud])
+  =+  .^(=waft:clay cx+(weld pax /sys/kelvin))
+  %+  sort  ~(tap in (waft-to-wefts:clay waft))
+  |=  [a=weft b=weft]
+  ?:  =(lal.a lal.b)
+    (lte num.a num.b)
+  (lte lal.a lal.b)
 :~  '/sys/kelvin:'
-    leaf/"[{<lal>} {<num>}]"
+    (sell !>(welt))
     '/desk/bill:'
     (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
 ==