repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 @! ()
= 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])
_ = return ()
lens :: ([MTaskMSGRecv], [MTaskMSGSend],Bool) -> ([String], [String])