let add_filter proj filter =
  proj.T.actions <- filter :: proj.T.actions