From c947f899e6c3d0519b7c50816c41eb5173ccfc5f Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Mon, 27 Sep 2021 14:20:44 -0400
Subject: [PATCH] -jam-all-desks: prevent recursive tempfile cancer

---
 pkg/arvo/lib/desk-jam.hoon | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/pkg/arvo/lib/desk-jam.hoon b/pkg/arvo/lib/desk-jam.hoon
index ce178ae851..4441d08393 100644
--- a/pkg/arvo/lib/desk-jam.hoon
+++ b/pkg/arvo/lib/desk-jam.hoon
@@ -4,10 +4,17 @@
   |=  [our=ship =desk now=@da]
   ~>  %slog.0^leaf/"jamming desk {<desk>}"
   %-  jam
+  %-  ?:(=(%base desk) remove-tmp-dir same)
   %-  ankh-to-map
   =<  ank
   .^(dome:clay %cv /(scot %p our)/[desk]/(scot %da now))
 ::
+++  remove-tmp-dir
+  |=  fiz=(map path page)
+  ^-  (map path page)
+  %-  ~(gas by *(map path page))
+  (skip ~(tap by fiz) |=([p=path *] ?=([%tmp *] p)))
+::
 ++  ankh-to-map
   =|  res=(map path page)
   =|  pax=path