fmt

Author: yasunariw

lib/common.ml

@@ -16,13 +16,9 @@ module Stringtbl = struct
   type 'a t = 'a Hashtbl.M(String).t
 
   let empty () = Hashtbl.create (module String)
-
   let to_list (l : 'a t) : (string * 'a) list = Hashtbl.to_alist l
-
   let of_list (m : (string * 'a) list) : 'a t = Hashtbl.of_alist_exn (module String) m
-
   let wrap = of_list
-
   let unwrap = to_list
 end
 

lib/state.ml

@@ -35,9 +35,7 @@ let set_repo_pipeline_status { state; lock } repo_url ~pipeline ~(branches : Git
   Lwt.return_unit
 
 let set_bot_user_id { state; _ } user_id = state.State_t.bot_user_id <- Some user_id
-
 let get_bot_user_id { state; _ } = state.State_t.bot_user_id
-
 let log = Log.from "state"
 
 let save { state; _ } path =