X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.dcl;h=862c29b098afd423125eb71cf67639c0652729b4;hp=cc3e4b2206e8abd7de99ed18a31679cc98348914;hb=38119fcb7be8437bc535665f20af8b641ee67e64;hpb=7a2a0cc9ba44d6073ae1778b07738c8d425e9cb5

diff --git a/IRC.dcl b/IRC.dcl
index cc3e4b2..862c29b 100644
--- a/IRC.dcl
+++ b/IRC.dcl
@@ -69,7 +69,7 @@ instance toInt IRCReplies, IRCErrors
 	| TIME (Maybe String)
 	| TOPIC String (Maybe String)
 	| TRACE (Maybe String)
-	| USER String String String
+	| USER String String String String
 	| USERHOST CSepList
 	| USERS (Maybe String)
 	| VERSION (Maybe String)
@@ -97,7 +97,7 @@ instance toInt IRCReplies, IRCErrors
 	RPL_ENDOFBANLIST | RPL_ENDOFWHOWAS | RPL_INFO | RPL_MOTD | RPL_ENDOFINFO |
 	RPL_MOTDSTART | RPL_ENDOFMOTD | RPL_YOUREOPER | RPL_REHASHING |
 	RPL_YOURESERVICE | RPL_TIME | RPL_USERSSTART | RPL_USERS | RPL_ENDOFUSERS |
-	RPL_NOUSERS
+	RPL_NOUSERS | RPL_UNKNOWN
 
 :: IRCErrors = ERR_NOSUCHNICK | ERR_NOSUCHSERVER | ERR_NOSUCHCHANNEL |
 	ERR_CANNOTSENDTOCHAN | ERR_TOOMANYCHANNELS | ERR_WASNOSUCHNICK |
@@ -115,4 +115,4 @@ instance toInt IRCReplies, IRCErrors
 	ERR_NOCHANMODES | ERR_BANLISTFULL | ERR_NOPRIVILEGES |
 	ERR_CHANOPRIVSNEEDED | ERR_CANTKILLSERVER | ERR_RESTRICTED |
 	ERR_UNIQOPPRIVSNEEDED | ERR_NOOPERHOST | ERR_UMODEUNKNOWNFLAG |
-	ERR_USERSDONTMATCH
+	ERR_USERSDONTMATCH | ERR_UNKNOWN