Announcer: Removed dead code (SearchFinished case).

1 files changed, 3 insertions, 10 deletions

diff --git a/Announcer.hs b/Announcer.hs
index 0a731efa..9558e3eb 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -58,7 +58,6 @@ unpackAnnounceKey _ (AnnounceKey bs) = return $ Char8.unpack bs
 data ScheduledItem
     = DeleteAnnouncement
     | NewAnnouncement (STM (IO ())) (IO ()) (IO ()) POSIXTime
-    | SearchFinished (IO ()) (IO ()) POSIXTime
     | Announce (STM (IO ())) (IO ()) POSIXTime
     | SearchResult (STM (IO ()))
     | StopAnnouncer
@@ -73,10 +72,9 @@ data ScheduledItem
 itemStatusNum :: ScheduledItem -> Int
 itemStatusNum (DeleteAnnouncement   ) = 0
 itemStatusNum (NewAnnouncement    {}) = 1
-itemStatusNum (SearchFinished     {}) = 2
-itemStatusNum (Announce           {}) = 3
-itemStatusNum (SearchResult       {}) = 4
-itemStatusNum (StopAnnouncer        ) = 5
+itemStatusNum (Announce           {}) = 2
+itemStatusNum (SearchResult       {}) = 3
+itemStatusNum (StopAnnouncer        ) = 4
 itemStatusNum _                       = error "itemStatusNum not in sync with ScheduledItem declaration."
 
 data Announcer = Announcer
@@ -294,11 +292,6 @@ performScheduledItem announcer now = \case
             hPutStrLn stderr $ "This print avoids negative-time future scheduling. Weird bug. TODO: fix it. "++show now
             announce
 
-    -- search finished:
-    --   if any of the current storing-nodes set have not been
-    --   announced to, announce to them.
-    (Binding _ (SearchFinished {- st -} search announce interval) _) -> return $ Just $ return ()
-
     (Binding _ (SearchResult action) _) -> Just <$> action