From cee8903392b263b938b7b4baaea6ef220ff03f21 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Wed, 12 Feb 2014 20:56:07 +0400 Subject: Add getSession function --- src/Network/BitTorrent/Exchange/Wire.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Network/BitTorrent/Exchange/Wire.hs') diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs index 4bd342ca..0414ebe7 100644 --- a/src/Network/BitTorrent/Exchange/Wire.hs +++ b/src/Network/BitTorrent/Exchange/Wire.hs @@ -56,6 +56,7 @@ module Network.BitTorrent.Exchange.Wire -- ** Query , getConnection + , getSession , getExtCaps , getStats , getMetadata @@ -571,6 +572,9 @@ getStats = lift $ use connStats getConnection :: Wire s (Connection s) getConnection = lift ask +getSession :: Wire s s +getSession = lift (asks connSession) + {----------------------------------------------------------------------- -- Wrapper -----------------------------------------------------------------------} -- cgit v1.2.3