X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=221c8a4fdfb4620e39596a483bafb71c9b26aa0b;hb=7fec7868123d56d410e807042cb3e031ebda12b9;hp=319ffb3e7e4d6f09bb238c27a0b92e4057d7fc4e;hpb=55afb005ced3bba3813163596cdc7288a318a3c2;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 319ffb3..221c8a4 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -16,6 +16,7 @@ import mTask
 
 :: MTaskMSGSend
 	= MTTask Int String
+	| MTTaskDel Int
 	| MTSds Int String
 	| MTUpd Int String
 
@@ -114,4 +115,4 @@ toSDSUpdate :: Int Int -> [MTaskMSGSend]
 
 toByteVal :: BC -> [Char]
 toReadableByteCode :: (ByteCode a b) -> (String, BCState)
-toRealByteCode :: (ByteCode a b) -> (String, BCState)
+toRealByteCode :: (ByteCode a b) BCState -> (String, BCState)