From: Mart Lubbers <mart@martlubbers.net>
Date: Sun, 5 Mar 2017 20:20:21 +0000 (+0100)
Subject: not working
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=28eafcb52cf6d0ce0778f90beec2e08c046c10a0;p=mTask.git

not working
---

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 0bb6265..b0c4424 100644
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -8,10 +8,18 @@ manageShares :: [MTaskShare] -> Task ()
 manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
 	>&^ \st->whileUnchanged st $ \msh->case msh of
 		Nothing = viewShares shares @! zero
-		Just sh = viewSharedInformation "View value" [] (getSDSStore sh)
-			>>= \_->return sh
+		Just sh = forever (
+				viewSharedInformation "View value" [] (getSDSStore sh)
+			>>* [OnAction (Action "Update") (withValue $ Just $ updateInformation "New value" [])]
+			>>= updateShare sh
+			)
+			
 	) @! ()
 
+updateShare :: MTaskShare Int -> Task MTaskShare
+updateShare sh=:{withTask} i = return sh
+
+
 viewShares :: [MTaskShare] -> Task ()
 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal @! ()