mirror of https://github.com/voidlizard/hbs2
28 lines
628 B
Haskell
28 lines
628 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
{-# Language UndecidableInstances #-}
|
|
module RPC2.PexInfo where
|
|
|
|
import HBS2.Actors.Peer
|
|
import HBS2.Net.Proto.Service
|
|
import HBS2.Prelude.Plated
|
|
import HBS2.Net.Proto.Definition()
|
|
|
|
import HBS2.Net.Proto.PeerExchange
|
|
|
|
import HBS2.Peer.RPC.Internal.Types
|
|
import HBS2.Peer.RPC.API.Peer
|
|
|
|
import Codec.Serialise
|
|
|
|
instance ( MonadIO m
|
|
, HasRpcContext PeerAPI RPC2Context m
|
|
, Serialise (Output RpcPexInfo)
|
|
) => HandleMethod m RpcPexInfo where
|
|
|
|
handleMethod _ = do
|
|
co <- getRpcContext @PeerAPI
|
|
withPeerM (rpcPeerEnv co) getAllPex2Peers
|
|
|
|
|
|
|