~ Expose some session data.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs
index 8461745a..00b6795b 100644
--- a/src/Network/BitTorrent/Exchange/Protocol.hs
+++ b/src/Network/BitTorrent/Exchange/Protocol.hs
@@ -56,6 +56,7 @@ module Network.BitTorrent.Exchange.Protocol
        , choking, interested
 
        , SessionStatus(..)
+       , inverseStatus
        , clientStatus, peerStatus
        , canUpload, canDownload
 
@@ -549,6 +550,9 @@ canDownload :: SessionStatus -> Bool
 canDownload SessionStatus {..}
   = _interested _clientStatus && not (_choking _peerStatus)
 
+inverseStatus :: SessionStatus -> SessionStatus
+inverseStatus SessionStatus {..} = SessionStatus _peerStatus _clientStatus
+
 -- | Indicates how many peers are allowed to download from the client
 -- by default.
 defaultUnchokeSlots :: Int