writeObject :: (MonadSTM m) => Object a -> a -> m ()
writeObject obj = liftSTM . writeTVar (objectVar obj)
writeObject :: (MonadSTM m) => Object a -> a -> m ()
writeObject obj = liftSTM . writeTVar (objectVar obj)
writeObject obj = liftSTM . writeTVar (objectVar obj)