summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-12-28 04:44:52 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-12-28 04:44:52 +0400
commit4f8ad2b2c63a056f924883f7d26f58b08b37d44b (patch)
treebd4c957518732d7e85e27bb1a6cf7d501eeff255 /src/Network/BitTorrent
parent24e46b98f76937debd7b3a943200e258f8828712 (diff)
Fix typo
Diffstat (limited to 'src/Network/BitTorrent')
-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