let clear_resource_failed r = (get r).built <- Bnot_built_yet