X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=29e1fb95b6e98a089fedd10317b105aa9894383b;hb=a408afc0974b9a122d34f42afe177b08668c075c;hp=63778bd54c8bffbd84b02e4f5e6cdf14523f310f;hpb=fcb4abeb34dc3302f15b10c3b916bc14e3047707;p=mTask.git diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl index 63778bd..29e1fb9 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 Char String + = MTTask MTaskInterval String | MTTaskDel Int | MTSds Int BCValue | MTUpd Int BCValue