This commit is contained in:
Reynir Björnsson 2022-09-22 13:41:19 +02:00
parent 8dbd3ed663
commit b8a369dac8

View file

@ -672,7 +672,7 @@ stamp: %S
| Ok (commit, msg) -> | Ok (commit, msg) ->
Logs.info (fun m -> m "git: %s" msg); Logs.info (fun m -> m "git: %s" msg);
Serve.create commit store >>= fun serve -> Serve.create commit store >>= fun serve ->
Paf.init ~port:(Key_gen.port ()) (S1tack.tcp stack) >>= fun t -> Paf.init ~port:(Key_gen.port ()) (Stack.tcp stack) >>= fun t ->
let update store = download_archives disk http_ctx store in let update store = download_archives disk http_ctx store in
let service = let service =
Paf.http_service Paf.http_service