X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRCBot.icl;h=e736db95c535f94ac9f47730382bb33852ca88a9;hp=6820e708bb1c05b10fcee61f1adbf0be471fd30d;hb=d6d828d0a8d0308a70d8a64168ed8ef09a8d40e9;hpb=840f4fd6696c7af6f42251cbb263fe7c86ff2e7b diff --git a/IRCBot.icl b/IRCBot.icl index 6820e70..e736db9 100644 --- a/IRCBot.icl +++ b/IRCBot.icl @@ -38,7 +38,7 @@ bot (host, port) start end state bot w //Close channels = (Nothing, state, closeChannel sChannel (closeRChannel rChannel w)) -process :: TCP_DuplexChannel String .a (IRCMessage .a *World -> *(Maybe [IRCMessage], .a, *World)) *World -> *(MaybeErrorString (), TCP_DuplexChannel, .a, *World) +process :: TCP_DuplexChannel String .a (IRCMessage .a *World -> (Maybe [IRCMessage], .a, *World)) *World -> (MaybeErrorString (), TCP_DuplexChannel, .a, *World) process chan acc state bot w //See if we have a message = case split "\r\n" acc of