Add MonadActive instance for DHT

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 75d3294f..a452b764 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -264,6 +264,12 @@ instance MonadBaseControl IO (DHT ip) where
   restoreM = DHT . restoreM . unSt
   {-# INLINE restoreM #-}
 
+-- | Check is it is possible to run 'queryNode' or handle pending
+-- query from remote node.
+instance MonadActive (DHT ip) where
+  monadActive = getManager >>= liftIO . isActive
+  {-# INLINE monadActive #-}
+
 -- | All allocated resources will be closed at 'stopNode'.
 instance MonadResource (DHT ip) where
   liftResourceT m = do