X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=578d3351a3f97cb17883320bb87bc413360cd9f8;hb=8e31b107ced5cae9230623a22d11ca37f391e74a;hp=922b4459ebc636184254bb94f8bf7dd12eec39e0;hpb=4f5bec7a819e8a8ee9ee30b761c2159df0a7d8a4;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