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
(* 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 =