swapObject :: (MonadSTM m) => Object a -> a -> m a
swapObject obj = liftSTM . swapTVar (objectVar obj)
swapObject :: (MonadSTM m) => Object a -> a -> m a
swapObject obj = liftSTM . swapTVar (objectVar obj)
swapObject obj = liftSTM . swapTVar (objectVar obj)