From fb92f01e027cdbf5ef979c5d5525211594d8f7c7 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Wed, 13 Dec 2017 16:27:12 +0100 Subject: [PATCH] . --- IRCBot.icl | 12 ++++++------ cloogleirc.icl | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/IRCBot.icl b/IRCBot.icl index 3b62090..e2e7d11 100644 --- a/IRCBot.icl +++ b/IRCBot.icl @@ -69,13 +69,13 @@ send [] chan w = (Ok (), chan, w) send [msg:msgs] {sChannel,rChannel} 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) -# (_, w) = sleep 500000 w +//# (_, w) = sleep 500000 w = send msgs {sChannel=sChannel,rChannel=rChannel} w - where - sleep :: !Int !*World -> (!Int, *World) - sleep i w = code { - ccall usleep "I:I:A" - } +// where +// sleep :: !Int !*World -> (!Int, *World) +// sleep i w = code { +// ccall usleep "I:I:A" +// } recv :: TCP_DuplexChannel *World -> (MaybeErrorString (Maybe String), TCP_DuplexChannel, *World) recv {sChannel,rChannel} w diff --git a/cloogleirc.icl b/cloogleirc.icl index 22a2193..85985d8 100644 --- a/cloogleirc.icl +++ b/cloogleirc.icl @@ -177,7 +177,7 @@ Start w (Nothing, w) = (Nothing, io, w) (Just cs, w) # msgs = map toPrefix cs - #! (io, w) = foldr (log strf " (s): ") (io, w) msgs +// #! (io, w) = foldr (log strf " (s): ") (io, w) msgs = (Just msgs, io, w) log :: String String IRCMessage (!*File, !*World) -> (!*File, !*World) -- 2.20.1