modifyObject :: (MonadSTM m) => Object a -> (a -> a) -> m ()
modifyObject obj = liftSTM . modifyTVar (objectVar obj)
modifyObject :: (MonadSTM m) => Object a -> (a -> a) -> m ()
modifyObject obj = liftSTM . modifyTVar (objectVar obj)
modifyObject obj = liftSTM . modifyTVar (objectVar obj)