1 files changed, 4 insertions, 3 deletions

diff --git a/Announcer.hs b/Announcer.hs
index f19f8d46..2f0eca10 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -64,7 +64,7 @@ stopAnnouncer announcer = do
     interruptDelay (interrutible announcer)
     atomically $ readTVar (announcerActive announcer) >>= check . not
 
-data AnnounceMethod r = forall nid ni addr tok a.
+data AnnounceMethod r = forall nid ni sr addr tok a.
                         ( Show nid
                         , Hashable nid
                         , Hashable ni
@@ -72,7 +72,7 @@ data AnnounceMethod r = forall nid ni addr tok a.
                         , Ord nid
                         , Ord ni
                         ) => AnnounceMethod
-    { aSearch  :: Search nid addr tok ni r
+    { aSearch  :: Search nid addr tok ni sr
     , aPublish :: r -> tok -> Maybe ni -> IO (Maybe a)
     , aBuckets :: TVar (R.BucketList ni)
     , aTarget  :: nid
@@ -86,7 +86,8 @@ schedule announcer k AnnounceMethod{aSearch,aPublish,aBuckets,aTarget,aInterval}
             is <- atomically $ do
                 bs <- readTVar (searchInformant st {- :: TVar (MinMaxPSQ' ni nid tok -})
                 return $ MM.toList bs
-            forM_ is $ \(Binding ni tok _) -> do
+            forM_ is $ \(Binding ni mtok _) -> do
+            forM_ mtok $ \tok -> do
             aPublish r tok (Just ni)
             return ()
         onResult _ = return True -- action for each search-hit (True = keep searching)