|
module HBS2.Net.Proto where
|
|
|
|
import HBS2.Prelude.Plated
|
|
|
|
import Data.Kind
|
|
import Data.Hashable
|
|
|
|
class (Hashable (Peer a), Eq (Peer a), Ord (Peer a)) => IsPeer a where
|
|
data family Peer a :: Type
|
|
|
|
|
|
newtype BlockInfo = BlockInfo Integer
|
|
deriving stock (Eq, Data)
|
|
|
|
|