-- | This module implements Scuttlebutt Peers
--
-- https://ssbc.github.io/scuttlebutt-protocol-guide/#peer-connections

module Ssb.Peer where

import           Protolude               hiding ( Identity )
import           Control.Arrow ((***))
import qualified Data.ByteString.Base64        as Base64
import qualified Network.Simple.TCP            as TCP
import qualified Data.Text as Text

import           Ssb.Identity
import           Ssb.Network
import qualified Ssb.Peer.SecretHandshake      as SH
import qualified Ssb.Peer.RPC                  as RPC

-- | TODO: Is there a standard way to re-export types?
type NetworkIdentifier = SH.NetworkIdentifier

-- | mainNet is the default Network where one will find most scuttlebutt
-- traffic.
mainNet :: NetworkIdentifier
mainNet = Base64.decodeLenient "1KHLiKZvAvjbY1ziZEHMXawbCEIM6qwjCDm3VYRan/s="

-- TODO: Perfect MultiAddress implementation

data MultiAddress = MultiAddress
    { protocol :: Text
    , host     :: Host
    , port     :: Port
    , key      :: PublicKey
    } deriving (Eq, Show)

id :: MultiAddress -> Identity
id ma = Identity Nothing (key ma)

parseMultiAddress :: Text -> Either Text MultiAddress
parseMultiAddress txt = do
    let (protocol, postProtocol) = split ":" txt
    let (addressPort, postAddress) = split "~" postProtocol
    let (address, port) = splitOnEnd ":" addressPort
    let (hashType, key) = split ":" postAddress
    return MultiAddress
      { protocol = protocol
      , host = address
      , port = port
      , key  = PublicKey $ Base64.decodeLenient $ encodeUtf8 key
      }
  where
    split c arg = (identity *** Text.drop 1) $ Text.breakOn c arg
    splitOnEnd c arg = (Text.dropEnd 1 *** identity) $ Text.breakOnEnd c arg

-- Example string "net:some.ho.st:8008~shs:SomeActuallyValidPubKey="
formatMultiAddress :: MultiAddress -> Text
formatMultiAddress addr =
    protocol addr <> ":"
    <> host addr <> ":" <> port addr
    <> "~shs:"
    <> formatPublicKey (key addr)