derive class iTask MTaskShareType, MTaskShare
manageShares :: [MTaskShare] -> Task ()
-manageShares shares = forever $
- viewSharesGrid shares @! ()
+manageShares shares = forever $ viewInformation "" [] "" @! ()
+// viewSharesGrid shares @! ()
// >&^ \st->whileUnchanged st $ \msh->case msh of
// Nothing = viewShares shares