WIP: a command (recurring announcements) (Part 3)

1 files changed, 4 insertions, 4 deletions

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