repositories
/
mTask.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9f93ff2
)
make compilable
author
Mart Lubbers
<mart@martlubbers.net>
Mon, 6 Mar 2017 18:53:44 +0000
(19:53 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Mon, 6 Mar 2017 18:53:44 +0000
(19:53 +0100)
Shares/mTaskShare.icl
patch
|
blob
|
history
diff --git
a/Shares/mTaskShare.icl
b/Shares/mTaskShare.icl
index
c0087d8
..
70d1014
100644
(file)
--- a/
Shares/mTaskShare.icl
+++ b/
Shares/mTaskShare.icl
@@
-7,7
+7,13
@@
import mTask
from Data.Func import $
manageShares :: [MTaskShare] -> Task ()
from Data.Func import $
manageShares :: [MTaskShare] -> Task ()
-manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
+manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares)
+ @! ()
+
+
+
+/*
+ forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
>&^ \st->whileUnchanged st $ \msh->case msh of
Nothing = viewShares shares @! zero
Just sh = forever (
>&^ \st->whileUnchanged st $ \msh->case msh of
Nothing = viewShares shares @! zero
Just sh = forever (
@@
-16,7
+22,7
@@
manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromG
>>= updateShare sh
)
>>= updateShare sh
)
- ) @! ()
+ ) @! ()
*/
updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
updateShare sh=:{withTask,identifier} a = getDeviceByName withTask