From 41cde99ec6189dbecca6803a5aa4f6f18142e8ba Mon Sep 17 00:00:00 2001
From: Haskell Guy <haskell.guy@localhost>
Date: Tue, 26 May 2020 13:07:50 +0200
Subject: initial commit

---
 src/Ssb/Discovery.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/Ssb/Discovery.hs

(limited to 'src/Ssb/Discovery.hs')

diff --git a/src/Ssb/Discovery.hs b/src/Ssb/Discovery.hs
new file mode 100644
index 0000000..352020e
--- /dev/null
+++ b/src/Ssb/Discovery.hs
@@ -0,0 +1,22 @@
+-- | This module implements local discovery of Scuttlebutt peers.
+--
+-- https://ssbc.github.io/scuttlebutt-protocol-guide/#discovery
+
+module Ssb.Discovery where
+
+import           Protolude
+
+import           Ssb.Network
+import           Ssb.Identity
+
+-- | default Scuttlebutt Server Port
+defaultPort :: Port
+defaultPort = "8008"
+
+-- | Advertisement messages are emitted on the local network for discovery of
+-- peers.
+data Advertisement = Advertisement
+  { ipAddress :: Host
+  , port      :: Port
+  , publicKey :: PublicKey
+  } deriving (Eq)
-- 
cgit v1.2.3