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