Increase keep-alive timeout to 60s

Temporarily increase the keep-alive timeout to 60s.
IntersectMBO · Aug 11, 2020 · e5f599f · e5f599f
1 parent b2b6261
commit e5f599f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-network/src/Ouroboros/Network/Protocol/KeepAlive/Codec.hs b/ouroboros-network/src/Ouroboros/Network/Protocol/KeepAlive/Codec.hs
@@ -79,7 +79,7 @@ timeLimitsKeepAlive = ProtocolTimeLimits { timeLimitForState }
     timeLimitForState :: PeerHasAgency (pr :: PeerRole) (st :: KeepAlive)
                       -> Maybe DiffTime
     timeLimitForState (ClientAgency TokClient) = waitForever
-    timeLimitForState (ServerAgency TokServer) = shortWait
+    timeLimitForState (ServerAgency TokServer) = Just 60 -- TODO: #2505 should be 10s.
 
 
 codecKeepAliveId