useObject :: (MonadSTM m) => Getting a s a -> Object s -> m a
useObject q obj = liftSTM $ view q <$> readObject obj
useObject :: (MonadSTM m) => Getting a s a -> Object s -> m a
useObject q obj = liftSTM $ view q <$> readObject obj
useObject q obj = liftSTM $ view q <$> readObject obj