diff options
| author | joe <joe@jerkface.net> | 2016-12-31 17:51:11 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-12-31 17:51:11 -0500 |
| commit | 7e873c2313a50a54d9fe9f96272a640e4e4ea0f9 (patch) | |
| tree | 3dba9c1dd2761c8df5feeca7822cbfe0be96afc5 | |
| parent | 1d9049d914ccc9b66ff33e764618e8301d0b1ccf (diff) | |
Qualified identifier for readability.
| -rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index bc5c6201..42270ae8 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
| @@ -94,7 +94,7 @@ import Text.PrettyPrint as PP hiding ((<>), ($$)) | |||
| 94 | import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) | 94 | import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) |
| 95 | 95 | ||
| 96 | import Data.Torrent as Torrent | 96 | import Data.Torrent as Torrent |
| 97 | import Network.KRPC hiding (Options, def) | 97 | import Network.KRPC as KRPC hiding (Options, def) |
| 98 | import qualified Network.KRPC as KRPC (def) | 98 | import qualified Network.KRPC as KRPC (def) |
| 99 | import Network.BitTorrent.Address | 99 | import Network.BitTorrent.Address |
| 100 | import Network.BitTorrent.DHT.ContactInfo as P | 100 | import Network.BitTorrent.DHT.ContactInfo as P |
| @@ -330,7 +330,7 @@ newNode hs opts naddr logger mbid = do | |||
| 330 | <*> newTVarIO S.empty | 330 | <*> newTVarIO S.empty |
| 331 | <*> (newTVarIO =<< nullSessionTokens) | 331 | <*> (newTVarIO =<< nullSessionTokens) |
| 332 | <*> pure logger | 332 | <*> pure logger |
| 333 | runReaderT (unDHT listen) node | 333 | runReaderT (unDHT KRPC.listen) node |
| 334 | return node | 334 | return node |
| 335 | 335 | ||
| 336 | -- | Some resources like listener thread may live for | 336 | -- | Some resources like listener thread may live for |