overObject' :: (MonadSTM m) => ASetter s s a b -> (a -> b) -> Object s -> m ()
overObject' q f obj = liftSTM $ modifyObject' obj $ over q f
overObject' :: (MonadSTM m) => ASetter s s a b -> (a -> b) -> Object s -> m ()
overObject' q f obj = liftSTM $ modifyObject' obj $ over q f
overObject' q f obj = liftSTM $ modifyObject' obj $ over q f