coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Skip pre-warm — start listening immediately, render on demand

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-29 22:49:08 +00:00
parent 0d9e37f33c
commit 501934f9c6
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
hosts/ocaml/bin/sx_server.ml
View File

@@ -2039,16 +2039,13 @@ let http_mode port =
in in
(* Pre-warm + cache all key pages *) (* 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/(applications.(sxtp))"; "/sx/(geography.(cek))";
"/sx/(language)"; "/sx/(applications)"; "/sx/(language)"; "/sx/(applications)";
"/sx/(geography.(reactive))"; "/sx/(geography.(hypermedia))"; "/sx/(geography.(reactive))"; "/sx/(geography.(hypermedia))";
] in ] in
let wt0 = Unix.gettimeofday () in ignore cache_response;
List.iter cache_response warmup_paths; Printf.eprintf "[sx-http] Skipping pre-warm (render on demand)\n%!";
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);
(* Write full response to a socket *) (* Write full response to a socket *)
let write_response client response = let write_response client response =