module Ouroboros.Cardano.Network.Types where

import Ouroboros.Cardano.Network.PublicRootPeers (ExtraPeers)
import Ouroboros.Network.PeerSelection.PublicRootPeers (PublicRootPeers)

data ChurnMode = ChurnModeBulkSync
               | ChurnModeNormal
               deriving Int -> ChurnMode -> ShowS
[ChurnMode] -> ShowS
ChurnMode -> String
(Int -> ChurnMode -> ShowS)
-> (ChurnMode -> String)
-> ([ChurnMode] -> ShowS)
-> Show ChurnMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChurnMode -> ShowS
showsPrec :: Int -> ChurnMode -> ShowS
$cshow :: ChurnMode -> String
show :: ChurnMode -> String
$cshowList :: [ChurnMode] -> ShowS
showList :: [ChurnMode] -> ShowS
Show

type CardanoPublicRootPeers peeraddr =
  PublicRootPeers (ExtraPeers peeraddr) peeraddr