-manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
- >&^ \st->whileUnchanged st $ \msh->case msh of
- Nothing = viewShares shares @! zero
- Just sh = forever (
- viewSharedInformation "View value" [] (getSDSStore sh)
- >>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
- >>= updateShare sh
- )
-
- ) @! ()
+manageShares shares = forever $
+ viewSharesGrid shares @! ()
+
+// >&^ \st->whileUnchanged st $ \msh->case msh of
+// Nothing = viewShares shares
+// Just sh = forever (
+// viewSharedInformation "View value" [] (getSDSShare sh) >>| treturn sh
+// >>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
+// >>= updateShare sh
+// )
+//
+// ) @! ()
+
+
+//viewShares :: [MTaskShare] -> Task BCValue
+//viewShares shares = anyTask (map viewShare shares)
+//
+//viewAndDelete :: [MTaskShare] -> Task ()
+//viewAndDelete shares
+// = enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()