diff options
Diffstat (limited to 'src/Erebos/Network.hs')
| -rw-r--r-- | src/Erebos/Network.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs index b98d007..609bb4c 100644 --- a/src/Erebos/Network.hs +++ b/src/Erebos/Network.hs @@ -4,6 +4,7 @@ module Erebos.Network ( stopServer, getCurrentPeerList, getNextPeerChange, + getNextPeerChangeChan, getServerAddresses, ServerOptions(..), serverIdentity, defaultServerOptions, @@ -121,6 +122,9 @@ getCurrentPeerList = fmap M.elems . readMVar . serverPeers getNextPeerChange :: Server -> IO Peer getNextPeerChange = atomically . readTChan . serverChanPeer +getNextPeerChangeChan :: Server -> IO (TChan Peer) +getNextPeerChangeChan = atomically . dupTChan . serverChanPeer + data ServerOptions = ServerOptions { serverPort :: PortNumber , serverRetryUnspecifiedPort :: Bool |