-- | 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)