diff options
author | joe <joe@jerkface.net> | 2017-01-16 23:04:35 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-01-17 07:36:38 -0500 |
commit | 9c551511ae5a0d6cf7fc77daf6bd6b16b8eb8977 (patch) | |
tree | cc2d88abd7c1c5c5463dc305c5b09e7ae149c2ea /src/Network/BitTorrent/DHT.hs | |
parent | 5a69a35f99adfa2905e280aafe68c358afd3067f (diff) |
Clean up all warnings (ghc 8.0.1) in DHT component.
Diffstat (limited to 'src/Network/BitTorrent/DHT.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs index 7ca8fc8b..45c87831 100644 --- a/src/Network/BitTorrent/DHT.hs +++ b/src/Network/BitTorrent/DHT.hs | |||
@@ -53,7 +53,6 @@ module Network.BitTorrent.DHT | |||
53 | , runDHT | 53 | , runDHT |
54 | ) where | 54 | ) where |
55 | 55 | ||
56 | import Control.Applicative | ||
57 | import Control.Monad.Logger | 56 | import Control.Monad.Logger |
58 | import Control.Monad.Reader | 57 | import Control.Monad.Reader |
59 | import Control.Exception | 58 | import Control.Exception |
@@ -281,6 +280,6 @@ insert ih p = do | |||
281 | -- | 280 | -- |
282 | -- This operation is atomic and may block for a while. | 281 | -- This operation is atomic and may block for a while. |
283 | -- | 282 | -- |
284 | delete :: Address ip => InfoHash -> PortNumber -> DHT ip () | 283 | delete :: InfoHash -> PortNumber -> DHT ip () |
285 | delete = deleteTopic | 284 | delete = deleteTopic |
286 | {-# INLINE delete #-} | 285 | {-# INLINE delete #-} |