From 644c06e66fd311cecabbc1cb08c53b4a1d350e27 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Wed, 19 Feb 2014 04:14:50 +0400 Subject: Stop DHT node at client cleanup --- src/Network/BitTorrent/DHT/Session.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Network/BitTorrent/DHT/Session.hs') diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index 1bc9e697..b4ff0208 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs @@ -308,6 +308,7 @@ startNode hs opts naddr logger = do stopNode :: Node ip -> IO () stopNode Node {..} = closeInternalState resources +-- | Run DHT operation on the given session. runDHT :: Node ip -> DHT ip a -> IO a runDHT node action = runReaderT (unDHT action) node {-# INLINE runDHT #-} -- cgit v1.2.3