let join ca status =
    ignore (S.CodeAnnotation.update ca (fun old -> merge old status))