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)