module HBS2.Net.Proto where import Data.Kind import Data.Hashable class (Hashable (Peer a), Eq (Peer a)) => IsPeer a where data family Peer a :: Type