~ Expose some session data.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Sessions/Types.lhs b/src/Network/BitTorrent/Sessions/Types.lhs
index af2a6755..5571e23a 100644
--- a/src/Network/BitTorrent/Sessions/Types.lhs
+++ b/src/Network/BitTorrent/Sessions/Types.lhs
@@ -34,6 +34,7 @@
 >        , SessionState (..)
 >        , status, bitfield
 >        , initialSessionState
+>        , getSessionState
 >
 >        , SessionException (..)
 >        , isSessionException, putSessionException
@@ -416,6 +417,9 @@ Peer session state
 > initialSessionState :: PieceCount -> SessionState
 > initialSessionState pc = SessionState (haveNone pc) def
 
+> getSessionState :: PeerSession -> IO SessionState
+> getSessionState PeerSession {..} = readIORef sessionState
+
 Peer session exceptions
 ------------------------------------------------------------------------