1 files changed, 4 insertions, 4 deletions

diff --git a/Announcer.hs b/Announcer.hs
index 2d2c2197..babfce06 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -11,13 +11,13 @@ forkAnnouncer = return Announcer
 stopAnnouncer :: Announcer -> IO ()
 stopAnnouncer _ = return ()
 
-data AnnounceMethod ni r info = forall nid addr tok. AnnounceMethod
+data AnnounceMethod ni = forall nid addr r tok a. AnnounceMethod
     { aSearch  :: Search nid addr tok ni r
-    , aPublish :: info -> Maybe ni -> IO (Maybe r)
+    , aPublish :: (r,tok) -> Maybe ni -> IO (Maybe a)
     }
 
-schedule :: Announcer -> AnnounceMethod ni r info -> info -> IO ()
+schedule :: Announcer -> AnnounceMethod ni -> info -> IO ()
 schedule _ _ _ = return ()
 
-cancel :: Announcer -> AnnounceMethod ni r info -> info -> IO ()
+cancel :: Announcer -> AnnounceMethod ni -> info -> IO ()
 cancel _ _ _ = return ()