diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-01 20:22:30 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:22:52 -0500 |
commit | bb190ea0bb2671214aad75f43f06a7c41c94f2bd (patch) | |
tree | a6c749eab356aeec91032e2ffdcd456aeebba73b /dht/src/Network/BitTorrent/MainlineDHT.hs | |
parent | 7c88315f6e01e203c537fa3193a83acd3a7afa2c (diff) |
Remove query-id dependency from timeout computation.
Diffstat (limited to 'dht/src/Network/BitTorrent/MainlineDHT.hs')
-rw-r--r-- | dht/src/Network/BitTorrent/MainlineDHT.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/BitTorrent/MainlineDHT.hs b/dht/src/Network/BitTorrent/MainlineDHT.hs index 2ea2551e..7589f538 100644 --- a/dht/src/Network/BitTorrent/MainlineDHT.hs +++ b/dht/src/Network/BitTorrent/MainlineDHT.hs | |||
@@ -1072,7 +1072,7 @@ mainlineSerializeer :: (BEncode a2, BEncode a1) => | |||
1072 | -> MethodSerializer | 1072 | -> MethodSerializer |
1073 | TransactionId NodeInfo (Message BValue) Method a1 (Either Error b) | 1073 | TransactionId NodeInfo (Message BValue) Method a1 (Either Error b) |
1074 | mainlineSerializeer meth unwrap client = MethodSerializer | 1074 | mainlineSerializeer meth unwrap client = MethodSerializer |
1075 | { methodTimeout = \_ ni -> return (ni, 5000000) | 1075 | { methodTimeout = \ni -> return (ni, 5000000) |
1076 | , method = meth | 1076 | , method = meth |
1077 | , wrapQuery = encodeQueryPayload meth (isReadonlyClient client) | 1077 | , wrapQuery = encodeQueryPayload meth (isReadonlyClient client) |
1078 | , unwrapResponse = (>>= either (Left . Error GenericError . C8.pack) | 1078 | , unwrapResponse = (>>= either (Left . Error GenericError . C8.pack) |