X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.dcl;h=ae14b8f625c5effa46a563a2c7e55a95c90c788a;hp=0fffb7e6918cfcb6482235c26505915dc605c0b9;hb=3134ab7e61bcbc84560b4a5d613a92b1a48362c2;hpb=663ea3d6dfb6a70ddf1f3b6c41d4d39ed30c4440

diff --git a/IRC.dcl b/IRC.dcl
index 0fffb7e..ae14b8f 100644
--- a/IRC.dcl
+++ b/IRC.dcl
@@ -1,8 +1,10 @@
 definition module IRC
 
+import IRCBot
 from Data.Maybe import :: Maybe
 from Data.Either import :: Either
 from StdOverloaded import class fromInt, class toInt, class toString, class fromString
+from Text.Parsers.Simple.Core import :: Error
 
 :: IRCMessage =
 	{ irc_prefix :: Maybe (Either String IRCUser)
@@ -14,6 +16,8 @@ from StdOverloaded import class fromInt, class toInt, class toString, class from
 	, irc_host :: Maybe String
 	}
 
+parseIRCMessage :: (String -> Either [Error] IRCMessage)
+
 instance toString IRCCommand, IRCReplies, IRCErrors, IRCMessage, IRCUser
 instance fromInt IRCReplies, IRCErrors
 instance toInt IRCReplies, IRCErrors