[server] fix « typo » in code

src/plugins/server/server_batch.ml

@@ -52,7 +52,7 @@ module BatchOutputDir = Senv.Empty_string
          directory."
     end)
 
-let () = Server_doc.protocole ~title:"Batch Protocol" ~readme:"server_batch.md"
+let () = Server_doc.protocol ~title:"Batch Protocol" ~readme:"server_batch.md"
 
 
 (* -------------------------------------------------------------------------- *)

src/plugins/server/server_doc.ml

@@ -98,11 +98,11 @@ let publish ~page ?name ?(index=[]) ~title
   List.iter (fun entry -> entries := (entry , href) :: !entries) index ;
   page.sections <- section :: page.sections ; href
 
-let protocole ~title ~readme:filename =
+let protocol ~title ~readme:filename =
   let readme = Printf.sprintf "%s/server/%s" (Fc_config.datadir :> string) filename in
   ignore (page `Protocol ~title ~readme ~filename ())
 
-let () = protocole ~title:"Architecture" ~readme:"server.md"
+let () = protocol ~title:"Architecture" ~readme:"server.md"
 
 (* -------------------------------------------------------------------------- *)
 (* --- Package Publication                                                --- *)

src/plugins/server/server_doc.mli

@@ -64,8 +64,8 @@ val publish :
   ?generated:(unit -> Markdown.elements) ->
   unit -> Markdown.href
 
-(** Publish a protocole. *)
-val protocole : title:string -> readme:string -> unit
+(** Publish a protocol. *)
+val protocol : title:string -> readme:string -> unit
 
 (** Publish a package. *)
 val package : Package.packageInfo -> unit

src/plugins/server/server_socket.ml

@@ -50,7 +50,7 @@ module SocketSize = Senv.Int
       let help = "Control the size of socket buffers (in ko, default 256)."
     end)
 
-let _ = Server_doc.protocole
+let _ = Server_doc.protocol
     ~title:"Unix Socket Protocol"
     ~readme:"server_socket.md"
 

src/plugins/server/server_zmq.ok.ml

@@ -58,7 +58,7 @@ module Client = Senv.String
          as first and unique argument."
     end)
 
-let _ = Server_doc.protocole ~title:"ZeroMQ Protocol" ~readme:"server_zmq.md"
+let _ = Server_doc.protocol ~title:"ZeroMQ Protocol" ~readme:"server_zmq.md"
 
 (* -------------------------------------------------------------------------- *)
 (* --- ZMQ Context                                                        --- *)