Expose multitracker session state

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Internal/Cache.hs b/src/Network/BitTorrent/Internal/Cache.hs
index 1eb2f192..8c74467a 100644
--- a/src/Network/BitTorrent/Internal/Cache.hs
+++ b/src/Network/BitTorrent/Internal/Cache.hs
@@ -27,6 +27,7 @@ module Network.BitTorrent.Internal.Cache
 
          -- * Cached data
        , tryTakeData
+       , unsafeTryTakeData
        , takeData
        ) where
 
@@ -35,6 +36,7 @@ import Data.Monoid
 import Data.Default
 import Data.Time
 import Data.Time.Clock.POSIX
+import System.IO.Unsafe
 
 
 data Cached a = Cached
@@ -143,6 +145,9 @@ tryTakeData c = do
   alive <- isAlive c
   return $ if alive then Just (cachedData c) else Nothing
 
+unsafeTryTakeData :: Cached a -> Maybe a
+unsafeTryTakeData = unsafePerformIO . tryTakeData
+
 invalidateData :: Cached a -> IO a -> IO (Cached a)
 invalidateData Cached {..} action = do
   t <- getPOSIXTime