1 files changed, 23 insertions, 0 deletions

diff --git a/Announcer.hs b/Announcer.hs
new file mode 100644
index 00000000..2d2c2197
--- /dev/null
+++ b/Announcer.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE ExistentialQuantification #-}
+module Announcer where
+
+import Network.Kademlia.Search
+
+data Announcer = Announcer
+
+forkAnnouncer :: IO Announcer
+forkAnnouncer = return Announcer
+
+stopAnnouncer :: Announcer -> IO ()
+stopAnnouncer _ = return ()
+
+data AnnounceMethod ni r info = forall nid addr tok. AnnounceMethod
+    { aSearch  :: Search nid addr tok ni r
+    , aPublish :: info -> Maybe ni -> IO (Maybe r)
+    }
+
+schedule :: Announcer -> AnnounceMethod ni r info -> info -> IO ()
+schedule _ _ _ = return ()
+
+cancel :: Announcer -> AnnounceMethod ni r info -> info -> IO ()
+cancel _ _ _ = return ()