diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-28 04:44:52 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-28 04:44:52 +0400 |
commit | 4f8ad2b2c63a056f924883f7d26f58b08b37d44b (patch) | |
tree | bd4c957518732d7e85e27bb1a6cf7d501eeff255 /src | |
parent | 24e46b98f76937debd7b3a943200e258f8828712 (diff) |
Fix typo
Diffstat (limited to 'src')
-rw-r--r-- | src/Network/BitTorrent/DHT/Token.hs | 8 |
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 | |||
43 | newtype Token = Token BS.ByteString | 43 | newtype 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. |
47 | instance Default Token where | 47 | instance 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. |
81 | updateInterval :: NominalDiffTime | 81 | defaultUpdateInterval :: NominalDiffTime |
82 | updateInterval = 5 * 60 | 82 | defaultUpdateInterval = 5 * 60 |
83 | 83 | ||
84 | update :: TokenMap -> TokenMap | 84 | update :: TokenMap -> TokenMap |
85 | update TokenMap {..} = TokenMap | 85 | update TokenMap {..} = TokenMap |