manageShares shares = withShared Nothing $ \cs->forever $
(viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical)
@! ()
manageShares shares = withShared Nothing $ \cs->forever $
(viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical)
@! ()