mirror of https://github.com/voidlizard/hbs2
16 lines
325 B
Haskell
16 lines
325 B
Haskell
module HBS2.Net.PeerLocator where
|
|
|
|
-- import HBS2.Prelude
|
|
import HBS2.Net.Proto
|
|
|
|
class PeerLocator l where
|
|
knownPeers :: (HasPeer p, Monad m) => l -> m [Peer p]
|
|
|
|
data AnyPeerLocator = forall a . PeerLocator a => AnyPeerLocator a
|
|
|
|
instance PeerLocator AnyPeerLocator where
|
|
knownPeers (AnyPeerLocator l) = knownPeers l
|
|
|
|
|
|
|