update message spec

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 5436ffe..767cd98 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -113,7 +113,8 @@ mTaskTask = let (msgs, sdsShares) = makeMsgs 1000 bc in
                = updateSDSs xs m n
                updateSDSs _ m mtm = case mtm of
                        MTMessage s = upd (\l->take 5 [s:l]) m @! ()
-                       mta=:(MTTaskAdded _) = upd (\l->take 5 [toString mta:l]) m @! ()
+                       mta=:(MTTaskAck _) = upd (\l->take 5 [toString mta:l]) m @! ()
+                       //TODO other recv msgs
                        _ = return ()
 
                lens :: ([MTaskMSGRecv], [MTaskMSGSend],Bool) -> ([String], [String])