readObject :: (MonadSTM m) => Object a -> m a
readObject = liftSTM . readTVar . objectVar
readObject :: (MonadSTM m) => Object a -> m a
readObject = liftSTM . readTVar . objectVar
readObject = liftSTM . readTVar . objectVar