fix check_gh payload and secrets initialization

Author: yasunariw

src/notabot.ml

@@ -21,7 +21,7 @@ let http_server_action addr port config secrets state =
 (** In check mode, instead of actually sending the message to slack, we
     simply print it in the console *)
 let check_gh_action file json config secrets state =
-  match Github.event_of_filename file with
+  match Github.event_of_filename (Caml.Filename.basename file) with
   | None ->
     log#error "aborting because payload %s is not named properly, named should be KIND.NAME_OF_PAYLOAD.json" file
   | Some kind ->
@@ -30,14 +30,18 @@ let check_gh_action file json config secrets state =
   | Ok body ->
     let headers = [ "x-github-event", kind ] in
     let ctx = Context.make ~config_filename:config ~secrets_filepath:secrets ?state_filepath:state () in
-    Lwt_main.run
-      ( if json then
-        let module Action = Action.Action (Api_remote.Github) (Api_local.Slack_json) in
-        Action.process_github_notification ctx headers body
-      else
-        let module Action = Action.Action (Api_remote.Github) (Api_local.Slack_simple) in
-        Action.process_github_notification ctx headers body
-      )
+    ( match Context.refresh_secrets ctx with
+    | Error e -> log#error "%s" e
+    | Ok ctx ->
+      Lwt_main.run
+        ( if json then
+          let module Action = Action.Action (Api_remote.Github) (Api_local.Slack_json) in
+          Action.process_github_notification ctx headers body
+        else
+          let module Action = Action.Action (Api_remote.Github) (Api_local.Slack_simple) in
+          Action.process_github_notification ctx headers body
+        )
+    )
 
 let check_slack_action url file =
   let data = Stdio.In_channel.read_all file in