summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2017-01-16 23:04:35 -0500
committerjoe <joe@jerkface.net>2017-01-17 07:36:38 -0500
commit9c551511ae5a0d6cf7fc77daf6bd6b16b8eb8977 (patch)
treecc2d88abd7c1c5c5463dc305c5b09e7ae149c2ea /src/Network/BitTorrent/DHT.hs
parent5a69a35f99adfa2905e280aafe68c358afd3067f (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.hs3
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
56import Control.Applicative
57import Control.Monad.Logger 56import Control.Monad.Logger
58import Control.Monad.Reader 57import Control.Monad.Reader
59import Control.Exception 58import 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--
284delete :: Address ip => InfoHash -> PortNumber -> DHT ip () 283delete :: InfoHash -> PortNumber -> DHT ip ()
285delete = deleteTopic 284delete = deleteTopic
286{-# INLINE delete #-} 285{-# INLINE delete #-}