diff options
-rw-r--r-- | examples/dhtd.hs | 2 | ||||
-rw-r--r-- | src/Control/Concurrent/Tasks.hs (renamed from Tasks.hs) | 2 | ||||
-rw-r--r-- | src/Network/BitTorrent/DHT/Search.hs | 2 | ||||
-rw-r--r-- | src/Network/Kademlia.hs | 2 |
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 | |||
56 | import Data.Aeson as J (ToJSON, FromJSON) | 56 | import Data.Aeson as J (ToJSON, FromJSON) |
57 | import qualified Data.Aeson as J | 57 | import qualified Data.Aeson as J |
58 | import qualified Data.ByteString.Lazy as L | 58 | import qualified Data.ByteString.Lazy as L |
59 | import Tasks | 59 | import Control.Concurrent.Tasks |
60 | import System.IO.Error | 60 | import System.IO.Error |
61 | import qualified Data.Serialize as S | 61 | import qualified Data.Serialize as S |
62 | import Network.BitTorrent.DHT.ContactInfo as Peers | 62 | import 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 #-} |
2 | module Tasks where | 2 | module Control.Concurrent.Tasks where |
3 | 3 | ||
4 | import Control.Concurrent.STM | 4 | import Control.Concurrent.STM |
5 | import Control.Exception | 5 | import 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 #-} |
7 | module Network.BitTorrent.DHT.Search where | 7 | module Network.BitTorrent.DHT.Search where |
8 | 8 | ||
9 | import Tasks | 9 | import Control.Concurrent.Tasks |
10 | import Control.Concurrent.STM | 10 | import Control.Concurrent.STM |
11 | import Control.Exception | 11 | import Control.Exception |
12 | import Control.Monad | 12 | import 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 | |||
35 | import Text.PrettyPrint as PP hiding (($$), (<>)) | 35 | import Text.PrettyPrint as PP hiding (($$), (<>)) |
36 | import Text.PrettyPrint.HughesPJClass hiding (($$), (<>)) | 36 | import Text.PrettyPrint.HughesPJClass hiding (($$), (<>)) |
37 | import System.IO | 37 | import System.IO |
38 | import Tasks | 38 | import 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. |
41 | data RoutingStatus | 41 | data RoutingStatus |