fix: bug introduced by the merge

Author: Fixiss

src/main/learnocaml_server_main.ml

@@ -22,7 +22,7 @@ let signal_waiter =
   waiter
 
 let main o =
-  Printf.printf "ROOT_URL: \"%s\"\n%!" o.root_url;
+  Printf.printf "ROOT_URL: \"%s\"\n%!" o.base_url;
   Printf.printf "Learnocaml server v.%s starting on port %d\n%!"
     Learnocaml_api.version o.port;
   if o.base_url <> "" then

src/server/learnocaml_server.ml

@@ -1166,7 +1166,7 @@ let launch () =
     then Server.respond ~status:`Not_modified ~body:Cohttp_lwt.Body.empty ()
     else
     (match req.Request.meth with
-     | `GET -> lwt_ok {Api.meth = `GET; host = !root_url; path; args}
+     | `GET -> lwt_ok {Api.meth = `GET; host = !base_url; path; args}
      | `POST ->
         begin
           Cohttp_lwt.Body.to_string body
@@ -1180,11 +1180,11 @@ let launch () =
                   List.assoc_opt "csrf" cookies with
             | Some (param_csrf :: _), Some cookie_csrf ->
                if Eqaf.equal param_csrf cookie_csrf then
-                 lwt_ok {Api.meth = `POST params; host = !root_url; path; args}
+                 lwt_ok {Api.meth = `POST params; host = !base_url; path; args}
                else
                  lwt_fail (`Forbidden, "CSRF token mismatch")
             | None, None | None, Some _ ->
-               lwt_ok {Api.meth = `POST params; host = !root_url; path; args}
+               lwt_ok {Api.meth = `POST params; host = !base_url; path; args}
             | _, _ ->
                lwt_fail (`Forbidden, "Bad CSRF token")
         end