File tree Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -66,7 +66,7 @@ type status_rule = {
66
66
type prefix_rule = {
67
67
?allow <json name="match"> : string list nullable;
68
68
?ignore : string list nullable;
69
- ~ branch_filters <ocaml default="[]"> : string list;
69
+ ? branch_filters : string list nullable ;
70
70
channel_name <json name="channel"> : string;
71
71
}
72
72
Original file line number Diff line number Diff line change @@ -44,8 +44,9 @@ module Prefix = struct
44
44
if no filter is matched. *)
45
45
let filter_by_branch ~branch ~default_branch_filters ~distinct rule =
46
46
match rule.branch_filters with
47
- | _ :: _ as filters -> List. mem filters branch ~equal: String. equal
48
- | [] ->
47
+ | Some (_ :: _ as filters ) -> List. mem filters branch ~equal: String. equal
48
+ | Some [] -> distinct
49
+ | None ->
49
50
match default_branch_filters with
50
51
| _ :: _ as filters -> List. mem filters branch ~equal: String. equal
51
52
| [] -> distinct
You can’t perform that action at this time.
0 commit comments