Add function isActive

2 files changed, 8 insertions, 0 deletions

diff --git a/src/Network/KRPC.hs b/src/Network/KRPC.hs
index f7b8378a..b15927cf 100644
--- a/src/Network/KRPC.hs
+++ b/src/Network/KRPC.hs
@@ -74,6 +74,7 @@ module Network.KRPC
        , newManager
        , closeManager
        , withManager
+       , isActive
        , listen
 
          -- * Re-exports
diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs
index e0ea9618..4436a9ba 100644
--- a/src/Network/KRPC/Manager.hs
+++ b/src/Network/KRPC/Manager.hs
@@ -24,6 +24,7 @@ module Network.KRPC.Manager
        , newManager
        , closeManager
        , withManager
+       , isActive
        , listen
 
          -- * Queries
@@ -192,6 +193,12 @@ closeManager Manager {..} = do
   -- TODO unblock calls
   close sock
 
+-- | Check if the manager is still active. Manager becomes active
+-- until 'closeManager' called.
+isActive :: Manager m -> IO Bool
+isActive Manager {..} = liftIO $ isBound sock
+{-# INLINE isActive #-}
+
 -- | Normally you should use Control.Monad.Trans.Resource.allocate
 -- function.
 withManager :: Options -> SockAddr -> [Handler h]