1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Session.hs b/src/Network/BitTorrent/Exchange/Session.hs
index 8c3d5388..32f8eabd 100644
--- a/src/Network/BitTorrent/Exchange/Session.hs
+++ b/src/Network/BitTorrent/Exchange/Session.hs
@@ -18,6 +18,7 @@ module Network.BitTorrent.Exchange.Session
 
          -- * Events
        , waitMetadata
+       , takeMetadata
        ) where
 
 import Control.Applicative
@@ -355,6 +356,9 @@ sendBroadcast msg = do
 waitMetadata :: Session -> IO InfoDict
 waitMetadata Session {..} = cachedValue <$> readMVar infodict
 
+takeMetadata :: Session -> IO (Maybe InfoDict)
+takeMetadata Session {..} = fmap cachedValue <$> tryReadMVar infodict
+
 {-----------------------------------------------------------------------
 --  Triggers
 -----------------------------------------------------------------------}