only show comments if non-zero

yasunariw · yasunariw · commit b7ccbe7d4a8a · 2021-01-04T14:48:59.000+08:00
diff --git a/lib/slack_message.ml b/lib/slack_message.ml
@@ -73,7 +73,7 @@ let populate_pull_request repository (pull_request : pull_request) =
     [
       "Assignees", List.map assignees ~f:pp_github_user;
       "Labels", List.map labels ~f:pp_label;
-      "Comments", [ Int.to_string comments ];
+      ("Comments", if comments > 0 then [ Int.to_string comments ] else []);
       "Reviewers", get_reviewers ();
     ]
     |> List.filter_map ~f:(fun (t, v) -> if List.is_empty v then None else Some (t, String.concat v ~sep:", "))
@@ -99,7 +99,7 @@ let populate_issue repository (issue : issue) =
     [
       "Assignees", List.map assignees ~f:pp_github_user;
       "Labels", List.map labels ~f:pp_label;
-      "Comments", [ Int.to_string comments ];
+      ("Comments", if comments > 0 then [ Int.to_string comments ] else []);
     ]
     |> List.filter_map ~f:(fun (t, v) -> if List.is_empty v then None else Some (t, String.concat v ~sep:", "))
     |> List.map ~f:(fun (t, v) -> { title = Some t; value = v; short = true })

Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,7 @@ let populate_pull_request repository (pull_request : pull_request) =`
`73`	`73`	`[`
`74`	`74`	`"Assignees", List.map assignees ~f:pp_github_user;`
`75`	`75`	`"Labels", List.map labels ~f:pp_label;`
`76`		`- "Comments", [ Int.to_string comments ];`
	`76`	`+ ("Comments", if comments > 0 then [ Int.to_string comments ] else []);`
`77`	`77`	`"Reviewers", get_reviewers ();`
`78`	`78`	`]`
`79`	`79`	`\|> List.filter_map ~f:(fun (t, v) -> if List.is_empty v then None else Some (t, String.concat v ~sep:", "))`
`@@ -99,7 +99,7 @@ let populate_issue repository (issue : issue) =`
`99`	`99`	`[`
`100`	`100`	`"Assignees", List.map assignees ~f:pp_github_user;`
`101`	`101`	`"Labels", List.map labels ~f:pp_label;`
`102`		`- "Comments", [ Int.to_string comments ];`
	`102`	`+ ("Comments", if comments > 0 then [ Int.to_string comments ] else []);`
`103`	`103`	`]`
`104`	`104`	`\|> List.filter_map ~f:(fun (t, v) -> if List.is_empty v then None else Some (t, String.concat v ~sep:", "))`
`105`	`105`	`\|> List.map ~f:(fun (t, v) -> { title = Some t; value = v; short = true })`