From 23767c2ebc53a2853c0065e727c3bbbf40cd5a83 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 30 Oct 2017 18:06:49 -0400 Subject: WIP: a command (recurring announcements) (Part 3) --- Announcer.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Announcer.hs') 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 () -- cgit v1.2.3