From 95f27d4a7b7132ae1dc0f5419ae3d86803b079f0 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Thu, 16 Apr 2020 09:38:34 -0400
Subject: [PATCH] ford-fusion: +run-pact compiles

---
 pkg/arvo/sys/vane/clay.hoon | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon
index ed0d088262..9bf62018a6 100644
--- a/pkg/arvo/sys/vane/clay.hoon
+++ b/pkg/arvo/sys/vane/clay.hoon
@@ -2929,7 +2929,10 @@
     ++  run-pact
       |=  [old=page diff=page]
       ^-  [cage state]
-      !!
+      =^  dys=dais  nub  (get-mark p.old)
+      =^  syd=dais  nub  (get-mark p.diff)
+      :_(nub [p.old (~(pact dys (vale:dys q.old)) (vale:syd q.diff))])
+    ::
     ++  build-file
       |=  =path
       ~|  %error-building^path