diff options
Diffstat (limited to 'src/Network/DHT/Mainline.hs')
-rw-r--r-- | src/Network/DHT/Mainline.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Network/DHT/Mainline.hs b/src/Network/DHT/Mainline.hs index 9af42a6d..bdf9e8b2 100644 --- a/src/Network/DHT/Mainline.hs +++ b/src/Network/DHT/Mainline.hs | |||
@@ -56,6 +56,8 @@ | |||
56 | -- <http://pdos.csail.mit.edu/~petar/papers/maymounkov-kademlia-lncs.pdf> | 56 | -- <http://pdos.csail.mit.edu/~petar/papers/maymounkov-kademlia-lncs.pdf> |
57 | -- | 57 | -- |
58 | {-# LANGUAGE CPP #-} | 58 | {-# LANGUAGE CPP #-} |
59 | {-# LANGUAGE StandaloneDeriving #-} | ||
60 | {-# LANGUAGE GeneralizedNewtypeDeriving #-} | ||
59 | {-# LANGUAGE DeriveDataTypeable #-} | 61 | {-# LANGUAGE DeriveDataTypeable #-} |
60 | {-# LANGUAGE FlexibleInstances #-} | 62 | {-# LANGUAGE FlexibleInstances #-} |
61 | {-# LANGUAGE MultiParamTypeClasses #-} | 63 | {-# LANGUAGE MultiParamTypeClasses #-} |
@@ -94,6 +96,7 @@ module Network.DHT.Mainline | |||
94 | , checkToken | 96 | , checkToken |
95 | ) where | 97 | ) where |
96 | 98 | ||
99 | import Data.String | ||
97 | import Control.Applicative | 100 | import Control.Applicative |
98 | import Data.Bool | 101 | import Data.Bool |
99 | #ifdef VERSION_bencoding | 102 | #ifdef VERSION_bencoding |
@@ -570,3 +573,7 @@ instance Kademlia KMessageOf where | |||
570 | initializeDHTData = TorrentData | 573 | initializeDHTData = TorrentData |
571 | <$> newTVarIO def | 574 | <$> newTVarIO def |
572 | <*> (newTVarIO =<< nullSessionTokens) | 575 | <*> (newTVarIO =<< nullSessionTokens) |
576 | |||
577 | deriving instance IsString (QueryMethod dht) => IsString (Method dht param result) | ||
578 | deriving instance BEncode (QueryMethod dht) => BEncode (Method dht param result) | ||
579 | |||