pingListener :: InputListener s
pingListener IRCMsg {msgCmd = "PING", msgParams, msgTrail} 
  = sendMsg "PONG" msgParams msgTrail
pingListener :: InputListener s
pingListener IRCMsg {msgCmd = "PING", msgParams, msgTrail} 
  = sendMsg "PONG" msgParams msgTrail
pingListener IRCMsg {msgCmd = "PING", msgParams, msgTrail} 
  = sendMsg "PONG" msgParams msgTrail