From 52961a70a460693a4693eda41701baf8244039cd Mon Sep 17 00:00:00 2001 From: Jon Kristensen Date: Mon, 1 Jul 2013 18:34:19 +0200 Subject: [PATCH] IQ.hs: Set default time-out value to 30 instead of 3 --- source/Network/Xmpp/Concurrent/IQ.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/Network/Xmpp/Concurrent/IQ.hs b/source/Network/Xmpp/Concurrent/IQ.hs index 17d3298..2204493 100644 --- a/source/Network/Xmpp/Concurrent/IQ.hs +++ b/source/Network/Xmpp/Concurrent/IQ.hs @@ -54,7 +54,7 @@ sendIQ timeOut to tp lang body session = do -- TODO: Add timeout return () --- | Like 'sendIQ', but waits for the answer IQ. Times out after 3 seconds +-- | Like 'sendIQ', but waits for the answer IQ. Times out after 30 seconds sendIQ' :: Maybe Jid -> IQRequestType -> Maybe LangTag @@ -62,7 +62,7 @@ sendIQ' :: Maybe Jid -> Session -> IO (Maybe IQResponse) sendIQ' to tp lang body session = do - ref <- sendIQ (Just 3000000) to tp lang body session + ref <- sendIQ (Just 30000000) to tp lang body session maybe (return Nothing) (fmap Just . atomically . takeTMVar) ref