type PeerCount = Int

defaultChanSize :: PeerCount
defaultChanSize = defaultNumWant * 2