added more parsing of commands

[cloogle-irc.git] / cloogle.icl

diff --git a/cloogle.icl b/cloogle.icl
index 29cee80..4227b66 100644 (file)
--- a/cloogle.icl
+++ b/cloogle.icl
@@ -184,7 +184,7 @@ recv {sChannel,rChannel} w
 | rpt == TR_NoSuccess || isNothing resp = abort "Halp?\n"
 = (toString <$> resp, {sChannel=sChannel,rChannel=rChannel}, w)
 
-msg :: (String -> IRCCommands)
+msg :: (String -> IRCCommand)
 msg = PRIVMSG "#cloogle"
 
 process :: *File TCP_DuplexChannel *World -> (*File, TCP_DuplexChannel, *World)