X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=GenIRC.dcl;fp=GenIRC.dcl;h=896362de23b3e9814d0208af6903a32b3245702f;hp=0000000000000000000000000000000000000000;hb=7a2a0cc9ba44d6073ae1778b07738c8d425e9cb5;hpb=e6122274015bff5500347501470c2071a515451d

diff --git a/GenIRC.dcl b/GenIRC.dcl
new file mode 100644
index 0000000..896362d
--- /dev/null
+++ b/GenIRC.dcl
@@ -0,0 +1,12 @@
+definition module GenIRC
+
+from IRC import :: IRCCommand, :: CSepList
+from Data.Either import :: Either
+from Data.Maybe import :: Maybe
+from Text.Parsers.Simple.Core import :: Error
+
+generic gIRCParse a :: [String] -> (Either Error a, [String])
+generic gIRCPrint a :: a -> [String]
+
+derive gIRCParse IRCCommand, String, Int, Maybe, (,), [], CSepList
+derive gIRCPrint IRCCommand, String, Int, Maybe, (,), [], CSepList