Revert "Fix regression during switch to cohttp:"

This reverts commit e161704.

Author: balat

ocsigenserver.opam

@@ -1,6 +1,6 @@
 opam-version: "2.0"
 name: "ocsigenserver"
-version: "5.1.1"
+version: "5.1.0"
 maintainer: "[email protected]"
 synopsis: "A full-featured and extensible Web server"
 description: "Ocsigen Server implements most features of the HTTP protocol, and has a very powerful extension mechanism that makes it very easy to plug your own OCaml modules for generating pages. Many extensions are already implemented, like a reverse proxy, content compression, access control, authentication, etc."

src/server/ocsigen_server.ml

@@ -326,18 +326,6 @@ let start ?config () =
         | l, Some (crt, key) -> List.map (fun (a, p) -> a, p, (crt, key)) l
         | _ -> []
       in
-      Lwt_main.run
-      @@ Lwt.join
-           (List.map
-              (fun (address, port) ->
-                Ocsigen_cohttp.service ~address ~port
-                  ~connector:extensions_connector ())
-              connection
-           @ (List.map (fun (address, port, (crt, key)) ->
-                  Ocsigen_cohttp.service
-                    ~ssl:(crt, key, Some (ask_for_passwd [address, port]))
-                    ~address ~port ~connector:extensions_connector ()))
-               ssl_connection);
       let current_uid = Unix.getuid () in
       let gid =
         match group with
@@ -450,6 +438,18 @@ let start ?config () =
         >>= f
       in
       ignore (f ());
+      Lwt_main.run
+      @@ Lwt.join
+           (List.map
+              (fun (address, port) ->
+                Ocsigen_cohttp.service ~address ~port
+                  ~connector:extensions_connector ())
+              connection
+           @ (List.map (fun (address, port, (crt, key)) ->
+                  Ocsigen_cohttp.service
+                    ~ssl:(crt, key, Some (ask_for_passwd [address, port]))
+                    ~address ~port ~connector:extensions_connector ()))
+               ssl_connection)
       (*
          Ocsigen_messages.warning "Ocsigen has been launched (initialisations ok)";