X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.dcl;fp=IRC.dcl;h=d910183c56596a61f2c11a59f59bb340c220a816;hp=59a342bd21faab926a33218a317ed0ac56f45ff8;hb=226254ae192a8a5f2a69f3e35a6823fad36f4d0c;hpb=ceec25a9ebb2fa231d68e58d05f77c449d7d7590

diff --git a/IRC.dcl b/IRC.dcl
index 59a342b..d910183 100644
--- a/IRC.dcl
+++ b/IRC.dcl
@@ -7,7 +7,7 @@ from StdOverloaded import class fromInt, class toInt, class toString, class from
 from Text.Parsers.Simple.Core import :: Error
 
 :: IRCMessage =
-	{ irc_prefix :: Maybe (Either String IRCUser)
+	{ irc_prefix :: Maybe (Either IRCUser String)
 	, irc_command :: Either IRCNumReply IRCCommand}
 
 :: IRCNumReply =