bumpRefCount :: Monad m => Ref -> BuilderT g m ()
bumpRefCount ref = bs_circ . circ_refcount %= IM.insertWith (+) (getRef ref) 1
bumpRefCount :: Monad m => Ref -> BuilderT g m ()
bumpRefCount ref = bs_circ . circ_refcount %= IM.insertWith (+) (getRef ref) 1
bumpRefCount ref = bs_circ . circ_refcount %= IM.insertWith (+) (getRef ref) 1