X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRCBot.icl;h=de3c36fd0f3667dc15bbf067b0046db673c56bf3;hp=1dfee115582b2aef4bb850d37076e99e0d376aab;hb=72720f27dc0ba5acdb7e3c5ae071fa1c14986ba5;hpb=ceec25a9ebb2fa231d68e58d05f77c449d7d7590

diff --git a/IRCBot.icl b/IRCBot.icl
index 1dfee11..de3c36f 100644
--- a/IRCBot.icl
+++ b/IRCBot.icl
@@ -66,7 +66,7 @@ process chan acc state bot w
 send :: [String] TCP_DuplexChannel *World -> (MaybeErrorString (), TCP_DuplexChannel, *World)
 send [] chan w = (Ok (), chan, w)
 send [msg:msgs] {sChannel,rChannel} w
-# (_, w) = sleep 250000 w
+# (_, w) = sleep 500000 w
 # (rpt,i,sChannel,w) = send_MT TIMEOUT (toByteSeq msg) sChannel w
 | rpt <> TR_Success = (Error "Could not send message", {sChannel=sChannel,rChannel=rChannel}, w)
 = send msgs {sChannel=sChannel,rChannel=rChannel} w