not working

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 0bb6265..b0c4424 100644 (file)
--- 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 @! ()