vvaluesimpleChurnModePeerSelectionPolicy :: (MonadSTM m, Ord peerAddr)=> StrictTVar m StdGen-> STM m ChurnMode-> PeerMetrics m peerAddr-> PeerSelectionPolicy peerAddr mPeek#