X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=mTaskInterpret.dcl;h=578d3351a3f97cb17883320bb87bc413360cd9f8;hb=8e31b107ced5cae9230623a22d11ca37f391e74a;hp=922b4459ebc636184254bb94f8bf7dd12eec39e0;hpb=cc93aff1c0867a33c41b4120c001b407d1b8850a;p=mTask.git diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl index 922b445..578d335 100644 --- a/mTaskInterpret.dcl +++ b/mTaskInterpret.dcl @@ -11,7 +11,7 @@ from GenPrint import generic gPrint from Generics.gCons import class gCons, generic conses, generic consName, generic consIndex, generic consNum :: MTaskMSGRecv - = MTTaskAck Int + = MTTaskAck Int Int | MTTaskDelAck Int | MTSDSAck Int | MTSDSDelAck Int