From 5d9ef4f87258401368b27e4981d68256076f4299 Mon Sep 17 00:00:00 2001
From: Fang <fang@fang.io>
Date: Thu, 3 May 2018 17:16:22 +0200
Subject: [PATCH] Make sure filter id actually persists.

---
 app/constitution.hoon | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/app/constitution.hoon b/app/constitution.hoon
index 7356f91061..06c01a5495 100644
--- a/app/constitution.hoon
+++ b/app/constitution.hoon
@@ -23,6 +23,7 @@
 ++  delta
   $?  diff-constitution
   $%  [%checking who=@p part=(unit hull)]
+      [%filter id=@ud]
   ==  ==
 ::
 ::
@@ -62,7 +63,7 @@
   |=  [b=bone s=ship p=path]
   ^-  (unit move)
   ?.  ?=([%state *] p)  ~
-  ?:  ?=(%checking -.det)  ~
+  ?:  ?=(?(%checking %filter) -.det)  ~
   `[b %diff %constitution-diff det]
 ::
 ++  ta
@@ -170,8 +171,9 @@
     ?:  ?=(%error -.rep)
       ~&  [%filter-error--retrying message.rep]
       ta-new-filter
-    =.  filter  (parse-eth-new-filter-res res.rep)
-    ta-read-filter
+    =+  fit=(parse-eth-new-filter-res res.rep)
+    =.  +>.$  (ta-change %filter fit)
+    ta-read-filter(filter fit)
   ::
   ++  ta-take-filter-results
     |=  rep=response:json-rpc
@@ -377,6 +379,7 @@
       %dns        (da-change-dns +.det)
       %heard      (da-add-heard +.det)
       %checking   (da-change-checking +.det)
+      %filter     (da-change-filter +.det)
     ==
   ::
   ++  da-change-hull
@@ -421,6 +424,10 @@
     =-  +>.$(checking -)
     ?~  tmp  (~(del by checking) who)
     (~(put by checking) who u.tmp)
+  ::
+  ++  da-change-filter
+    |=  id=@ud
+    +>(filter id)
   --
 ::
 ++  hull-from-eth