Add fallback for backwards compatibility (and hide state)

ocurrent · Jun 27, 2023 · 12ad1a2 · 12ad1a2
1 parent bb4b245
commit 12ad1a2
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/build.ml b/src/build.ml
@@ -31,7 +31,7 @@ let notify ?channel ~web_ui ~service ~commit ~repo x =
   | None -> x
   | Some { Slack_channel.uri; mode; repositories = _ } ->
     let s =
-      let+ state = Current.state x
+      let+ state = Current.state ~hidden:true x
       and+ commit in
       match state, mode with
       | Error (`Msg _), Slack_channel.Failure

diff --git a/src/slack_channel.ml b/src/slack_channel.ml
@@ -40,5 +40,7 @@ let parse_json s =
   in
   try
     from_string s |> Util.to_list |> List.map read_channel
-  with ex ->
-    Fmt.failwith "Failed to parse slack URIs '%S': %a" s Fmt.exn ex
+  with _ ->
+    let uri = Current_slack.channel @@ Uri.of_string @@ String.trim s in
+    [ { uri; mode = All; repositories = All_repos } ]
+    (* Fmt.failwith "Failed to parse slack URIs '%S': %a" s Fmt.exn e *)