summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/dhtd.hs2
-rw-r--r--src/Control/Concurrent/Tasks.hs (renamed from Tasks.hs)2
-rw-r--r--src/Network/BitTorrent/DHT/Search.hs2
-rw-r--r--src/Network/Kademlia.hs2
4 files changed, 4 insertions, 4 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f39a0eb1..78b0767a 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -56,7 +56,7 @@ import Network.DHT.Routing as R
56import Data.Aeson as J (ToJSON, FromJSON) 56import Data.Aeson as J (ToJSON, FromJSON)
57import qualified Data.Aeson as J 57import qualified Data.Aeson as J
58import qualified Data.ByteString.Lazy as L 58import qualified Data.ByteString.Lazy as L
59import Tasks 59import Control.Concurrent.Tasks
60import System.IO.Error 60import System.IO.Error
61import qualified Data.Serialize as S 61import qualified Data.Serialize as S
62import Network.BitTorrent.DHT.ContactInfo as Peers 62import Network.BitTorrent.DHT.ContactInfo as Peers
diff --git a/Tasks.hs b/src/Control/Concurrent/Tasks.hs
index 91da374e..287542ee 100644
--- a/Tasks.hs
+++ b/src/Control/Concurrent/Tasks.hs
@@ -1,5 +1,5 @@
1{-# LANGUAGE CPP #-} 1{-# LANGUAGE CPP #-}
2module Tasks where 2module Control.Concurrent.Tasks where
3 3
4import Control.Concurrent.STM 4import Control.Concurrent.STM
5import Control.Exception 5import Control.Exception
diff --git a/src/Network/BitTorrent/DHT/Search.hs b/src/Network/BitTorrent/DHT/Search.hs
index 16a20620..29e91633 100644
--- a/src/Network/BitTorrent/DHT/Search.hs
+++ b/src/Network/BitTorrent/DHT/Search.hs
@@ -6,7 +6,7 @@
6{-# LANGUAGE LambdaCase #-} 6{-# LANGUAGE LambdaCase #-}
7module Network.BitTorrent.DHT.Search where 7module Network.BitTorrent.DHT.Search where
8 8
9import Tasks 9import Control.Concurrent.Tasks
10import Control.Concurrent.STM 10import Control.Concurrent.STM
11import Control.Exception 11import Control.Exception
12import Control.Monad 12import Control.Monad
diff --git a/src/Network/Kademlia.hs b/src/Network/Kademlia.hs
index c6c59ae6..53c37175 100644
--- a/src/Network/Kademlia.hs
+++ b/src/Network/Kademlia.hs
@@ -35,7 +35,7 @@ import System.Timeout
35import Text.PrettyPrint as PP hiding (($$), (<>)) 35import Text.PrettyPrint as PP hiding (($$), (<>))
36import Text.PrettyPrint.HughesPJClass hiding (($$), (<>)) 36import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
37import System.IO 37import System.IO
38import Tasks 38import Control.Concurrent.Tasks
39 39
40-- | The status of a given node with respect to a given routint table. 40-- | The status of a given node with respect to a given routint table.
41data RoutingStatus 41data RoutingStatus