add back Irc.Mode.of_list

lib/irc/mode.ml

@@ -94,6 +94,9 @@ module Set = struct
     in
     String.fold_left (fun s c -> add (chr c) s) empty s
 
+  let of_list l =
+    List.fold_left (fun s m -> add m s) empty l
+
   type change = {
     add : t;
     rem : t;

lib/irc/mode.mli

@@ -54,8 +54,8 @@ module Set : sig
   val pp : Format.formatter -> t -> unit
   val to_string : t -> string
   val of_string : string -> t
+  val of_list : [< elt] list -> t
   (* val to_list  : t -> elt list *)
-  (* val of_list : [< elt] list -> t *)
 
   type change = {
     add : t;