fix bug in context where make didn't generate a fresh state

ahrefs · Dec 31, 2020 · 5824333 · 5824333
1 parent 59a0e9d
commit 5824333
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/lib/context.ml b/lib/context.ml
@@ -15,17 +15,18 @@ type t = {
   state : State_t.state;
 }
 
-let default : t =
+let default () : t =
   {
     config_filename = "monorobot.json";
     secrets_filepath = "secrets.json";
     state_filepath = None;
     secrets = None;
     config = None;
-    state = State.empty;
+    state = State.empty ();
   }
 
 let make ?config_filename ?secrets_filepath ?state_filepath () =
+  let default = default () in
   let config_filename = Option.value config_filename ~default:default.config_filename in
   let secrets_filepath = Option.value secrets_filepath ~default:default.secrets_filepath in
   { default with config_filename; secrets_filepath; state_filepath }

diff --git a/lib/state.ml b/lib/state.ml
@@ -2,7 +2,7 @@ open Base
 open Common
 open Devkit
 
-let empty : State_t.state = { pipeline_statuses = StringMap.empty; slack_access_token = None }
+let empty () : State_t.state = { pipeline_statuses = StringMap.empty; slack_access_token = None }
 
 let refresh_pipeline_status (state : State_t.state) ~pipeline ~(branches : Github_t.branch list) ~status =
   let update_pipeline_status branch_statuses =