diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml index b954acaa..93f6aff2 100644 --- a/hosts/ocaml/bin/sx_server.ml +++ b/hosts/ocaml/bin/sx_server.ml @@ -2039,16 +2039,13 @@ let http_mode port = in (* Pre-warm + cache all key pages *) - let warmup_paths = ["/sx/"; "/sx/(geography)"; "/sx/(geography.(reactive.(examples)))"; + let _warmup_paths = ["/sx/"; "/sx/(geography)"; "/sx/(geography.(reactive.(examples)))"; "/sx/(applications.(sxtp))"; "/sx/(geography.(cek))"; "/sx/(language)"; "/sx/(applications)"; "/sx/(geography.(reactive))"; "/sx/(geography.(hypermedia))"; ] in - let wt0 = Unix.gettimeofday () in - List.iter cache_response warmup_paths; - let wt1 = Unix.gettimeofday () in - Printf.eprintf "[sx-http] Pre-warmed + cached %d pages in %.3fs (%d cached)\n%!" - (List.length warmup_paths) (wt1 -. wt0) (Hashtbl.length response_cache); + ignore cache_response; + Printf.eprintf "[sx-http] Skipping pre-warm (render on demand)\n%!"; (* Write full response to a socket *) let write_response client response =