module test
-from Data.Func import $
-import Data.Either
-import Data.Maybe
-import StdEnv
+
+import gast
import IRC
-Start :: [String]
-Start = map toString
- [NICK "clooglebot"
- ,USER "cloogle" 0 "Cloogle bot"
- ,JOIN $ Right [("#cloogle", Nothing)]
- ,PRIVMSG "#cloogle" "Hello world"
- ,QUIT Nothing
- ]
+derive ggen IRCMessage
+
+Start = Test [] pParsePrint
+
+pParsePrint :: IRCMessage -> Bool
+pParsePrint a = toString (parseIRCMessage (toString a)) == toString a