log pongs

[cloogle-irc.git] / IRC.icl

diff --git a/IRC.icl b/IRC.icl
index 645edbd..098c759 100644 (file)
--- a/IRC.icl
+++ b/IRC.icl
@@ -38,8 +38,8 @@ instance toString IRCCommands where
        //OPER String String 
        //PART [String]
        //PASS String
-       //PING [String]
-       //PONG [String]
+               PING a mb = join " " ["PING",a:maybeToList mb]
+               PONG a mb = join " " ["PONG",a:maybeToList mb]
                PRIVMSG dest msg = join " " ["PRIVMSG", dest, ":"+++msg]
                QUIT msg = join " " ["QUIT":maybeToList msg]
        //REHASH