let resource_failed r = (get r).built <- Bcannot_be_built