diff options
-rw-r--r-- | dht-client.cabal | 1 | ||||
-rw-r--r-- | examples/dhtd.hs | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/dht-client.cabal b/dht-client.cabal index b17ceb14..255f41f0 100644 --- a/dht-client.cabal +++ b/dht-client.cabal | |||
@@ -247,6 +247,7 @@ executable dhtd | |||
247 | , unordered-containers | 247 | , unordered-containers |
248 | , vector | 248 | , vector |
249 | , text | 249 | , text |
250 | , monad-control | ||
250 | , resourcet | 251 | , resourcet |
251 | 252 | ||
252 | if flag(thread-debug) | 253 | if flag(thread-debug) |
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 219221e5..e9b365cb 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
@@ -23,6 +23,7 @@ import Control.Applicative | |||
23 | import Control.Concurrent.STM | 23 | import Control.Concurrent.STM |
24 | import Control.Exception | 24 | import Control.Exception |
25 | import Control.Monad | 25 | import Control.Monad |
26 | import Control.Monad.Trans.Control | ||
26 | import Control.Monad.Trans.Resource (runResourceT) | 27 | import Control.Monad.Trans.Resource (runResourceT) |
27 | import Data.Bool | 28 | import Data.Bool |
28 | import Data.Char | 29 | import Data.Char |
@@ -72,7 +73,6 @@ import qualified Data.Aeson as J | |||
72 | import qualified Data.ByteString.Lazy as L | 73 | import qualified Data.ByteString.Lazy as L |
73 | import qualified Data.ByteString.Char8 as B | 74 | import qualified Data.ByteString.Char8 as B |
74 | import Control.Concurrent.Tasks | 75 | import Control.Concurrent.Tasks |
75 | import Control.Monad.Trans.Control | ||
76 | import System.IO.Error | 76 | import System.IO.Error |
77 | import qualified Data.Serialize as S | 77 | import qualified Data.Serialize as S |
78 | import Network.BitTorrent.DHT.ContactInfo as Peers | 78 | import Network.BitTorrent.DHT.ContactInfo as Peers |