updates

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index bca5df7..0fb9efc 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -10,9 +10,9 @@ import mTask
        | MTTask Int String
        | MTPub Int String
        | MTUpd Int String
+       | MTEmpty
 
 instance toString MTaskMessage
-safePrint :: String -> String
 encode :: MTaskMessage -> String
 decode :: String -> MTaskMessage
 
@@ -94,6 +94,8 @@ instance assign ByteCode
 instance seq ByteCode
 instance serial ByteCode
 
+pub :: (ByteCode a b) -> ByteCode a b
+
 toMessages :: Int (String, BCState) -> [MTaskMessage]
 
 toByteVal :: BC -> [Char]