manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
>&^ \st->whileUnchanged st $ \msh->case msh of
Nothing = viewShares shares @! zero
manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
>&^ \st->whileUnchanged st $ \msh->case msh of
Nothing = viewShares shares @! zero
viewShares :: [MTaskShare] -> Task ()
viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal @! ()
viewShares :: [MTaskShare] -> Task ()
viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal @! ()