X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=63778bd54c8bffbd84b02e4f5e6cdf14523f310f;hb=d963745f754d618bd6a729633050c24831e727e0;hp=8f4bd40ceb89acc7a8d66b65c4066fcfb74540e3;hpb=8294426993e3a7f34eefc559bba81e7ee8b68766;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 8f4bd40..63778bd 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -21,7 +21,7 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi
 	| MTEmpty
 
 :: MTaskMSGSend
-	= MTTask MTaskInterval String
+	= MTTask MTaskInterval Char String
 	| MTTaskDel Int
 	| MTSds Int BCValue
 	| MTUpd Int BCValue
@@ -67,6 +67,7 @@ decode :: String -> MTaskMSGRecv
 	//Binary Bool ops
 	| BCAnd
 	| BCOr
+	//Binary ops
 	| BCEq
 	| BCNeq
 	| BCLes