summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/BitTorrent/DHT/Token.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/BitTorrent/DHT/Token.hs b/src/Network/BitTorrent/DHT/Token.hs
index 6705f932..51ee40d5 100644
--- a/src/Network/BitTorrent/DHT/Token.hs
+++ b/src/Network/BitTorrent/DHT/Token.hs
@@ -17,7 +17,7 @@ module Network.BitTorrent.DHT.Token
17 , Network.BitTorrent.DHT.Token.tokens 17 , Network.BitTorrent.DHT.Token.tokens
18 , Network.BitTorrent.DHT.Token.lookup 18 , Network.BitTorrent.DHT.Token.lookup
19 , Network.BitTorrent.DHT.Token.member 19 , Network.BitTorrent.DHT.Token.member
20 , Network.BitTorrent.DHT.Token.updateInterval 20 , Network.BitTorrent.DHT.Token.defaultUpdateInterval
21 , Network.BitTorrent.DHT.Token.update 21 , Network.BitTorrent.DHT.Token.update
22 ) where 22 ) where
23 23
@@ -43,7 +43,7 @@ type Secret = Int
43newtype Token = Token BS.ByteString 43newtype Token = Token BS.ByteString
44 deriving (Show, Eq, BEncode, IsString) 44 deriving (Show, Eq, BEncode, IsString)
45 45
46-- | Meaningless token, for testsing purposes only. 46-- | Meaningless token, for testing purposes only.
47instance Default Token where 47instance Default Token where
48 def = Token "0xdeadbeef" 48 def = Token "0xdeadbeef"
49 49
@@ -78,8 +78,8 @@ member addr token TokenMap {..} = token `L.elem` valid
78 78
79-- Secret changes every five minutes and tokens up to ten minutes old 79-- Secret changes every five minutes and tokens up to ten minutes old
80-- are accepted. 80-- are accepted.
81updateInterval :: NominalDiffTime 81defaultUpdateInterval :: NominalDiffTime
82updateInterval = 5 * 60 82defaultUpdateInterval = 5 * 60
83 83
84update :: TokenMap -> TokenMap 84update :: TokenMap -> TokenMap
85update TokenMap {..} = TokenMap 85update TokenMap {..} = TokenMap