~singpolyma/cheogram

7704b63c27eaec712e4db81b7795a928b18accc4 — Christopher Vollick 5 months ago 568afbd
Increase IQ Timeout

Sometimes steps in the registration flow can take longer than 5 seconds.
We're increasing the timeouts here because these aren't errors, and it
will make signup much smoother to have this work.
1 files changed, 1 insertions(+), 1 deletions(-)

M IQManager.hs
M IQManager.hs => IQManager.hs +1 -1
@@ 18,7 18,7 @@ import Util
type ResponseMap = Map.Map (Maybe Text) (TMVar XMPP.IQ)

iqSendTimeoutMicroseconds :: Int
iqSendTimeoutMicroseconds = 5000000
iqSendTimeoutMicroseconds = 20 * 1000000

iqDefaultID :: (Unexceptional m) => XMPP.IQ -> m XMPP.IQ
iqDefaultID iq@XMPP.IQ { XMPP.iqID = Just _ } = return iq