insertSecretVal :: Monad m => SecretId -> Int -> BuilderT g m ()
insertSecretVal !id !val = bs_circ . circ_secret_vals . at (getSecretId id) ?= val
insertSecretVal :: Monad m => SecretId -> Int -> BuilderT g m ()
insertSecretVal !id !val = bs_circ . circ_secret_vals . at (getSecretId id) ?= val
insertSecretVal !id !val = bs_circ . circ_secret_vals . at (getSecretId id) ?= val