Remove unnecessary unit argument

komamitsu · Aug 15, 2023 · 6815165 · 6815165
1 parent c2cb0cf
commit 6815165
Show file tree

Hide file tree

Showing 7 changed files with 6 additions and 9 deletions.
diff --git a/lib/candidate.ml b/lib/candidate.ml
@@ -221,7 +221,7 @@ let next_mode t =
       CANDIDATE
 
 
-let run ~conf ~apply_log ~state () =
+let run ~conf ~apply_log ~state =
   init ~conf ~apply_log ~state >>= fun t ->
   VolatileState.reset_leader_id t.state.volatile_state ~logger:t.logger;
   let persistent_state = t.state.persistent_state in

diff --git a/lib/candidate.mli b/lib/candidate.mli
@@ -4,5 +4,4 @@ val run :
   conf:Conf.t ->
   apply_log:Base.apply_log ->
   state:State.common ->
-  unit ->
   (Base.mode Lwt.t, string) result
diff --git a/lib/follower.ml b/lib/follower.ml
@@ -101,7 +101,7 @@ let request_handlers t ~election_timer =
   handlers
 
 
-let run ~conf ~apply_log ~state () =
+let run ~conf ~apply_log ~state =
   init ~conf ~apply_log ~state >>= fun t ->
   VolatileState.reset_leader_id t.state.volatile_state ~logger:t.logger;
   PersistentState.set_voted_for t.state.persistent_state ~logger:t.logger

diff --git a/lib/follower.mli b/lib/follower.mli
@@ -4,5 +4,4 @@ val run :
   conf:Conf.t ->
   apply_log:Base.apply_log ->
   state:State.common ->
-  unit ->
   (Base.mode Lwt.t, string) result
diff --git a/lib/leader.ml b/lib/leader.ml
@@ -227,7 +227,7 @@ let request_handlers t =
   handlers
 
 
-let run ~conf ~apply_log ~state () =
+let run ~conf ~apply_log ~state =
   init ~conf ~apply_log ~state >>= fun t ->
   VolatileState.update_leader_id t.state.common.volatile_state ~logger:t.logger
     t.conf.node_id;

diff --git a/lib/leader.mli b/lib/leader.mli
@@ -4,5 +4,4 @@ val run :
   conf:Conf.t ->
   apply_log:Base.apply_log ->
   state:State.common ->
-  unit ->
   (Base.mode Lwt.t, string) result
diff --git a/lib/oraft.ml b/lib/oraft.ml
@@ -27,9 +27,9 @@ let process ~conf ~logger ~apply_log ~state : unit Lwt.t =
   let exec next_mode =
     VolatileState.update_mode state.volatile_state ~logger next_mode;
     match next_mode with
-    | FOLLOWER -> Follower.run ~conf ~apply_log ~state ()
-    | CANDIDATE -> Candidate.run ~conf ~apply_log ~state ()
-    | LEADER -> Leader.run ~conf ~apply_log ~state ()
+    | FOLLOWER -> Follower.run ~conf ~apply_log ~state
+    | CANDIDATE -> Candidate.run ~conf ~apply_log ~state
+    | LEADER -> Leader.run ~conf ~apply_log ~state
   in
   let rec loop next_mode =
     match exec next_mode with